Hier ein Beispiel, was aber umgeschrieben auf die ZeosLibKomponenten genau so gut funktioniert :
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| HerstellerZub := TStringList.Create;
HerstellerHardw := TStringList.Create;
with DatenModul.ADOQueryZubehoer do begin
SQL.Clear;
SQL.Add(PChar(selectorderspalte(PChar('ZubehoerHersteller'),
PChar('Zubehoerstammdaten'),PChar('ZubehoerHersteller'))));
Open;
HerstellerZub.Clear;HerstellerHardw.Clear;
Active := True;
while not Eof do begin
HerstellerZubehoerAbfrage.Items.Add(Fields[0].AsString);
HerstellerZub.Add(Fields[0].AsString);
next;
end;
Active := False;
end; |
Setze einfach Deine Komponenten ein und dann sollte es funktionieren, ich habe bei diesem Beispiel die Datenbankkompo's in einem Datenbank-Modul.
