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.

[mkinzler]

Verbindungs-String
http://www.dsdt.info/tutorials/ado/?page=2&x=2&y=4

[Seppel]

Zitat:

Zitat von mkinzler

Verbindungs-String
http://www.dsdt.info/tutorials/ado/?page=2&x=2&y=4

Das is aber was mit Regestry, es muss doch ganz einfach sein, dass ich den Connectionstring so ändere, dass es einfach nur dieses Expath rein geht und immer darin findet und nix mit Regestry.

[mkinzler]

Lass dir mal den Connections-String anzeigen und erzeuge ihn so zur Laufzeit mit dem richtigen Pfad

[Seppel]

Zitat:

Zitat von mkinzler

Lass dir mal den Connections-String anzeigen und erzeuge ihn so zur Laufzeit mit dem richtigen Pfad

Also:

Code:

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Dokumente und Einstellungen\Sebastian\Desktop\Apezdb\neu\db1.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

Und jetzt soll ich an stelle vonC:\Dokumente und Einstellungen\Sebastian\Desktop\Apezdb\neu\db1.mdb ja irgendwie was rein machen, wie soll ich das jetzt machen??

[mkinzler]

Ja den mit

Delphi-Quellcode:

ExtractFilePath( ParamStr(0))

ermittelten Pfad

[Seppel]

Zitat:

Zitat von mkinzler

Ja den mit

Delphi-Quellcode:

ExtractFilePath( ParamStr(0))

ermittelten Pfad

Dann tausche ich das aus, vorher alles mit '' umklammern und dann + Extractfilepath...+'' oder?

[mkinzler]

Ja, das sollte so funktionieren.

[Seppel]

Zitat:

Zitat von mkinzler

Ja, das sollte so funktionieren.

Jetzt ist der String nur zu lang^^edit: Ok selbst ist der Mann einfach ''+''+''^^

[Seppel]

Es funzt aber net, da kommt dann so ein Fehler.
Ich post den morgen ma muss jetzt noch wohin, aber der String ist auch einfach zu lang, das macht das PRog richtig lahm.

[mkinzler]

Hast du den namen der DB dem Pfad zugefügt?

[Seppel]

Zitat:

Zitat von mkinzler

Hast du den namen der DB dem Pfad zugefügt?

Also der String sieht so aus:
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Dokumente und Einstellungen\Sebastian\Desktop\Apezdb\neu\db1.mdb ;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

Ich muss ja dann ein '' machen und dann + Exe...+ '' was meisnte jetzt soll ich dann noch bei dem Ex... db1.mdb hinschreiben? in dioe Klammern?

Also so siehts mom aus:

Delphi-Quellcode:

Adoconnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ExtractFilePath( ParamStr(0))+';Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'+'Jet OLEDB:Engine Type=5;'+'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Dont Copy Locale on Compact=False;'+'Jet OLEDB:Compact Without Replica Repair=False;'+'Jet OLEDB:SFP=False';
Adoconnection1.Connected := true;

Es kommt jetzt ein fehler, und zwar Installierbares ISAM nicht gefunden.

[mkinzler]

Delphi-Quellcode:

...Data Source='+ExtractFilePath( ParamStr(0))+'db1.mdb+';...

[Seppel]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

...Data Source='+ExtractFilePath( ParamStr(0))+'db1.mdb+';...

Das hab ich eben auch schon getestet trodzdem kommt "Installierbares ISAM nicht gefunden."


Das muss ich ja auch machen, da ja alles deaktiviert ist oder?

Delphi-Quellcode:

Adoconnection1.Connected := true;
Query1.Active := true;

[DeddyH]

Zur Designzeit alle Verbindungen kappen, zur Laufzeit Connectionstring zusammensetzen und verbinden.

[Seppel]

Zitat:

Zitat von DeddyH

Zur Designzeit alle Verbindungen kappen, zur Laufzeit Connectionstring zusammensetzen und verbinden.

Is ja gemacht:

Delphi-Quellcode:

Query1.Close;
Adoconnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ExtractFilePath( ParamStr(0))+'db1.mdb'+';Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'+'Jet OLEDB:Engine Type=5;'+'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Dont Copy Locale on Compact=False;'+'Jet OLEDB:Compact Without Replica Repair=False;'+'Jet OLEDB:SFP=False';
Adoconnection1.Connected := true;
Query1.Active := true;

edit: Ich denke auch es funktioniert nur es sagt immer ISAM nicht gefunden, was auch immer das ist!

[DeddyH]

Versuch es mal mit Format.

[Seppel]

Zitat:

Zitat von DeddyH

Versuch es mal mit Format.

?
Meinste ich soll alles in Format = Reinschreiben und dann Format nur bie Adoconnection.string angeben??

[DeddyH]

Ich habe das hier gerade mal unter Linux mit Lazarus ausprobiert. Sieht eigentlich ganz gut aus (testen kann ich es natürlich nicht):

Delphi-Quellcode:

const sConn = 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%sdb1.mdb;'+
              'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+
              'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'+
              'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;'+
              'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;'+
              'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;'+
              'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;'+
              'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
var Pfad: string;
begin
  Pfad := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
  ShowMessage(Format(sConn,[Pfad])); 
end;

[Seppel]

Zitat:

Zitat von DeddyH

Ich habe das hier gerade mal unter Linux mit Lazarus ausprobiert. Sieht eigentlich ganz gut aus (testen kann ich es natürlich nicht):

Delphi-Quellcode:

const sConn = 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%sdb1.mdb;'+
              'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+
              'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'+
              'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;'+
              'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;'+
              'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;'+
              'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;'+
              'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
var Pfad: string;
begin
  Pfad := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
  ShowMessage(Format(sConn,[Pfad])); 
end;

Ok das funzt.
Danke. Also, du hast folgendes gemacht oben hast du ne constante definiert und mkit dem %s hast du dann später fürs Format gemacht, damit du dann den Pfad reinschreiben kannst, wo es gerade liegt.

[DeddyH]

Genau so ;). Wenn sich der Pfad ändert, macht das somit nichts.

[Seppel]

Zitat:

Zitat von DeddyH

Genau so ;). Wenn sich der Pfad ändert, macht das somit nichts.

Ja es klappt auch!