Access数据库中的密码

这个是通过MD5加密的，你可以有两种方法，

第一：在网上找MD5解密，把这段代码解成正常的密码，如果密码太复杂就要收费了，

第二：你自己弄个密码，用MD5加密，把加密后的代码替换原来那个，就用新密码登陆

Connstr = "driver={Microsoft Access Driver (mdb)};pwd=123"

dbcopen Connstr & ";dbq=" & ServerMapPath("date/fghsdfmdb")

pwd=123

123就是密码，你对照修改下！

先把access数据库（根目录下的database文件夹里边的文件）给下载下来，然后用access程序来打开了，找到Ameav_Admin，打开就可以看见用户名和密码了，密码是经过md5加密的，然后在 >

方法步骤：

1 首先，以独占方式打开你要加密的数据库。打开方法如图：

2 打开后，点“文件”--“信息”，在关于你这个数据库的信息页面，有“用密码进行加密”一项。

3 点击这一项，d出的就是设置密码框了

4 确定后，以后打开或连接该数据库，都要使用你设置的密码了。

进入access，点击文件，打开选择所要修改密码的文件，以独占方式打开。

输入密码打开文件，然后点击文件———信息——解密数据库。

解除密码后，在点击文件——信息——用密码进行加密，设置新的密码即可。

注意

一定要以独占方式打开才能设置。

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

Data1DatabaseNewPassword 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

dbNewPassword 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

cnnExecute strsql

End If

End If

'Update variable

strPassword = strNewPassword

WriteCaptions fDAO

End Sub

打开一个Access数据库文件，此时能够正常打开，不需要输入密码。

依次打开选项如下，文件，信息，用密码进行加密。

此时，d出对话框，要设置或删除数据库密码，必须以独占方式打开数据库。

点击文件，打开选项。选中需要打开的数据库。点击打开按钮右侧的小三角，选择以独占方式打开。

依次打开选项如下，文件，信息，用密码进行加密。此时能够进行加密数据库。以下为加密数据库对话框。

重启数据库文件，提示需要输入密码。

如果需要修改密码，依次打开文件，信息，解密数据库。修改密码也需要用独占方式打开。以下是修改密码对话框。

以上就是关于Access数据库中的密码全部的内容，包括:Access数据库中的密码、ACCESS数据库设置密码123456,要怎么修改连接、怎样破解access数据库的后台密码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！