(求助)VB 运行 事实错误91 对象变量或with块变量未设置

xiaoxiaosering 2011-05-17 04:22:30
Private Sub cmbOK_Click()
If Trim(cmbUserName.Text) = "" Then
MsgBox "用户名不能为空!", vbOKOnly + vbExclamation, "警告!"
cmbUserName.SetFocus
Exit Sub
End If

connstring = "Provider=SQLOLEDB.1;Password=ecc;Persist Security Info=True;User ID=sa;" & "Initial Catalog=PurchaseandSale;Server=(local)"

If conn.State <> 1 Then
conn.Open (connstring)
End If

Set rs = conn.Execute("select * from users where 用户='" & Trim(cmbUserName.Text) & "'")
If rs.EOF Then
MsgBox "没有该用户!" & vbCrLf & "请重新输入!", vbOKOnly + vbExclamation, "提示"
cmbUserName.SetFocus
Exit Sub

Else
rs.MoveFirst
If rs.Fields("密码").Value = Trim(txtPWD.Text) Then
Unload Frmlogin
Load frmMain
frnMain.Show
Else
If num < 2 Then
num = num + 1
MsgBox "口令不对,请重新输入!" & vbCrLf & "您还有" & Str(3 - num) & "次机会!", vbOKOnly + vbExclamation, "提示"
txtPWD.SetFocus
Exit Sub

Else
MsgBox "对不起,您无权使用本系统!", vbOKOnly + vbExclamation, "提示"
Unload Frmlogin
Exit Sub
End If
End If
End If
conn.Close

End Sub
...全文
140 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
clear_zero 2011-05-17
  • 打赏
  • 举报
回复
[Quote=引用 6 楼 chinayuppie 的回复:]

set conn=new adodb.connection
set rs=new adodb.recordset
[/Quote]
阿 我写错了,这个是对的
booksoon 2011-05-17
  • 打赏
  • 举报
回复
set conn=new adodb.connection
set rs=new adodb.recordset
xiaoxiaosering 2011-05-17
  • 打赏
  • 举报
回复
这句 If conn.State <> 1 Then 你说那个我也加上了 还是原来的错误
[Quote=引用 4 楼 clear_zero 的回复:]
你在你的函数里面加上
set conn=adodb.connection
set rs=adodb.recordset

你到底在哪句出问题?
[/Quote]
clear_zero 2011-05-17
  • 打赏
  • 举报
回复
你在你的函数里面加上
set conn=adodb.connection
set rs=adodb.recordset

你到底在哪句出问题?
xiaoxiaosering 2011-05-17
  • 打赏
  • 举报
回复
程序最前面就定义了的
[Quote=引用 1 楼 clear_zero 的回复:]
如你没有定义conn,rs的请定义

set conn=adodb.connection
set rs=adodb.recordset
[/Quote]
xiaoxiaosering 2011-05-17
  • 打赏
  • 举报
回复
在最前面就定义了的。。。。。
clear_zero 2011-05-17
  • 打赏
  • 举报
回复
如你没有定义conn,rs的请定义

set conn=adodb.connection
set rs=adodb.recordset

7,759

社区成员

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

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