Datenbank

[Seppel]

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 OLEDBatabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDBatabase 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 OLEDBon'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]

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

[Seppel]

Zitat von mkinzler:

...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 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 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 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.