스트링을 받아서 SQL을 실행시키고
결과값을 TDataSet 타입으로 넘겨줄려고 하는데 잘안되네요.
리턴되는 데이터셋을 검사하면 비어있더군요.
핵심코드는 아래와 같습니다.
어케하면 좋을까요. 아시는분 답변 부탁합니다.
function Search_DataSet ( DbName, tableName :string ;
PType:Byte;
aPType:array of Byte;
aFieldName,aWValue,
sField:array of String) :TDataSet;
begin
...
with Q1 do begin
Q1 := TQuery.Create(Application);
DataBaseName := DbName;
Sql.Clear;
try
Sql.Add(sSql);
ExecSql;//자료반영
except
Showmessage(sSql);
Close;
Free;
Result := nil;
Exit;
end;
Result := Q1;
Close;
Free;
end;//with
...
end;