无法使用 ADO 连接到 Access 数据库答案

【问题标题】：Unable to connect to Access database with ADO无法使用 ADO 连接到 Access 数据库
【发布时间】：2013-04-13 04:03:05
【问题描述】：

我需要将存储在 .txt 文件中的一堆表导入 Access 数据库。完成导入后，我使用 ADO 连接在数据库和 Excel 工作簿之间进行通信。我将 Access 数据库设置为压缩并在关闭时修复。

问题是，当我在导入文件后关闭数据库时，我无法在不等待任意时间的情况下使用 ADO 进行连接。当我尝试连接但失败时，访问窗口似乎已关闭。我发现我必须等待的时间与导入后数据库的大小有关。导入最大的文件集后，即使等待 60 秒也不够。

有什么方法可以强制打开连接吗？如果失败，我如何检查它是否已准备好连接？

这是我正在使用的一些代码：

MDB_Address = "C:\example.mdb" 
Shell "cmd /c " & Chr(34) & MDB_Address & Chr(34), vbHide
'Some code that tests if it has opened happens here
 ...

Set ObjAccess = GetObject("C:\example.mdb")

' Import tables here

ObjAccess.Quit

Call CloseAccess
Call Wait

mdbPath = "C:\example.mdb"
Set mdbConnection = CreateObject("ADODB.Connection")
' The line below gives a run time error. The description is "Automation error Unspecified Error"
mdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & mdbPath

Sub CloseAccess
' I have set up the access database to write a flag to a .txt file when a
   userform closes and use this to help check if it has closed.
End Sub

Sub Wait
' Wait 5 seconds. The access window appears to be closed.
Dim nHour As Date, nMinute As Date, nSecond As Date, waitTime As Date

nHour = Hour(Now())
nMinute = Minute(Now())
nSecond = Second(Now()) + 5
waitTime = TimeSerial(nHour, nMinute, nSecond)
Application.Wait waitTime
End Sub

【问题讨论】：

example.mdb 有用户 ID 和密码吗？如果是，请将它们放在连接字符串中。
@Santosh，不，他们不应该需要用户 ID 和密码。他们的关键点是我可以使用上面的代码很好地连接到 mdb，但只有在数据库关闭后我等待了任意时间（比如 60 秒）之后。
@ 在调用 CloseAccess 过程中，请确保访问实例已关闭。设置 ObjAccess = 什么都没有。如果正确完成，则您的数据库已准备好连接。
感谢您的建议桑托什。当您说我必须确保 Access 的实例已关闭时，我认为您正在做某事。但是，设置 objAccess = Nothing 并没有帮助。
编辑：我认为在使用 GetObject 函数将其分配给变量之前，指出我正在使用 shell 函数打开访问权限会很有用。我正在研究使用 Windows API 函数来测试它是否已关闭。

标签： excel ms-access vba ado

【解决方案1】：

这是我最终测试数据库是否关闭的方法。我使用 Windows API 函数来获取 Access 数据库的进程句柄，然后获取其退出状态。

这似乎工作得很好。当然还有其他方法可以做到这一点 - 我认为在目录中创建了一个 ldb 文件，它可能会检查它的存在。

Private Declare Function OpenProcess Lib "kernel32" _
    (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _
    (ByVal hProcess As Long, lpExitCode As Long) As Long

'Open the data base
TaskID = Shell("cmd /c " & Chr(34) & MDB_Address & Chr(34), vbHide)
ACCESS_TYPE = &H400
hProc = OpenProcess(ACCESS_TYPE, False, TaskID)

'Some code that tests if it has opened happens here
 ...

Set ObjAccess = GetObject("C:\example.mdb")

' Import tables here

ObjAccess.Quit

Call CloseAccess

Sub CloseAccess()

    Dim test As Long

    'Test if the database has closed

    Do Until lExitCode <> 259 And test <> 0
        test = GetExitCodeProcess(hProc, lExitCode)
        DoEvents
    Loop

End Sub

【讨论】：