您所在位置：主题：VB使用中的一个问题,急请高手指导
lishendg
[专家分：0] 发布于 2006-12-03 12:32:00
我在做一个简单的数据库,由于是新学VB,所以我按课本的例子做,其中输入完代码后运行,显示有一个错误,相关代码如下:
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB, EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventReasonEnum, ByVal pRecordset As ADODB.Recordset)
'为这个recordset显示当前记录位置
datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub
错误提示:
缺少用户定义类型,不是工程
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB, EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventReasonEnum, ByVal pRecordset As ADODB.Recordset)
'为这个recordset显示当前记录位置
datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub
错误提示:
缺少用户定义类型,不是工程
