За:关于VB使用DATA连接access数据库验证用户和密码的问题

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 09:19:43
假设一个access数据库名为:access.mdb
其中含有一个表 user,表中包括 username password等列.

如何用data连接验证呢?

Private Sub Form_Load()
Data1.DatabaseName = "d:\vbwork\access.mdb"
Data1.RecordSource = "user"
Data1.Refresh
End Sub

假设有text1和text2输入的用户名和密码.
command1为确定按钮.

我写到这里就不知道如何下去了.
Private Sub Command1_Click()
Data1.Recordset.FindFirst "username =" & "'" & Text1.Text & "'"
If Data1.Recordset.NoMatch = True Then
MsgBox "用户名或密码错误,请重新输入", , "错误"
Else
If Data1.Recordset("password") <> " & Text1.Text & " Then '这句应该如何写?
MsgBox "用户名或密码错误,请重新输入", , "错误"

谢谢.