PDA

Vollständige Version anzeigen : FileDialog von Karsten Pries und Datenbank-Kennwort übergeben


MDR
21.04.2011, 11:08
Hi.

ich verwend den Filedialog von Karten Pries Klassenmodul, beim rechergiren Datenbank-Kenwort ist mir http://www.donkarl.com?FAQ6.19 auf zwei möglichkeit gestoßen.

Ich habe mit die erste versucht:

Dim appAcc As Access.Application
Set appAcc = CreateObject("Access.Application")
appAcc.OpenCurrentDatabase "C:\Foo\Meine.mdb", False, "Kennwort"

klappt nicht gans

Orginal


'Datenbank neu verbinden

Set DB = DBEngine.Workspaces(0).Databases(0) 'Für eigene Datenbank
If Not ConnectDB(DB, newdb) Then
Nix = MsgBox("Tabellen konnten nicht ordungsgemäß verbunden werden ", vbCritical, "Fehler beim Verbinden")
Exit Function
End If



Mein versuch

Dim appAcc As Access.Application
.......
.......
Set appAcc = CreateObject("Access.Application")
appAcc.OpenCurrentDatabase newdb, False, "Kennwort"

'Datenbank neu verbinden

Set DB = DBEngine.Workspaces(0).Databases(0) 'Für eigene Datenbank
If Not ConnectDB(DB, newdb) Then
Nix = MsgBox("Tabellen konnten nicht ordungsgemäß verbunden werden ", vbCritical, "Fehler beim Verbinden")
Exit Function
End If


was mache ich falsch

Wilhelm1
21.04.2011, 13:09
Versuch mal
Set db = DBEngine.Workspaces(0).OpenDatabase(Pfad zum Backend, False, False, ";pwd=kennwort")