Memo u. DB

[Tau]

Hallo Leute

kann mir vielleicht jemand helfen ich glaub ich sehe den Wald vor lauter Bäume nicht mehr.

ich versuche Daten aus einer MS Access Tabelle in ein Memo zu exportieren mit folgendem Code.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   ADOTable1.Active := True;
   while not ADOTable1.Eof do
      begin
      Memo1.Text := 'Demo 1 ' +#13#10
                         +'Demo 2 ' +#13#10
                         +'Demo 3 ' +ADOTable1Text1.Value +''';' +#13#10
                         +'Demo 4 ' +ADOTable1Text2.Value +''';' +#13#10
                         +'Demo 5 ' +ADOTable1Text3.Value +''';' +#13#10
                         +'Demo 6 ' +#13#10
                         +'Demo 7 ' +#13#10
                         +'Demo 8 ' +#13#10;
      ADOTable1.Next;
      end;
   ADOTable1.Active := False;
end;

Es wird immer nur ein Datensatz exportiert warum ?

mfg
Tau

[Luckie]

Ich gehe mal davon aus, dass du immer nur den letzten siehst?

Die eigenschaft Text bezieht sich immer auf den gesamten Inhalt des Memos, das heißt bei jedem Schleifendurchlauf erstezt du den Inhalt des Memos mit dem aktuellen Datensatz.

Memo1.Lines.Add(...); Sollte es tun für jede Zeile.

[Tau]

Hallo Luckie

Danke für den Tipp es funktionirt.

bist du noch auf oder schon wieder

mfg
Tau