UC知道这个VB中的一段代码，我运行不了，请高手帮我解决一下，急啊！！
来源：百度知道 编辑：UC知道 时间：2024/05/27 19:04:51
Private OK As Boolean
'记录按"确定"的次数
Dim micount As Integer
Private Sub form_load()
OK = False
micount = 0
End Sub
Private Sub cmdOK_Click()
'用来存放SQL语句
Dim txtSQL As String
'用来存放记录集对象
Dim mrc As ADODB.Recordset
'用来存放返回信息
Dim msgtext As String
UserName = ""
'判断输入用户是否为空
If Trim(txtUserName.Text = "") Then
MsgBox "没有这个用户,请输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'查询指定用户钟摆记录
txtSQL = "select * from User _ info where User _ id=" & "'" & Trim(txtUserName.Text) & "'"
'执行查询语句
Set mrc = ExecuteSQL(txtSQL, msgtext)
5 If mrc.EOF = True Then
MsgBox "没有这个用户,请重新输入用户名", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then '判断密
'记录按"确定"的次数
Dim micount As Integer
Private Sub form_load()
OK = False
micount = 0
End Sub
Private Sub cmdOK_Click()
'用来存放SQL语句
Dim txtSQL As String
'用来存放记录集对象
Dim mrc As ADODB.Recordset
'用来存放返回信息
Dim msgtext As String
UserName = ""
'判断输入用户是否为空
If Trim(txtUserName.Text = "") Then
MsgBox "没有这个用户,请输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'查询指定用户钟摆记录
txtSQL = "select * from User _ info where User _ id=" & "'" & Trim(txtUserName.Text) & "'"
'执行查询语句
Set mrc = ExecuteSQL(txtSQL, msgtext)
5 If mrc.EOF = True Then
MsgBox "没有这个用户,请重新输入用户名", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then '判断密
怎么运行不了,有什么问题?
在哪条语句上?
说明一下
floatingsnows 说的是,也都没有把问题说清楚
Dim mrc As ADODB.Recordset
肯定是这里没用引用吧
个个都是找高手的 我们这些菜鸟就路过！知道我也不告诉你！哼！
当中怎么出现三个
End If
End If
End If
另外：最后有两个
End Sub
End Sub