用户定义的类型未定义ActiveX数据对象

Question

以下代码段会在标题

中生成错误

Private Sub ppdatPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, 
ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, 
ByVal pRecordset As ADODB.Recordset20)

Dim Position As Long
Position = datPrimaryRS.Recordset.AbsolutePosition
If Position = -1 Then Position = 0
datPrimaryRS.Caption = "Record: " & CStr(Position)
End Sub

我使用Microsoft ActiveX Data Objects 2.0库作为参考，因此我不确定此错误的来源。我已经尝试使用Microsoft ActiveX Data Objects 2.0库，因为我运行的是Windows 7。

Answer 1

我刚刚给它一个go，看起来错误来自ADODB.Recordset20。如果从末尾删除20，那么它就可以了，或者如果你不能改变声明，你可以引用Microsoft ActiveX Data Objects 2.6。