HandsOn Deleting a Database Password

This procedure requires prior completion of Hands-On 22-1 and 19-3 (Chapter 19).

1. Switch to the Visual Basic Editor window and insert a new module.

2. In the module's Code window, enter the DeleteDbPassword procedure as shown below.

Sub DeleteDbPassword()

Dim conn As ADODB.Connection Dim strPath As String

Programming with the Jet Data Definition Language

Dim strPass As String

On Error GoTo ErrorHandler strPath = CurrentProject.Path strPass = "secret"

Set conn = New ADODB.Connection

With conn

.Mode = adModeShareExclusive .Open "Provider = Microsoft.Jet.OleDb.4.0;" & _ "Data Source=" & strPath & "\Sites.mdb;" _ & "Jet OLEDB:Database Password = " & strPass .Execute "ALTER DATABASE PASSWORD null secret" End With ExitHere:

If Not conn Is Nothing Then

If conn.State = adStateOpen Then conn.Close End If

Set conn = Nothing Exit Sub ErrorHandler:

MsgBox Err.Number & ":" & Err.Description Resume ExitHere End Sub

0 0

Post a comment