UC知道这么修改,为什么还报错!!VB代码,新手!想不通了
来源：百度知道 编辑：UC知道 时间：2024/07/01 14:04:01
Private Sub cmdOK_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then
MsgBox "用户名或密码不能为空，请重新输入！"
Text2.Text = ""
Text1.SetFocus
Else
sql = "select * from 用户表 where user_ID='" & Trim(Text1.Text) & "'"rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
Trim(rs_login.Fields(0)) = Trim(Text1.Text)
If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then
MsgBox "用户名或密码不能为空，请重新输入！"
Text2.Text = ""
Text1.SetFocus
Else
sql = "select * from 用户表 where user_ID='" & Trim(Text1.Text) & "'"rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
Trim(rs_login.Fields(0)) = Trim(Text1.Text)
If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then
Trim(rs_login.Fields(0)) = Trim(Text1.Text)
这句是赋值语句，但这样写是不对的，如果要对rs_login.Fields(0)赋值，也应该使用
rs_login.Fields(0) = Trim(Text1.Text)来进行
如果理解为逻辑运算表达式的话，缺少if 之类的语句或缺少被赋值变量
Trim(rs_login.Fields(0)) = Trim(Text1.Text)
这句都不需要.因为TEXT1你已经输入了!而且是用来查询的.