系统自动生成的:
Private Sub Ac1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
但编译时报:“过程声明与同名事件或过程的描述不匹配。”
但在有的机子上又没有报错。

解决方案 »

  1.   

    引用 Microsoft ActiveX Data Object Library 2.x
    有些版本仅仅引用 ADODC 控件是不够的。
      

  2.   

    我引用的是 Microsoft ActiveX Data Object Library 2.5,但不行
      

  3.   

    是这样的:
    你的工程一定是一个旧有的工程,现在重新编译。
    你原来的 ADO 引用较老,现在换新版本了,ClsID 不同,引用出现了问题。解决方法:
    将原来的事件代码剪切另外保存。
    重新生成事件框架,将代码粘贴进来。或者,将原来版本无关的声明,改为版本相关(根据原来的版本):
    例如:
    Private Sub Ac1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.[_Recordset15])或
    Private Sub Ac1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset20)