TADO QUERY Acces Daten in Listbox

[DeddyH]

Abfragen (Selects) werden ja auch mit Open geöffnet, da sie ja eine Datenmenge zurückliefern sollen.

Delphi-Quellcode:

procedure TForm2.FormActivate(Sender: TObject);
begin
  ADOQuery2.SQL.Text := 'SELECT * FROM `TABELLE`;';
  ADOQuery2.Open;
  while not ADOQuery2.EOF do
    begin
      Listbox1.Items.Add(ADOQuery2.FieldByName('Name').Value);
      ADOQuery2.Next;
    end;
end;

Getippt und nicht getestet.