Thema: Delphi Datenbank

Einzelnen Beitrag anzeigen

Benutzerbild von Seppel
Seppel

Registriert seit: 14. Jun 2005
139 Beiträge
 
#5

Re: Datenbank

  Alt 30. Nov 2007, 21:25
Datenmodul verwende ich net... meine Anwendung is übersichtlich genug.
Wo soll ich den bei dem COde da oben oder hier noch ma, den Pfad zum laden angeben.
Delphi-Quellcode:
var ListItem: TListItem;

begin
Listview1.Items.Clear;
Query1.SQL.Text := 'Select * from apezdb order by STUID';
Query1.open;

 while not Query1.Eof do
  begin
    ListItem := Listview1.Items.Add;
    ListItem.Caption:=Query1.FieldByName('id').AsString;
    ListItem.SubItems.Add(Query1.FieldByName('STUID').AsString);
    ListItem.SubItems.Add(Query1.FieldByName('Name').AsString);
    ListItem.SubItems.Add(Query1.FieldByName('Rasse').AsString);
    ListItem.SubItems.Add(Query1.FieldByName('Planet1').AsString);
    ListItem.SubItems.Add(Query1.FieldByName('Planet2').AsString);
    ListItem.SubItems.Add(Query1.FieldByName('Planet3').AsString);
    ListItem.SubItems.Add(Query1.FieldByName('Mond1').AsString);
    ListItem.SubItems.Add(Query1.FieldByName('Mond2').AsString);
    ListItem.SubItems.Add(Query1.FieldByName('Mond3').AsString);
   Query1.Next;
  end;



end;
Sebastian
www.seppel.de.pn
  Mit Zitat antworten Zitat