Access数据库中如何修改用户密码？

Question

我想问下在Access中如何修改用户密码的编程？用VBA编的
并且要把用户表里面的数据也要更新！~
谢谢

Answer 1

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