CODEWITHSUNDEEP
vb6
Navron
Navron

Reputation: 145

Procedure Declaration Error

As a VB6 novice, I am trying to update a legacy version of an application. However, the following code arises:

Procedure declaration does not match description of event or procedure having the same name

Here is the code snippet:

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

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

The error points to this line:

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

Any help would be appreciated

Upvotes: 2

Views: 1187

Answers (1)

xpda
xpda

Reputation: 15813

The correct signature should be:

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

More information:

http://support.microsoft.com/kb/222145

http://www.vbmigration.com/detknowledgebase.aspx?Id=105

Upvotes: 3

Related Questions