vb + access 用ADO控件做一个登录界面 ~~~~~~急~~~~~~~~

来源：百度知道 编辑：UC知道 时间：2024/06/09 18:42:56
用ADO控件做一个登录界面，

我是新手，研究了很久还是一点不懂

求代码，谢谢大家帮帮我吧

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset

Private Sub Command1_Click()
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
rs1.CursorType = adOpenKeyset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\超市管理系统数据库.mdb;"
If Text1.Text = "" Then
MsgBox "请输入用户名！", vbOKOnly, "提示"
Else
If Text2.Text = "" Then
MsgBox "请输入密码！", vbOKOnly, "提示"
Else
conn.Open
rs.Open "SELECT * FROM 用户表 where 用户名='" & Text1.Text & "' ", conn
If rs.RecordCount = 0 Then
MsgBox "用户名错误！", vbOKOnly + vbInformation, "注意"
rs.Cl