Hi Leute
mit folgender Funktion
Delphi-Quellcode:
procedure DoQuery(
const sQuerySQL :
string; DestList: TStrings);
begin
DestList.BeginUpdate;
try
DestList.Clear;
oTmpQry := TADOQuery.Create(
nil);
try
try
oTmpQry.Connection := Conn;
oTmpQry.CommandTimeout := 5000;
oTmpQry.SQL.Text := sQuerySQL;
oTmpQry.Open;
while not oTmpQry.eof
do begin
DestList.add(oTmpQry.Fields[0].asString);
oTmpQry.Next;
end;
except
on e :
exception do begin
Writeln(e.
message);
end;
end;
Finally
oTmpQry.free;
end;
finally
DestList.EndUpdate;
end;
end;
bekomme ich immer die erste Spalte eines results zurück.
Was müsste ich tun damit ich wirklich alles angezeigt bekomme?
Vielen Dank im Voraus
LG
Steffen