51问答网 > 用vb做一个用户登陆界面，用户名和密码都保存在Access 2000 数据库中，希望有源代码！

用vb做一个用户登陆界面，用户名和密码都保存在Access 2000 数据库中，希望有源代码！

总是提示连接无法用于此操作，不知道哪里出了问题。

2024-12-19 14:40:27

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=shop.mdb;Persist Security Info=False"

strSQL = "select * from 登陆 where name='" & Text1.Text & "'"
rs.Open strSQL, conn, 3, 3
If Text2.Text = rs.Fields("password") Then
Unload Me
Form2.Show
Else
MsgBox "用户名密码错误"
End If
rs.Close
conn.Close
End Sub

代码看看是不是你需要的