如何用VBA更改数据库密码？

题：

 如何用VBA更改数据库密码？

 

方法一：

 用DAO方式处理
Private Sub cmdChangeDAO_Click()
    Dim strNewPassword As String
   
    'Check if a database is open
    If fDC Then 'using data control
        'Get new password
        strNewPassword = InputBox("Please type in new password. Leave blank to remove password protection")
        'Change password
        Data1.Database.NewPassword strPassword, strNewPassword
    Else
        If strSource = "" Then
            MsgBox "No current database open"
        Else
            'Get new password
            strNewPassword = InputBox("Please type in new password. Leave blank to remove password protection")
            'Change password
            db.NewPassword strPassword, strNewPassword
        End If
    End If
    'Update variable
    strPassword = strNewPassword
    WriteCaptions fDAO
End Sub

 

 

方法二：

 用ADO处理

Private Sub cmdChangeADO_Click()
    Dim strNewPassword As String
    Dim strsql As String
   
    If fDC Then 'using data control
        'cannot change password from ADODC
        MsgBox "You have opened the database with ADODC data control. This control is not capable of changing the database password." & vbCrLf & "Use ADO Code connection string to achieve this."
    Else
        'Check if a database is open
        If strSource = "" Then
            MsgBox "No current database open"
        Else
            'Get new password
            strNewPassword = InputBox("Please type in new password. Leave blank to remove password protection")
            'Change password
            If strNewPassword = "" Then 'Remove password
                strsql = "ALTER Database Password `` " & strPassword
            Else
                If strPassword = "" Then 'no current password
                     strsql = "ALTER Database Password " & strNewPassword & " ``"
                Else 'straight forward change
                    strsql = "ALTER Database Password " & strNewPassword & " " & strPassword
                End If
            End If
            cnn.Execute strsql
        End If
    End If
    'Update variable
    strPassword = strNewPassword
    WriteCaptions fDAO
End Sub