Datenbank

[Seppel]

Hi,
ne Frage.
Wenn ich mein Programm und meine DB(Access) an einen Kumpel schicke dann hat er das Problem mit dem Pfad, wie kann ich das machen, dass z.B. der Pfad immer da ist wo die Anwendung leigt also im selben Ordner.

[mkinzler]

Dann setze ihn zu Laufzeit (Pfad der Exe kannst du mit

Delphi-Quellcode:

ExtractFilePath( Application.Exename)

bzw.

Delphi-Quellcode:

ExtractFilePath( ParamStr(0))

ermitteln)

[Seppel]

Zitat:

Zitat von mkinzler

Dann setze ihn zu Laufzeit (Pfad der Exe kannst du mit

Delphi-Quellcode:

ExtractFilePath( Application.Exename)

bzw.

Delphi-Quellcode:

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;

[mkinzler]

Am Besten im onCreate des Datenmoduls.

[Seppel]

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;

[mkinzler]

Delphi-Quellcode:

Query1.DataBaseName := ExtractFilePath( ParamStr(0));

Und dann die Query vor dem Kompilieren schließen.

[Privateer3000]

Hallo,

um den Programmpfad immer "in der Hand" zu haben
lege ihn mittels

Delphi-Quellcode:

var 
programmpfad: String;
...
programmpfad:=ExtractFilePath( Application.Exename);
...

in einen string.
Wann immer er benötigt wird setzt du ihn einfach davor.

Delphi-Quellcode:

zB
SaveToFile(programmpfad+'datei.ext');

Grüße

[Seppel]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

Query1.DataBaseName := ExtractFilePath( ParamStr(0));

Und dann die Query vor dem Kompilieren schließen.

Em bei ADO gibts beim QUery kein Databasename und was meisnte mit Query vorm kompilieren schließen, ich kann doch erst was machen, wenn kompiliert wird^^

[mkinzler]

Bei ADO musst du dann die DSN anpassen

[Seppel]

Zitat:

Zitat von mkinzler

Bei ADO musst du dann die DSN anpassen

DSN?
edit:
Kannste mir einfach sagen, wo ich bei meinem COde den Pfad eingeben soll^^
Hab ja den Quellcode mehrmals gepostet.