多用户环境下Excel Add-In的VBA+DAO数据库访问异常问题问询

我来帮你搞定这个多用户访问的bug——单用户正常但多人同时用就出问题，大概率和DAO的连接模式、资源管理或者服务器文件权限有关。先从你贴的代码入手拆解：

你当前用的是：

Set db = OpenDatabase(g400DBPath, , True)
Set rs = db.OpenRecordset(sSQL, dbOpenSnapshot)

这里OpenDatabase的第三个参数True是只读模式打开，但即使只读，多用户场景下Jet/ACE引擎也需要处理共享锁定和临时文件，这就是问题的高发区。下面是具体的解决步骤：

1. 先排查服务器文件的基础权限 #

• 确保存放数据库的服务器文件夹给所有访问用户开了读取+写入权限——别以为只读访问就不需要写入，Jet/ACE需要创建临时锁定文件（比如.laccdb或.ldb），没有写入权限会直接失败
• 检查数据库文件本身有没有被设为「只读」属性，右键文件→属性里确认取消只读勾选

2. 显式指定DAO连接的共享参数 #

你代码里第二个参数留空了，这个参数是Exclusive（独占模式），默认是False，但显式写出来更稳妥，避免不同环境下的默认行为差异：

' 显式指定非独占、只读模式打开数据库
Set db = OpenDatabase(g400DBPath, False, True)

如果你的Add-In需要写入数据，把第三个参数改成False（可读写），但后续要注意记录集的锁定策略。

3. 优化记录集的使用与资源释放 #

这是多用户场景下最容易忽略的点：

• 对于快照记录集，加上dbReadOnly选项明确只读属性，减少引擎的锁定判断：

  Set rs = db.OpenRecordset(sSQL, dbOpenSnapshot, dbReadOnly)
  

• 必须及时关闭并释放连接和记录集，不要让连接长时间挂着，否则会占用资源甚至残留锁定：

  ' 用完后一定要清理资源，放在错误处理块里更保险
  Sub CleanupResources()
      If Not rs Is Nothing Then
          If rs.State = dbOpen Then rs.Close
          Set rs = Nothing
      End If
      If Not db Is Nothing Then
          db.Close
          Set db = Nothing
      End If
  End Sub
  

建议把清理逻辑放在On Error的错误处理块里，确保即使代码报错也能释放资源。

4. 升级DAO引擎版本 #

如果你的数据库是.accdb格式（Access 2007+），检查Excel Add-In的引用：

• 打开VBA编辑器→工具→引用，确保勾选的是Microsoft Office XX.X Access Database Engine Object Library（XX.X对应你的Office版本，比如16.0是Office 2019/365），旧版本的DAO在多用户共享场景下有已知的锁定问题。

5. 清理残留的锁定文件 #

多用户访问时，Jet/ACE会生成锁定文件（.laccdb对应.accdb，.ldb对应.mdb），如果用户异常退出，这个文件可能残留，导致后续用户无法连接。可以在确认所有用户都退出后，手动删除这个锁定文件。

额外建议 #

• 尽量缩短数据库连接的生命周期：按需打开，查询完立刻关闭，不要长时间保持连接
• 对于频繁查询的固定数据，可以考虑在Add-In里做本地缓存，减少重复的数据库访问请求

内容的提问来源于stack exchange，提问作者Glenn G