Datenbankpfad variabel

[Comp_Ben]

Hallo,

ich habe ein kleines Programm geschrieben, bei dem ich Daten aus einer Access Datenbank auslese. Wenn ich dieses Programm und die Datenbank allerdings auf einen anderen Rechner (oder in einen anderen Ordner) verschiebe, dann erhalte ich immer die Meldung, dass die Datenbanken nicht gefunden wurden. Klar, da sich da das Verzeichniss der Datenbank ändert.

Wie kann ich aber diesen Pfad variabel gestallten?

[ARCUS_L]

Hi !!

Verwendest du VB oder VB.NET ?

Befindet sich die Datenbanl im Verzeichnis in dem sich die exe ist ?
dann kannst du bei vb App.Path verwenden.

und bei VB.NET
Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location) & "\"

[Comp_Ben]

Ich verwende VB 6.0

Wie sieht das dann mit app.path aus?

[ARCUS_L]

Hi !

Dim st DB as String

stDB = App.Path & "\Datenbank.mdb"

[Comp_Ben]

hab das jetzt so probiert:

Dim stDB As String
----------------------------------------------------
Private Sub Form_Load()
stDB = App.Path & "\db1.mds"
End Sub
------------------------------------------------------
Private Sub Data1_Validate(Action As Integer, Save As Integer)
Data1.DatabaseName = stDB
End Sub

aber die Datenbank wird nicht gefunden

[ARCUS_L]

Hi !

Befindet sich auch die DB im selben Ordner wie die EXE ?

Halte dein Programm mal bei stDB = App.Path & "\db1.mds" an .
Mach einem Einzelschritt (F8) und kontrolliere den Inhalt der Variable stDB
oder mit Debug.Print stDB Kontrolle im Direktfenster.
ob sich deine DB auch in diesem Pfad befindet !

[Genesis]

Hi,

eventuell ist auch ein \ zuviel dabei. VB hängt manchmal einen backslash an App.Path, manchmal nicht (kommt auf den Pfad drauf an ). Von daher kannst du diese Funktion verwenden:

Private Function GetPath() As String
  Dim pfad As String
  pfad = App.Path
  If Right(pfad,1) <> "\" Then GetPath = pfad & "\" Else GetPath = pfad
End Function

Gruß
Genesis