VB问题???

gxlxxiaojun 2004-11-19 01:09:57
我编写一个登录的小程序,点Command1(确定)按钮
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strsql As String
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open Connstring
strsql = "select * from 1 where a='" & Text1.Text & "'"
rst.Open strsql, cnn, adOpenStatic, adLockReadOnly
If rst.EOF = True And rst.BOF = True Then
MsgBox "用户名或密码错误!", 48 + vbOKOnly, "提示信息"
Else
Set rst = Nothing
Set cnn = Nothing
MsgBox "登录成功!", 48 + vbOKOnly, "提示信息"
Exit Sub
运行时出现以下的错误:
编译错误:用户定义类型未定义
请问怎么解决???

...全文
150 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
lpzwm 2004-11-19
  • 打赏
  • 举报
回复
添加ADO的引用吧
Dickson 2004-11-19
  • 打赏
  • 举报
回复
都说了,我说什么???
我也说!
引用ADO~~~
wenany1687 2004-11-19
  • 打赏
  • 举报
回复
直接在工具箱添加ADO控件就行了!
lxtlwd 2004-11-19
  • 打赏
  • 举报
回复
up
creazyfish 2004-11-19
  • 打赏
  • 举报
回复
"工程"--"引用"中选择 Microsoft ActiveX Data Objects 2.X Library
添加ado的引用
flyingZFX 2004-11-19
  • 打赏
  • 举报
回复
添加Ado的引用。。。
ivan2525 2004-11-19
  • 打赏
  • 举报
回复
tztz520(午夜逛街) 正解也。。。添加Ado的引用。。。
行云边 2004-11-19
  • 打赏
  • 举报
回复
或引用
Microsoft ActiveX Data controls 2.x
tztz520 2004-11-19
  • 打赏
  • 举报
回复
要在菜单中的"工程"--"引用"中选择 Microsoft ActiveX Data Objects 2.X Library
slmn 2004-11-19
  • 打赏
  • 举报
回复
引用一下
Microsoft ADO Data Control 6.0

7,785

社区成员

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

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