ADODC问题

Question

在书上有个过程，原意是想在ADODC上显示当前记录位置，可我运行时出错，
原过程如下
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "记录：" & (Adodc1.Recordset.AbsolutePosition)
End Sub
我试改为
Adodc1.Caption = "记录：" & cstr(Adodc1.Recordset.AbsolutePosition)
一样不行，
出错提示
编译错误：
过程声明与同名事件或过程的描述不符

Answer 1

删除这段代码，重新在代码窗口左上角的下拉框中选择Adodc1，在右上角选择MoveComplete，vb会重新生成这个声明过程。

Answer 2

kissoflife(明月高楼休独倚，酒入愁肠，化作相思,你的办法我早试过了，不行呀，如何改呀？

Answer 3

试试这个
Adodc1.Caption = "记录：" + Str(pRecordset.AbsolutePosition)

Answer 4

试试看这个:
Adodc1.Caption = "记录：" & cstr(pRecordset.AbsolutePosition)

Answer 5

我把它改为
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "记录：" 
End Sub
这样也不行，我又试着把中间这句注释了，竞也是一样的出错提示。把过程全注了，就通过了，这是为什么？？？

Answer 6

up
我也遇到同样的问题
sp5在哪里啊

Answer 7

经过反复查找，我发现当引用ADO2。0时，程序可以正常运行，2。1以后出错，请问这是为什么？应如何改，以便让程序可以在ADO2。5正常运行。

Answer 8

这是在对象浏览器中事件 WillMove 的声明.
Event WillMove(adReason As EventReasonEnum, adStatus As EventStatusEnum, pRecordset As Recordset)
===============================================
这是的实例事件声明.
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End Sub
你复制 Adodc1_WillMove 过去看看!!

Answer 9

只有三个参说,但是,你的声明中却有四个参数,多了一个 ByVal pError As ADODB.Error

Answer 10

Adodc1.Caption = "记录：" & (Adodc1.Recordset.AbsolutePosition+1)试试看