Excel 数据连接锁定 Access 数据库，防止第二个连接的刷新

Question

我有两个数据连接到同一个 Access DB 中的不同查询。第二个总是失败(不管我先运行哪个)。

当我查看数据库时，我注意到它有一个锁定文件，我认为这是导致问题的原因。在我关闭 Excel 文件之前，它一直处于锁定状态。 导入完成后，谁能帮我解锁数据库？

附加信息:

我正在使用 Excel 和 Access 2010。

错误:

"The text file specification 'MyQuery Link Specification' does not exist. You cannot import, export, or link using the specification."

连接字符串(注意:我使用的是命令类型:表):

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin
;Data Source=A:\folder\folder\My Database.accdb
;Mode=Share Deny None
;Extended Properties=""
;Jet OLEDB:System database=""
;Jet OLEDB:Registry Path=""
;Jet OLEDB:Engine Type=6
;Jet OLEDB:Database Locking Mode=0
;Jet OLEDB:Global Partial Bulk Ops=2
;Jet OLEDB:Global Bulk Transactions=1
;Jet OLEDB:New Database Password=""
;Jet OLEDB:Create System Database=False
;Jet OLEDB:Encrypt Database=False
;Jet OLEDB:Don't Copy Locale on Compact=False
;Jet OLEDB:Compact Without Replica Repair=False
;Jet OLEDB:SFP=False
;Jet OLEDB:Support Complex Data=False
;Jet OLEDB:Bypass UserInfo Validation=False

最后，基于 this post ，我尝试将模式从“共享拒绝无”更改为“读取”，但没有帮助。我也不明白为什么会这样，但我试过了。

编辑:我一直在研究这个问题，但找不到解决方案。我已经尝试在我的连接字符串中添加一个附加语句 ReadOnly = True但没有运气。

Answer 1

我遇到了another issue关于数据连接，它的解决方案实际上最终也解决了这个长期存在的问题!

我的猜测是 secret 在于“MaintainConnection = False”:

Dim i As Integer
Dim awc As WorkbookConnection
Dim c As OLEDBConnection

For i = 0 to ActiveWorkbook.Connections.Count
    Set awc = ActiveWorkbook.Connections.Item(i)
    Set c = awc.OLEDBConnection
    c.EnableRefresh = True
    c.BackgroundQuery = False
    c.Reconnect
    c.Refresh
    c.MaintainConnection = False
Next i