Hi Leif,
in deiner function fehlt eine wichtige (die erste) Zeile, dafür ist da einiges zuviel:
Delphi-Quellcode:
uses
Unit1;
function TTestService.SQLabfrage(
const Connection:
String; SQLString:
String): TStrings;
var
i, j: integer;
s:
string;
begin
Result := TStringList.Create;
with WebModule.ADOConnection
do
ConnectionString := Connection;
with WebModule.ADOQuery
do begin
SQL.Text := SQLString;
Open;
for i := 0
to RecordCount - 1
do begin
s := '
';
for j := 0
to IndexFieldCount - 1
do begin
if j > 0
then
s := s + '
,';
s := s + FieldValues[IndexFields[j].Text].AsString;
end;
Result.Add(s);
Next;
end;
{Close;}
end;
end;
Grüße vom marabu