Hey Leutz
habe folgende function:
Delphi-Quellcode:
function query(sQuerySQL :
string) :
string;
begin
oTmpQry := TADOQuery.Create(
nil);
try
try
oTmpQry.Connection := Conn;
oTmpQry.CommandTimeout := 5000;
oTmpQry.SQL.Text := sQuerySQL;
oTmpQry.Active := True;
result := oTmpQry.Fields[0].asString;
except
on e :
exception do begin
assert := e.
message;
Writeln(assert);
halt(1);
end;
end;
Finally
oTmpQry.free;
end;
end;
die funktioniert auch sehr gut, ABER nur bei results die einen wert betragen also zb. Select count(*) from TABLE
Jetzt will ich mir aber alle ergebnisse in eine TStringlist laden. wie sollte ich hier vorgehen?
ich schätze mal das es hier result := oTmpQry.Fields[0].asString; eine andere Möglichkeit gibt?!
LG