Rubrik: Datenbanken · ADO | VB-Versionen: VB5, VB6 | 18.05.06 |
Datenbanken und Passwörter (ADO) Beispiele, wie man Access-Datenbanken beim Erstellen oder nachsträglich durch ein Passwort schützen kann. | ||
Autor: Dieter Otter | Bewertung: | Views: 15.139 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Die nachfolgenden Beispiele zeigen, wie Sie mittels ADO eine Access 2000 Datenbank (oder höher) durch ein Passwort schützen können bzw. wie Sie eine passwortgeschütze Datenbank öffnen und ein vorhandenes Passwort vollständig wieder entfernen können.
Der Reihe nach...
Datenbank öffnen und Passwort festlegen:
' Datenbank öffnen Dim oConn As ADODB.Connection Dim sDatabasePath As String Dim sPassword As String ' Datenbankpfad und -name sDatabasePath = App.Path & "\MeineDB.mdb" ' Connection-Objekt erstellen Set oConn = New ADODB.Connection With oConn .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = sDatabasePath .Properties("Persist Security Info") = False ' Wichtig! Nur im Exklusiv-Mode lässt sich ein Kennwort festlegen/ändern .Mode = adModeShareExclusive .Open ' Passwort festlegen sPassword = "geheim" .Execute "ALTER Database Password " & sPassword & "``" End With
Bestehendes Passwort ändern
Ein bereits vorhandenes Passwort kann natürlich jederzeit auch wieder geändert werden.
' Datenbank öffnen Dim oConn As ADODB.Connection Dim sDatabasePath As String Dim sPasswordOld As String Dim sPasswordNew As String ' Datenbankpfad und -name sDatabasePath = App.Path & "\MeineDB.mdb" ' Connection-Objekt erstellen Set oConn = New ADODB.Connection With oConn .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = sDatabasePath .Properties("Persist Security Info") = False ' altes Kennwort sPasswordOld = "geheim" .Properties("Jet OLEDB:Database Password") = sPasswordOld ' Wichtig! Nur im Exklusiv-Mode lässt sich ein Kennwort festlegen/ändern .Mode = adModeShareExclusive .Open ' Neues Passwort festlegen sPasswordNew = "neu" .Execute "ALTER Database Password " & sPasswordNew & " " & sPasswordOld End With
Passwort löschen
Und wenn man ein vorhandenes Passwort gänzlich wieder entfernen will - na wie wird's wohl gehen? Genau!
' Datenbank öffnen Dim oConn As ADODB.Connection Dim sDatabasePath As String Dim sPassword As String ' Datenbankpfad und -name sDatabasePath = App.Path & "\MeineDB.mdb" ' Connection-Objekt erstellen Set oConn = New ADODB.Connection With oConn .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = sDatabasePath .Properties("Persist Security Info") = False ' altes Kennwort sPassword = "geheim" .Properties("Jet OLEDB:Database Password") = sPassword ' Wichtig! Nur im Exklusiv-Mode lässt sich ein Kennwort festlegen/ändern .Mode = adModeShareExclusive .Open ' Bestehendes Passwort löschen .Execute "ALTER Database Password `` " & sPassword End With