如何解决如何使用 Access/ADOB 连接克服 VBA 中缺少的参考/库?
我有一个用于访问数据库的“excel 前端”。这个想法是让 10 个用户拥有自己的电子表格,该电子表格可以查询数据库中与他们相关的项目,然后他们还可以通过宏进行响应并写回数据库。
代码如下:
Sub update_access()
Dim wb As Workbook
Set wb = ThisWorkbook
Dim cn As ADODB.Connection,rst As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=S:\Public\XYZ\XYZ\XYZ\XYZ\XYZ.mdb;"
' open a recordset
Set rst = New ADODB.Recordset
rst.Open "qryXYZ",cn,adOpenKeyset,adLockOptimistic,adCmdTable
g = Range("A2").End(xlDown).Row
For f = 3 To g
If Cells(f,11) <> "" Then
lnId = Cells(f,1)
rst.Filter = "ID = " & lnId
With rst
.Fields("response") = Cells(f,11)
.Update
End With
Cells(f,11).ClearContents
End If
Next f
wb.RefreshAll
MsgBox ("All finished!")
End Sub
当我测试它时,它在我自己的 PC 上运行良好,但是当将它发送给用户时,他们都收到了相同的“未找到/丢失的项目或库”
在进一步调查和阅读时,我发现了一篇关于 Missing libraries 的帖子,在我的例子中: Missing: Microsoft Access 16.0 Object Library
。不知道从哪里开始,这是否意味着用户需要在他们的 PC 上安装访问权限才能访问库,或者可以将我的 GUID/引用的副本复制到他们的程序文件(x86)中(与我的参考资料在哪里)
开始进入我不想涉足的领域,因为这可能意味着要求 IT 部门这样做,有人能想到替代解决方案吗?
除此之外,我不得不求助于将数据库保存为 .mdb
而不是 .accdb
作为 "Provider=Microsoft.Jet.OLEDB.4.0; " & _
是否有人知道正确的连接类型/提供程序以使我能够访问.accdb
因为我觉得我通过使用旧版本的访问权限来使我的代码正常工作而被欺骗了?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。