VB Access登陆

概述If Text1.Text <> "" And Text2.Text <> "" Then Dim cnn As ADODB.Connection '定义连接 Dim Rs As ADODB.Recordset Set cnn = New ADODB.Connection '定义连接 Set Rs = New ADODB.Recordset Dim strSQL A

If Text1.Text <> "" And Text2.Text <> "" Then   Dim cnn As ADODB.Connection  '定义连接   Dim Rs As ADODB.Recordset   Set cnn = New ADODB.Connection '定义连接   Set Rs = New ADODB.Recordset   Dim strsql As String   Static trytime As Integercnn.Open "ProvIDer=Microsoft.Jet.olEDB.4.0;Data Source=" _& App.Path & _"\考勤管理系统.mdb;Persist Security Info=False;Jet olEDB:Database Password=020135" '创建连接"   Rs.Open "select    1    from    [用户信息]    where    用户名称='" _   & Text1.Text & "'    and    用户密码='" & Text2.Text & "'and 用户类型='" _   & Combo1 & "'",cnn,adOpenKeyset,_   adLockBatchOptimistic '对用户输入的用户名、密码和用户类型与数据库进行匹配       If Rs.EOF Then       MsgBox "用户名称或密码错误！",vbOKOnly + vbExclamation,"警告"           Text1.Text = ""           Text2.Text = ""           Text1.SetFocus           trytime = trytime + 1           If trytime >= 3 Then           MsgBox "您已连续输入错误达3次！系统将自动关闭！！",vbExclamation + vbOKOnly,"温馨提示"           cnn.Close           End           Else           Exit Sub        End If     End If
    

总结

以上是内存溢出为你收集整理的VB Access登陆全部内容，希望文章能够帮你解决VB Access登陆所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。