关于在access种编写登录代码的问题!
各位哥哥:本人在access中做了个窗体,为一个按钮编登录程序。如下:
Private Sub Command5_Click()
On Error Resume Next
Dim a As String
Dim b As String
a = Trim(Text2.Value)
b = Trim(Text4.Value)
If Text2.Value = "" Then
MsgBox "用户名不能为空,请核对帐户信息!!", vbCritical, "核对帐户信息"
ElseIf Text4.Value = "" Then
MsgBox "密码不能为空,请核对密码信息!!", vbCritical, "核对密码信息"
Else
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BGYP.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 用户表 where 用户名='" & a & "' and 密码= '" & b & " '"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then '登录失败
MsgBox "对不起,无此用户或者密码不正确!请重新输入!!", vbCritical, "错误"
Text2.Value = ""
Text4.Value = ""
Text2.SetFocus
Else '登陆成功
MsgBox "用户审核成功,欢迎使用本系统!!", vbInformation, "审核成功"
DoCmd.Close
DoCmd.OpenForm "管理界面"
End If
End If
End Sub
Private Sub Command6_Click()
DoCmd.Close
End Sub
点击后,其他都没问题。用户表里只有一个用户名和密码,输入之后为什么登不上去,提示“对不起,无此用户或者密码不正确!请重新输入!! ”