1,216
社区成员
发帖
与我相关
我的任务
分享如何给ACCESS数据库添加PASSWORD？
我用VB6的可视化数据管理器做一ACCESS数据库-------ACC1.MDB
用ADO如何给ACC1.MDB添加密码？
用ADO如何给ACC1.MDB添加密码？
...全文
请发表友善的回复…
发表回复
chenyu5188 2002-11-16
- 打赏
- 举报
呵呵￣￣UP
BainStudio 2002-11-16
- 打赏
- 举报
真的可以哦!谢谢!
dreammaker 2002-11-15
- 打赏
- 举报
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBWithPW.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;"
cnn.Execute "Alter Database password 999 null"
MsgBox "已加密码999"
End Sub
试试吧！
Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBWithPW.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;"
cnn.Execute "Alter Database password 999 null"
MsgBox "已加密码999"
End Sub
试试吧！
