Question

VB做登录窗口 作了Access数据库，在数据库里有ZHANGHAO表 表里有帐号和密码。窗体里添加了一个Adodc1部件

问题是无论输入什么帐号和密码 都能登录成功，大神看看哪里的问题

Dim conn As New ADODB.Connection: Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
On Error Resume Next
Dim a As String
Dim b As String
Dim sqlstr As String
Static number As Integer
a = Trim(Text1.Text)
b = Trim(Text2.Text)
If Text1.Text = "" Then
MsgBox "帐户不能为空,请核对帐户信息！！", vbCritical, "核对帐户信息"
ElseIf Text2.Text = "" Then
MsgBox "密码不能为空,请核对密码信息！！", vbCritical, "核对密码信息"
Else
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\lingling\Desktop\毕业设计\VB\tuzhiku.mdb;Persist Security Info=False"
sqlstr = "select * from ZHANGHAO where 用户=" & a & "' and 密码='" & b & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then '登录失败
MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
number = number + 1
Label3.Caption = "您已经登录了" & number & "次"
If number >= 3 Then
Command1.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
MsgBox "您无权操作本系统,请您退出！", vbCritical, "无权限"
End If
Else '登陆成功
MsgBox "用户审核成功,欢迎使用本系统！！", vbInformation, "审核成功"
Unload Me
mainform.Show
End If
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\lingling\Desktop\毕业设计\VB\tuzhiku.mdb;Persist Security Info=False"

End Sub

Answer 1

木有问题哦

追问

无论输入什么帐号和密码 都能登录

追答

我这里是输入对账号密码都不能登录！！！

追问

那会是哪里出问题了呢？？

追答

你把form load 的代码删掉，
第二个else 代码改一下，用下面的试下
Else
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\lingling\Desktop\毕业设计\VB\tuzhiku.mdb;Persist Security Info=False"
rs.Open "select * from ZHANGHAO ", conn, 2, 2
rs.MoveFirst
rs.Find "账号= '" & a & "' "
rs.Find "密码 = '" & b & "'"
Adodc1.Refresh
If rs.EOF Then '登录失败