使用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

(责任编辑：admin)

• ·关于 Partition 函数在分组查询中的应
• ·Access算术运算符的含义和说明表
• ·mid函数的另类用法
• ·access制作程序运行进度框
• ·Function与Sub的异同（函数调用）
• ·Access判断某个数值是否为某个数据类型
• ·select case后面语句块的值的四种格式
• ·vba条件语句的两种表示方法
• ·Access几种数据类型初始化的值
• ·Access vba null与＂＂空字符串的区别
• ·access vba 数据类型表
• ·Access变量的命名规则
• ·Access中EXIT Sub与End Sub的区别
• ·Access vba中参数前关键字ByRef和ByVal
• ·Access列表框快速全选的技巧【最快】
• ·vba函数的数据类型强制转换