Hallo,
ich kann ja über den folgenden Code, eine Select-Abfrage ausführen und das Ergebnis in normale TEdit-Felder einfügen :
Delphi-Quellcode:
Query.SQL.Text := "Select ort from orte where plz='
<Wert>'";
Query.SQL.Open;
Query.Active := true;
while not EOF
do
begin
Listbox1.Items.Add(Fields[0].AsString);
end;
Query.Active := false;
Mit diesem Codeschnipsel kann ich ja die Listbox1 mit dem Ergebnis füllen. Da ich gerade an einer
DLL schreibe, möchte ich die While-Schleife in meinen Eigentlichen Sourcecode packen und den Rest in die
DLL. Was muss ich in der Funktion als Rückgabewert mitgeben, dass ich alle Datensätze übergeben bekomme und auch abfragen kann ?
Die Funktion zum Abrufen Sie wie folgt aus :
Delphi-Quellcode:
function Query(SQLCommand :
string):TFields;
begin
Query.SQL.Text := "Select ort from orte where plz='
<Wert>'";
Query.SQL.Open;
Query.Active := true;
result :=
Query.Fields;
end;
Wenn ich nur ein Ergebnis herausbekomme, funktioniert es wunderbar. Wenn ich aber mehrere Ergbenisse habe, dann komme ich zwar an den ersten Wert dran aber nicht an die restelichen. Wie komme ich an die restlichen Werte, wenn das Ergebnis > 1 ist ?