火碱的价格:VB中如何建立与ACCESS的密码验证

来源：百度文库 编辑：高校问答 时间：2024/04/29 01:21:10
在VB6.0中如何建立密码验证系统?
数据库使用access,有TextuserID,和Textpassword,两个文本框,要求输入密码和ID进行验证,否则msgbox提示错误.
我用ADODC已建立和access的链接,就是不知道如何去验证,请高手指点~

Dim rs As New ADODB.Recordset
dim cnn As New ADODB.Connection

Private Sub Command1_Click()
Dim strsql As String
Set rs = Nothing
Set cnn = Nothing
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户表.mdb;Persist Security Info=False"
cnn.Open

If Text1.Text = "" Then
MsgBox "请输入用户名！", vbCritical + vbOKOnly, "提示"
Text1.SetFocus
End If
strsql = "select*from users where username='" & Trim(Text1.Text) & "'"
rs.CursorLocation = adUseClient
rs.Open strsql, cnn, adOpenStatic, adLockOptimistic
If Text2.Text = rs.Fields("password") Then
MDIForm1.Show
Unload Me
Else
MsgBox ("用户名或者密码不正确！"), vbCritical + vbOKOnly, "提示"
End If
End Sub

够详细了吧,呵呵,给分吧

VB中如何建立与ACCESS的密码验证 vb 中导出有密码的access为excel时,如何取消密码输入的对话框 如何在vb中设置access密码为用户登陆密码? 我忘了access中 vb script的密码怎么办 关于VB使用DATA连接access数据库验证用户和密码的问题 关于VB使用DATA连接access数据库验证用户和密码的问题 vb.net 如何修改access数据库文件的密码 验证密码问题，VB的 怎样在Delphi中建立与Access数据库的连接 如何进行VB与数据库ACCESS的连接