您所在位置：主题：用vb+sql编一个用户登陆框
lumi50
[专家分：0] 发布于 2009-04-10 21:58:00
Private Sub cmdOK_Click()
Adodc1.RecordSource = "SELECT * FROM user"
Where Name = "+Text1.Text+" '
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
If Text2.Text = Adodc1.Recordset.Fields("口令") Then
MsgBox "登陆成功"
form2.Show
Else
MsgBox "口令不正确"
End If
Else
MsgBox "用户名不正确"
End If
End Sub
哪个大虾帮我看一下这个程序，我一点登陆他总会弹出说"user"附近有语法错误我实在是看不出哪里错了请大家帮一下忙帮我改一下我在这里感激不尽！
Adodc1.RecordSource = "SELECT * FROM user"
Where Name = "+Text1.Text+" '
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
If Text2.Text = Adodc1.Recordset.Fields("口令") Then
MsgBox "登陆成功"
form2.Show
Else
MsgBox "口令不正确"
End If
Else
MsgBox "用户名不正确"
End If
End Sub
哪个大虾帮我看一下这个程序，我一点登陆他总会弹出说"user"附近有语法错误我实在是看不出哪里错了请大家帮一下忙帮我改一下我在这里感激不尽！
