Question

请VB高手帮我看看这段代码是哪里出问题了啊，

Private Sub Command1_Click()

If Trim(Combo1.Text) <> "" And Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" Then
Adodc1.RecordSource = "select * from用户名及密码 where 身份='" + Trim(Combo1.Text) + "' and 用户名='" + Trim(Text1.Text) + "'" + "' and 密码='" + Trim(Text2.Text) + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 1 Then
Adodc1.Recordset.Close
Form2.Show
Me.Hide
Else
MsgBox "错误的账号或密码！", vbInformation + vbOKOnly, "错误信息"
Text1.Text = ""
Text2.Text = ""
Combo1.SetFocus
End If
ElseIf Combo1.Text = "" And Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" Then
MsgBox "身份不能为空！", vbInformation + vbOKOnly, "错误信息"
Combo1.SetFocus
ElseIf Combo1.Text <> "" And Trim(Text1.Text) = "" And Trim(Text2.Text) <> "" Then
MsgBox "用户名不能为空！", vbInformation + vbOKOnly, "错误信息"
Text1.SetFocus
ElseIf Combo1.Text <> "" And Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" Then
MsgBox "密码不能为空！", vbInformation + vbOKOnly, "错误信息"
Text2.SetFocus
End If
End Sub

我是做了一个用户登录的界面，用户名和密码还有身份都在数据库中

Answer 1

from用户名及密码 少个 空格

追问

嗯嗯，是的，可是改了之后还是有毛病

追答

Adodc1.RecordSource = "select * from用户名及密码 where 身份='" + Trim(Combo1.Text) + "' and 用户名='" + Trim(Text1.Text) + "'" + "' and 密码='" + Trim(Text2.Text) + "'"
改：
sqlt= "select * from 用户名及密码 where 身份='" & Trim(Combo1.Text) & "' and 用户名='" & Trim(Text1.Text) & "' and 密码='" & Trim(Text2.Text) & "'"
Adodc1.RecordSource =sqlt
'你的语句中 多啦个 + "'" + 成为两个 单引号啦

Answer 2

Adodc1.Refresh执行能有结果集吗？你debug看一下。
取Adodc1.Recordset.RecordCount 的值之前，是否要将结果指针先移到最后再移到最初。

Adodc1.Recordset.movelast
Adodc1.Recordset.movefirst

我没有环境，你试试。你要学会debug

追问

我真的是。。。。我太羞愧了，我是菜鸟。。。。。。

追答

那就结贴吧

Answer 3

你数据源SQL的字符串链接部分，除了from没空格，还有用户名多了一个单引号。注意仔细看哦。
正确应该是这样吧。
Adodc1.RecordSource = "select * from 用户名及密码 where 身份='" + Trim(Combo1.Text) + "' and 用户名='" + Trim(Text1.Text) + "' and 密码='" + Trim(Text2.Text) + "'"

Answer 4

飞

追问

你有病么