Zeoslib

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var ListItem: TListItem;  //Variable deklarieren
begin
  dbMain.Hostname:=edServer.Text;
  dbMain.User:=edLogin.Text;
  dbMain.Password:=edPasswort.Text;
  dbMain.Database:=edDB.Text;
  dbMain.Connected:=True;

  try
  qrMain.SQL.Text:='Select * from `adressbuch` order by name;';
  qrMain.Open;

  while not qrMain.Eof do
  begin
    ListItem := lvAnzeige.Items.Add; //lvAnzeige = Name der ListView
    ListItem.Caption:=qrMain.FieldByName('id').AsString;
    ListItem.SubItems.Add(qrMain.FieldByName('vorname').AsString);
    ListItem.SubItems.Add(qrMain.FieldByName('name').AsString);
    ListItem.SubItems.Add(qrMain.FieldByName('adresse').AsString);
    ListItem.SubItems.Add(qrMain.FieldByName('plz').AsString);
    ListItem.SubItems.Add(qrMain.FieldByName('wohnort').AsString);
    qrMain.Next;
  end;


    finally
        dbMain.Connected:=False;
        end;


end;

Einfach mal auf meine Kommentare achten (ungetestet).