Datenbankpfad dynamisch erstellen

[m-werk]

Hallo,

ich hab ja mein Programm auf einem Testlaufwerk liegen und darunter hab ich einen Ordner mit database. In diesem Ordner liegt meine Datenbank, welche mit mit meinem Programm verbunden ist.

Jetzt möchte ich aber mein Programm mit der Datenbank auf einen anderen Rechner übertragen, sprich ich möchte NUR die Exe Datei und den Datenbankordner inkl. DB mitnehmen und in einen neuen Ordner einfügen.

Jetzt ist es aber so, dass mein Programm auf jede Datenbank zugreifen möchte, welche auf meinem Testrechner im Testordner liegt.

Wie kann ich mein Programm dazu bringen, dass er NUR vom Unterordner meine DB nimmt?

Der ConnectionString sieht so aus:

Code:

    ConnectionString = 
      'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Programme\Hohen' +
      'burgerhof\Programm4\database\kundendaten.accdb;Mode=ReadWrite;Pe' +
      'rsist Security Info=False'

[p80286]

Zitat:

Zitat von m-werk (Beitrag 1161515)

Jetzt ist es aber so, dass mein Programm auf jede Datenbank zugreifen möchte, welche auf meinem Testrechner im Testordner liegt.

Das ist nach meiner Meinung durch den Connectionstring ausgeschlossen.

Woran merkt man denn, daß Dein Programm mit jeder DB eines Verzeichnisses Kontakt aufnehmen will?

Liegen da vielleicht noch ein paar offene Connections irgendwo herum?

Gruß
K-H

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

[bernerbaer]

Ich denke, dass der Connectionstring fest einprogrammiert ist. Also würde ich folgendes vorschlagen:

1. Connectionstring dynamisch aufbauen
2. Beim Start der Anwendung zb den Pfad zur DB aus der Registry auslesen
3. Wenn kein DB-Pfad in der Registry, oder wenn die DB nicht existiert Openfiledialog ausführen und den User die DB holen lassen
4. den DB Pfad in den dynamischen Connectionstring einbauen
5. den DB Pfad in der Registry speichern

[m-werk]

Ok, das würde ja eigentlich logisch klingen, nur muss ich das über die Registry machen?

Wie würde es aussehen, wenn man dies über eine INI-Datei macht, die im Pfad des Programmes liegt?

[Bummi]

packe einfach die erste Zeile meines Codes in BeforeConnect der Connection

[m-werk]

Oh, DANKE. Das hat prima funktioniert.

[bernerbaer]

Zitat:

Zitat von m-werk (Beitrag 1161526)

Ok, das würde ja eigentlich logisch klingen, nur muss ich das über die Registry machen?

Wie würde es aussehen, wenn man dies über eine INI-Datei macht, die im Pfad des Programmes liegt?

Wenn Du voraussetzt, dass dein Programm Schreibrechte im Programmverzeichnis hat, dann kannst Du selbstverständlich auch eine Ini-Datei nehmen.

Zu Bummis Vorschlag:
Der Funktioniert natürlich ebenfalls, aber nur unter 2 Voraussetzungen:
1. Du setzt voraus, dass die relativen Pfade stimmen
2. Du setzt voraus, dass der Pfad wo die DB liegt Schreibrechte besitzt

[p80286]

Zitat:

Zitat von bernerbaer (Beitrag 1161534)

Zu Bummis Vorschlag:
Der Funktioniert natürlich ebenfalls, aber nur unter 2 Voraussetzungen:
1. Du setzt voraus, dass die relativen Pfade stimmen

irgendwann muß man sich auf die Vorgaben verlassen.

Zitat:

Zitat von bernerbaer (Beitrag 1161534)

2. Du setzt voraus, dass der Pfad wo die DB liegt Schreibrechte besitzt

das versteh ich jetzt nicht, Das ist doch nicht spezifisch für Bummi's Vorschlag??

Gruß
K-H