vb登录验证程序

来源：百度知道 编辑：UC知道 时间：2024/07/02 10:43:57
能把源程序给下，我做了好长时间好像连接不到数据库
能给发个源程序邮箱642293878@qq.com

Public con As ADODB.Connection
Public rs As ADODB.Recordset

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=XYZADF1230;Data Source=" _
& App.Path & "\单词数据库.mdb;Persist Security Info=False"
rs.Open "select * from 超级用户 where 超级用户= '" & Text1 & "' And 密码 = '" & Text2 & " '", con
If rs.EOF And rs.BOF Then
MsgBox "无该超级用户，请重试登陆，但不得超过三次"
Else
MsgBox "您已成功登陆，可以使用超级用户权限"
Form3.Show
End If
nn = nn + 1
If nn >= 3 Then Form1.Show: Me.Hide
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
Me.Hide
Form3.Show

用的数据库是Access，单词数据库，表：超级用户；密码：XYZADF1230

希望能帮到你，如果你还有其它问题，可以加入我们的百度Hi群：1195277 名

称：飞度编程学社

已发，请接收。超级用户有两个，再说明文档中、。

首先你得用一个ADODC组件连接上数据库:
以下是代码:
Private