Zugriff per ADo auf eine geschützte Datenbank
Thomas
hatte letzte Woche ein Seminar zum Datenaustausch von Excel auf einer Datenbank.
Wir habe es alles auf einer ungeschützten Datenbank gemacht.
Jetzt habe ich in es mit einer geschützten Datenbank versucht.
Die Datenbank wurde unter Access 2003 erstellt. Nach Speichern wurde sie nochmals exclusiv geöffnet und ein Kennwort vergeben. Nach dem Speichern kann sie nur noch nach Eingabe des Passwortes geöffnet werden.
Mit der ungeschützten Dantenbank läuft das nachfolgende Makro ohne Probleme durch:
Sub ADO_Access_Datenbankverbindung()
'Baut Verbindung zur Datenbank auf
Dim connDB As ADODB.Connection, strDatei As String
Set connDB = New ADODB.Connection
strDatei = "D:\Testdatenbank.mdb"
With connDB
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Mode = adModeReadWrite
.Open ConnectionString:=strDatei
End With
' Zurücksetzen von Objektveariblen
Set connDB = Nothing
End Sub
.Open ConnectionString:=strDatei Password:="Test"
Jetzt bekomme ich aber eine Fehlermeldung:
Die Anwendung kann nicht gestartet werden. Die Informationsdatei für die Arbeitsgruppe fehlt oder ist exlusiv von einem anderen Benutzer geöffnet.
Was habe ich falsch gemacht? Muss unter Access das Passwort für die Datenbank anders vergeben werden?
Ich hoffe ihr könnt mir helfen.
Gruß Thomas
Anzeige