Access 2013项目中不存在ADODB,如何添加对它的引用

Question

我正在尝试在Access 2013和mdb中重建Access adp项目.这些表都是两个版本中的链接表,因此不是问题.

我从旧项目中导入了表单,因此表单布局和代码都在那里.

我遇到问题的地方是尝试执行以下代码:

Dim cmd As New ADODB.Connection, RS As New ADODB.Recordset
cmd.ActiveConnection = connectionString
Debug.Print connectionString
cmd.ActiveConnection.CursorLocation = adUseClient
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_Myproc"
cmd.Parameters.Refresh
cmd(1) = Me.my_id
Set RS = cmd.Execute

'Should be checking if record set is open and explicitly close it. JWS
If RS.State = 1 Then
RS.Close
Set RS = Nothing
End If

cmd.ActiveConnection.Close

我无法声明cmd和RS变量,因为ADODB似乎不存在.如何在Access中引用它或者实现此目的的正确方法是什么？

Answer 1

正如我在评论中所写,您需要检查是否启用了ADODB引用:

1. 在VBA编辑器上,单击"工具"菜单上的clic,然后单击"引用..."
2. 验证是否已激活"Microsoft ActiveX Data Objects xx Library"的复选标记; 如果不是,请激活它.

进一步参考:在Microsoft VB和VBA中使用ADO