excel - ADODB.Connection & ADODB.Recordset - 用户定义类型未定义

Question

使用 VBA 连接 Access DB 时遇到一个奇怪的错误。 VBA 代码如下所示:

Sub DBC()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    Set cn = New ADODB.Connection

    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\Bmcstr01\grp\SRV\Allsrv\Resource Planning\Forecasting & MI\MI\backup DM\HH Complaints\Database (TCS Version)\Complaints DB.accdb;"

    Set rs = New ADODB.Recordset

    rs.Open "Access_Log", cn, adOpenKeyset, adLockOptimistic, adCmdTable

    rs.Filter = "ID='335266' AND Work='Test'"
    rs("Login").Value = "02/07/2018"
    rs.Update
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub

它给出的错误是:“编译错误:用户定义类型未定义”，它指向子的第一行。

我的表存在于数据库中。它的结构如下:

ID  Login   Work
335266  04/07/2018  Test
335266  03/07/2018  Test2

谁能帮我解释它不接受 ADODB 的原因以及如何解决这个问题？

Answer 1

转到 VBE 的工具、引用，然后找到并在“Microsoft ActiveX 数据对象 6.1 库”旁边打勾，以将该库包含在您的项目中。