compile error:User-defined type not defined ,高手帮帮忙,必给分!

zl17 2003-05-14 11:31:53
Dim iTp As Integer
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim slSql As String
Dim i, j As Integer
Dim strBak(2) As String

Private Sub Form_Load()
Dim cnt As Integer

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
'"Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\WINDOWS\Desktop\dataUse.mdb"
con.Open "provider=Microsoft.Jet.OLEDB.3.51; data source= " & App.Path & "\mybook.mdb"
rs.Open "select * from person", con, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
displayInfo
CanSave (False)

Else
'new data
CanSave (True)
Call Command2_Click(0)

End If
Command1(0).Enabled = False
End Sub

****************
为什么我运行程序,
总是提示: compile error:
User-defined type not defined
出错行高亮显示为第2行。
到底什么原因?高手帮帮忙,必给分!

...全文
369 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxqlogo0 2003-05-14
  • 打赏
  • 举报
回复
同上
zpec 2003-05-14
  • 打赏
  • 举报
回复
同上
ecivilian 2003-05-14
  • 打赏
  • 举报
回复
没有引用ADO,在“引用”里把Microsoft ActiveX Objects 2.x Library选中.
ganzhiruogy 2003-05-14
  • 打赏
  • 举报
回复
没有引用ADO
zl17 2003-05-14
  • 打赏
  • 举报
回复
3q
bingxuehuiren 2003-05-14
  • 打赏
  • 举报
回复
菜单上的工程里有引用,英文版是project-->references
zl17 2003-05-14
  • 打赏
  • 举报
回复
ecivilian(抽象青年) :

“引用”在哪里?我怎么找不着?

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧