UC知道VB制作登陆界面的密码核对问题
来源：百度知道 编辑：UC知道 时间：2024/06/15 23:27:00
我想用以下代码实现对输入的用户名和密码进行验证,可是它只能验证数据表里的第一条记录.不知道怎么改,本人是新手,希望说的详细点,在线等...
Adodc1.Recordset.MoveFirst
Adodc1.RecordSource = "SELECT * FROM 系统用户 WHERE 用户名='" & text1.Text & "'"
If Text2.Text = Adodc1.Recordset.Fields("口令") Then
MsgBox "登陆成功"
Else
MsgBox "登陆失败"
希望帮我改一下,万分感谢!!!谢谢各位，但是好好象运行了以后还是不怎么对，不知道怎么回事
我的QQ是549550544,希望有人帮帮我,
Adodc1.Recordset.MoveFirst
Adodc1.RecordSource = "SELECT * FROM 系统用户 WHERE 用户名='" & text1.Text & "'"
If Text2.Text = Adodc1.Recordset.Fields("口令") Then
MsgBox "登陆成功"
Else
MsgBox "登陆失败"
希望帮我改一下,万分感谢!!!谢谢各位，但是好好象运行了以后还是不怎么对，不知道怎么回事
我的QQ是549550544,希望有人帮帮我,
MoveFirst
这就是第一条记录的意思，你得改。。。
按下面修改：
Adodc1.RecordSource = "SELECT * FROM 系统用户 WHERE 用户名='" & text1.Text & "'"
IF NOT Adodc1.Recordset.EOF THEN
If Text2.Text = Adodc1.Recordset.Fields("口令") Then
MsgBox "登陆成功"
Else
MsgBox "口令不正确"
END IF
ELSE
MsgBox "用户名不正确"
END IF
用SELECT语句加WHERE 用户名='text1'条件从数据库中取数据,
如果没有取到则可以判断用户名不存在,
如果存在再判断密码是否正确
Dim rs As Recordset, db As Database
Set db = OpenDatabase(App.Path & "\db.mdb")
SQL = "select * from 系统用户 where 用户名='" & text1 & "'"
Set rs = db.OpenRecordset(SQL)
If rs.EOF Or rs.BOF Then
MsgBox "用户不存在"
Else
If rs!密码 = text2 Then
MsgBox "登陆成功"
Else
MsgBox "密码错误"
End If
End If
Adodc1.RecordSource = "SELECT * FROM 系统用户 WHE