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;