vb中变量未设置或是with变量未设置

来源：百度知道编辑：UC知道时间：2024/05/21 23:00:58

Private Sub cmdOK_Click()
'ToDo: create test for correct password
'check for correct password
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 mrc.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK =

Dim mrc As New ADODB.Recordset
Set mrc = ExecuteSQL(txtSQL, MsgText)

ExecuteSQL是一个函数，你看你的所有代码中有没有这个函数，然后把Set去掉看看！重要的还是找有没有ExecuteSQL这个函数！

提示你哪一行出错了？

我找到了ExecuteSQL函数的呀去掉也也不行呀！！现在应该怎么弄呢？麻烦知道的帮帮忙哦谢谢哦~

vb中对象变量或是with未设置,在线等啊 VB 循环中提示with变量未设置 VB 对象变量或with块变量未设置对象变量或with块变量未设置在vb程序设计中，出现这个问题是为什么啊我运行VB程序时出现实时错误‘91’ 对象变量或with块变量未设置 vb+SQL做一个登录界面，报错"对象变量或With块变量未设置" 对象变量或WITH块变量未设置 vb做的系统打包后出现一处语法错误'91'下面提示未设置对象变量或with block变量是怎么一回事呀，为什么实时错误'91': 对象变量或With块变量未设置实时错误'91'对象变量或with块变量未设置(在线等)