Q&A

  • TDataSet 타입으로 함수 리턴값 넘겨주기
스트링을 받아서 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;



0  COMMENTS