Datenbankpfad dynamisch erstellen

[Bummi]

wenn er schon gesetzt ist (ist ja oft so beim Entwickeln)

Delphi-Quellcode:

  ADOConnection1.Properties.Item['Data Source'].Value := ExtractFilePath(Paramstr(0)) + 'database\kundendaten.accdb';
  Showmessage(ADOConnection1.ConnectionString);

[m-werk]

Versteh ich jetzt nicht.

Diesen Code hab ich aus der Unit1.dfm:

Code:

  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString =
      'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Programme\Hohenburgerhof\Programm4\database\kundendaten.accdb;Mode=ReadWrite;Pe' +
      'rsist Security Info=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.ACE.OLEDB.12.0'
    Left = 64
    Top = 544

Dort steht der ganze Pfad drin.