如何设置access数据库的密码?

Question

你先打开access
然后就会有一个打开选择框
选择打开更多数据库
然后就有独占了

Answer 1

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 888 null"
  MsgBox "修改完毕"
End Sub

Answer 2

打开数据库，设置数据库模式为独占，然后选则工具－》安全设置密码打开带有密码数据库
Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String
Set cnn1 = New ADODB.Connection
cnn1.Open "provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Jet OLEDB:Database Password=1111"Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from 11", cnn1Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close

Answer 3

可以参阅MSDN中DAO的Newpassword方法

Answer 4

Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String
Set cnn1 = New ADODB.Connection
cnn1.Open "provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Jet OLEDB:Database Password=1111"Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from 11", cnn1Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close这种方法是可行的，但好像有点缺陷。