仓木麻衣照片:这个错误是怎么回事啊？

来源：百度文库编辑：中科新闻网时间：2024/05/09 19:49:07

Private Sub cmdOK_Click()

If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名或密码不能为空", vbOKOnly, "警告"
Text1.SetFocus
End If

If Text1.Text = Adodc1.Recordset.Fields("username").Value And Text2.Text = Adodc1.Recordset.Fields("password").Value Then
Form2.Show
Me.Hide
Else
MsgBox "用户名或密码错误", vbOKOnly, "错误提示"
End If
If Adodc1.Recordset.EOF = True Then
MsgBox "无此用户", vbOKOnly, "提示"
Text1.SetFocus
End If
End Sub
运行后，一输入用户名，密码点击登陆后就提示“对象变量或with块变量未设置”这是哪里有问题啊？
调试时是显示If Text1.Text = Adodc1.Recordset.Fields("username").Value And Text2.Text = Adodc1.Recordset.Fields("password").Value Then
这句的问题

Adodc的密码登陆
Adodc1.RecordSource = "select * from 表名 where username='" & Text1.Text & "'and password='" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "用户名或密码错误", 16, "错误提示"
Text1.SetFocus
Else
Form2.Show
Me.Hide
End If

这个错误是怎么回事啊？硬盘报这个错误是怎么回事啊? 请问这个错误是怎么回事? 请问这个qq错误是怎么回事? 遨游在关闭的时候跳出这个错误是怎么回事啊？游戏中出现这个错误是怎么回事? 谁知道这个XP的应用程序错误是怎么回事 Internet Explorer 老是有这个错误是怎么回事大家帮忙看看这个错误是怎么回事?tomcat DSP调试出现这个错误是怎么回事？