vb 用ado实现多用户登录问题

来源：百度知道编辑：UC知道时间：2024/06/12 09:29:57

Private Sub Command1_Click()

Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.AbsolutePosition = adPosEOF
'Adodc1.RecordSource = "select * from user_list where ID='" & Text1.Text & "'" 'and PWD='" & Text2.Text & "'"
'Adodc1.Recordset.Update
'Adodc1.Refresh

If Adodc1.Recordset("ID") = Text1.Text And Adodc1.Recordset("PWD") = Text2.Text Then

Unload Me
京京管理系统.Show

Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop
number = number + 1
If number > 3 Then
MsgBox "您输入次数已经超过限制" + Chr(13) + "如有疑问请与管理员联系", vbCritical + vbOKOnly, "提示信息"
Unload Me
Else

message = MsgBox("帐号或密码错误" + Chr(13) + "请重新输入", vbOKCancel + vbExclamation, "提示信息")

Select Case message
Case 1
Text1.SetFocus
Case 2
Unload Me
End

修改了两处：第一个

Do While Adodc1.Recordset.AbsolutePosition = adPosEOF

Do While Not Adodc1.Recordset.EOF
第二个：
If Adodc1.Recordset("ID") = Text1.Text And Adodc1.Recordset("PWD") = Text2.Text Then

If Adodc1.Recordset.Fields("ID") = Trim(Text1.Text) And Adodc1.Recordset.Fields("PWD") = Trim(Text2.Text) Then

调换顺序一处：
Unload Me
京京管理系统.Show

京京管理系统.Show
Unload Me 先加载再卸载自身

对于你的补充的补充：
我再SQL利用自己的表进行调试了，通过。看看你表里面的的密码或则字段有没有字符数的限制，因为我用过access，有的时候会有字符数的限制，这个是自己设计表的时候出现的设定问题，如果的的帐户或则密码不够位数，他就会用空格补充，你可以再表中从后面往前用鼠标左键选择，看看后面是不是有对于的空格！这是我想到的现在唯一可能，如果不行给我发站内信息。呵呵不一定能及时看到。

你这程序运行时有什么错误提示啊？？出错的时候点调试会是哪一行黄色高亮显示？？

不明白你的问题！~

ASP实现多用户登录怎样实现xp 多用户登录？如何用VB实现多用户密码验证? win2003中如何实现本地多用户登录(注:不是远程登录) VB编程ADO，数据库用access vb 用ado连接sql数据库。。。。怎么用VB ado连接access数据库 WinXP多用户登录怎样用VB构建多用户 vb ado连接数据库