Passwortgeschütze Datenbank öffnen (ADO) Dieser Tipp verrät, wie sich eine passwortgeschütze Datenbank öffnen lässt (ADO).
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  19.300
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 27 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Immer und immer wieder in den Foren gefragt: "Ich habe meine Datenbank passwortgeschützt. Doch wie kann ich diese nun öffnen, wenn ich ADO verwende?"

Lösung:

Dim oConn As ADODB.Connection
Set oConn = New ADODB.Connection
With oConn
  .CursorLocation = adUseClient
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Data Source") = App.Path & "\Datenbank.mdb""
  .Properties("Persist Security Info") = False
  .Properties("Jet OLEDB:Database Password") = "Passwort"
  .Open
End With

Und wie sieht es aus, wenn man anstelle des Connection-Objektes ein ADO-DataControl verwendet?

Lösung:

Dim sConn As String
 
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & App.Path & "\Datenbank.mdb;" & _
  "Persist Security Info=False;" & _
  "Jet OLEDB:Database Password=Passwort"
 
With Adodc1
  .CursorLocation = adUseClient
  .ConnectionString = sConn
  .RecordSource = "SELECT * FROM ..."
  .Refresh
End With