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

2011-05-17 04:22:30 189 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

xiaoxiaosering 墨衍会员 · AI 创作全网分发关注 + 加入社区

【VB】实时错误“91” 实时错误“91”困扰了自己十天之久，但是在经过不断地纠正代码和浏览博客，“91”问题基本解决，下面是我总结的一点知识，供大家参考~一、“空格”问题 1、“=”与“’”之间有空格，如果你是照着PDF敲的代码，要注意这也是经常被忽视的错误 2、在一句完全的查询语句中，比如 txtSQL = "select * from class_Info where class_No= '" &am... 阅读详情

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

...全文