关于Access数据库用户登录的问题,请指教!

Question

我的Access数据库做的用户登录时,只有数据表的第一个用户可以登陆成功,而其他用户则无法登陆,望各位高手指教!我的代码如下:Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
If Adodc1.Recordset("用户名") = Text2.Text And Adodc1.Recordset("密码") = Text1.Text And Adodc1.Recordset("权限") = Combo2.Text Then
Form1.Timer1.Enabled = False
Form1.Label2.Caption = Combo2.Text
Unload Me
Else
MsgBox "你的帐号不正确，请重新登陆", 48, "警告"
Unload Form1
Unload Form2
End If
End Sub

Answer 1

我觉得你的问题出在这一句上"Adodc1.Recordset.MoveFirst"，你每次执行都是先将记录移到第一条，当然只有第一个用户能登录了

Answer 2

Private Sub Command1_Click()
If Adodc1.Recordset("用户名") = Text2.Text And Adodc1.Recordset("密码") = Text1.Text And Adodc1.Recordset("权限") = Combo2.Text Then
Form1.Timer1.Enabled = False
Form1.Label2.Caption = Combo2.Text
Unload Me
Else
MsgBox "你的帐号不正确，请重新登陆", 48, "警告"
Unload Form1
Unload Form2
End If
End Sub

Answer 3

可能有两种情况：
　1，你的表中有两个以上相同的用户名
　2，你做adodc1.recordset.open 时没时加上“用户”的查询条件，查询了所有用户，而代码中又执行了adodc1.recordse.movefirst,这样当前记录自然就指向第一条了

Answer 4

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst "用户名 = '" & Text2.Text & "'"
If Adodc1.Recordset("密码") = Text1.Text And Adodc1.Recordset("权限") = Combo2.Text Then
Form1.Timer1.Enabled = False
Form1.Label2.Caption = Combo2.Text
Unload Me
Else
MsgBox "你的帐号不正确，请重新登陆", 48, "警告"
Unload Form1
Unload Form2
End If
End Sub

Answer 5

对不起，写错了
Private Sub Command1_Click()
Adodc1.Recordset.Find "用户名 = '" & Text2.Text & "'"
If Adodc1.Recordset("密码") = Text1.Text And Adodc1.Recordset("权限") = Combo2.Text Then
Form1.Timer1.Enabled = False
Form1.Label2.Caption = Combo2.Text
Unload Me
Else
MsgBox "你的帐号不正确，请重新登陆", 48, "警告"
Unload Form1
Unload Form2
End If
End Sub

Answer 6

我有DATA控件连接ACCESS数据库登录的代码：
Data1.Recordset.MoveFirst
   Do While Data1.Recordset.EOF = False
   If Trim(Data1.Recordset!user) = Trim(txtUserName) And Trim(Data1.Recordset!password) = Trim(txtPassword) Then
   Me.Hide
   Form1.Show
   Exit Sub
   End If
   Data1.Recordset.MoveNext
   Loop
     MsgBox "用户名或密码错误"

Answer 7

但在这之前得先设置DATA控件的DATABASENAME属性为你的ACCESS数据库路径及名称
RECORDSOURCE属性为你登录表的名称
然后确定按钮用上面的代码！