VB“实时错误91,对象变量或with或块变量未设置”如何解决呀？？急！！！

来源：百度知道编辑：UC知道时间：2024/06/11 05:02:00

代码如下：
Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
'ToDo: create test for correct password
'check for correct password

UserName = ""
If Trim(txtUserName.Text = "") Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Not mrc.EOF Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide

sql的数据库是否存在？

Private Sub CmdOK_Click()
'这里后面加
Adodc1.RecordSource = "select * from dl where 用户名='" & TxtUserName.Text & "'"
Adodc1.Refresh

'我给你改了一下
Private Sub cmdOK_Click()
Dim txtSQL As String
Dim cn As ADODB.Connection
Dim mrc As ADODB.Recordset
Dim MsgText As String
'ToDo: create test for correct password
'check for correct password
Set cn = New ADODB.Connection
Set mrc = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb" '这里改成你的数据库
cn.Open

UserName = ""
If Trim(txtUserName.Text = "") Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
txtSQL = "select * from user_Info where user_ID = '" &

vb 实时错误‘91’对象变量或 With 块变量没有设置我运行VB程序时出现实时错误‘91’ 对象变量或with块变量未设置为什么实时错误'91': 对象变量或With块变量未设置实时错误'91'对象变量或with块变量未设置(在线等) VB中对象变量或with块变量错误（91号错误） vb中实时错误对象名无效 vb 实时错误91 VB实时错误‘91’ VB 对象变量或with块变量未设置 VB实时错误'424'要求对象