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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.