Datenbank

[Seppel]

Zitat von mkinzler:

Dann setze ihn zu Laufzeit (Pfad der Exe kannst du mit ExtractFilePath( Application.Exename) bzw. ExtractFilePath( ParamStr(0)) ermitteln)

An welcher Stelle dann??
Ich mein, ich lade am anfang ja net gleich alles, erst wenn ich auf einen Button klicken werden die Daten aus der Db in das Listview geladen.

Wo soll ich denn jetzt den Paf 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;