TADO QUERY Acces Daten in Listbox

[thiagojonas]

Hallo Freunde,
ich hätte da mal eine kleine Frage.
Also ich habe ein Datenbank.
Dort speichere ich via ADOConnection,ADODataser,ADODatasource und ADOQuery einen beliebigen Wert aus einem Textfeld.

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
  ADOQuery1.SQL.Text := 'INSERT INTO `TABELLE` (`NAME`) VALUES ('''+edit1.Text+''');';
  ADOQuery1.ExecSQL;
end;

Das klapp auch wunderbar.

Ich möchte jetzt aber das die Daten aus der Tabelle in eine Listbox dargestellt werden.

Mein Ansatz:

Delphi-Quellcode:

procedure TForm2.FormActivate(Sender: TObject);
begin
  ADOQuery2.SQL.Text := 'SELECT*FROM `TABELLE`;';
  ADOQuery2.ExecSQL;
  Listbox1.AddItem(ADOQuery2.SQL.Text,Listbox1);
end;

Aber hierbei wird halt nur der String angezeigt, der als Wuerry definiert ist.

Kann mir jemand weiterhelfen?
Danke im voraus :-D

[mkinzler]

.ExecSQL verwendet man nur für DML-Statements (Insert, Update, Delete, ...). Für Abfragen, welche eine Ergebnismenge zurückliefern verwendet man .Open
Zudem zeigst du ja die Abfrage an, nicht das Ergebnis
Auf die Ergebnisse kannst du mit

Delphi-Quellcode:

 ... := ADOQuery2.FieldByName('<Feldname'>.Value

zugreifen

[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.

[thiagojonas]

Super vielen Danke für Eure Hilfen :-D