问题描述
我有一个用于访问数据库的“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 (将#修改为@)