如何在 Excel VBA 和访问中使用 DAO 停止密码提示

Question

我正在使用 DAO 在 Excel 中使用 vba 对受密码保护的 Access 数据库运行查询，偶尔在运行子时会打开一个 Access 实例以及一个要求输入数据库密码的窗口，不输入密码并按取消没有区别，查询仍然运行并显示输出， 有没有办法阻止访问打开并要求输入密码？

Dim MyDatabase As DAO.Database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset
Dim DB_Name As String
Dim cond As String
Dim pWord As String
Dim wb As Workbook: Set wb = ThisWorkbook
With wb
On Error GoTo ErrHandler:
clearRange.Value = ""
DB_Name = DataBname()
pWord = pwd()
Set MyDatabase = DBEngine.Workspaces(0).OpenDatabase(DB_Name, False, True, pWord)
Set MyQueryDef = MyDatabase.QueryDefs(queryName) 'Query Name
Set MyRecordset = MyQueryDef.OpenRecordset 'Open the query
pasteRange.CopyFromRecordset MyRecordset
failRange.Value = False
My_Exit:
If MyRecordset Is Nothing Then
'Do Nothing
Else
MyRecordset.Close
Set MyRecordset = Nothing
End If
If MyDatabase Is Nothing Then
'Do Nothing
Else
MyDatabase.Close
Set MyDatabase = Nothing
End If
End With
Exit Sub
ErrHandler:
MsgBox Err.Description
failRange.Value = True
Resume My_Exit
End Sub
Function pwd() As String
pwd = "MS Access;PWD=password"
End Function

Answer 1

若要解决此问题，必须将工作簿中的引用从DAO.36更改为 Office XX.0 Access 数据库引擎对象库Microsoft。

我已经用Access 2010和Access 2013测试了代码，它工作正常。

此致敬意

Answer 2

你的代码没有任何问题。 使用 Access 2003 后端进行测试。 如果使用 Access 2007 及更高版本，则必须在数据库选项中将密码处理设置为旧版。

此致敬意