VBA ADO连接ACCESS 2010的设置

梁国平

解决EXCEL VBA ADO连接ACCESS 2010，但总提示密码无效，但密码是正确的
1.先以独占的方式打开，删除ACCESS2007或者ACCESS2010的密码。
2.ACCESSS 2010选项设置，一项一项仔细看，终于在“客户端”选项卡里最下方有个“加密方式”的一栏中找到问题的答案。提供了两种加密方式，一种是新加密方式，也是默认选项，安全性较高，另一种是旧加密方式，括号中写到适用于反向兼容和多用户数据库,改到旧加密方式，重新设置密码。
实例：
Sub Picture1_Click()
    userAdmin = 0
    Dim w As String
    Dim stpath As String
    Dim strSQL As String
    Dim RS As New ADODB.Recordset
    Dim CN As New ADODB.Connection
    stpath = ThisWorkbook.Path & Application.PathSeparator & "attendance.accdb"
    w = InputBox("请输入工号+密码，格式：10084617+12345678", "用户登陆")
    If Len(w) > 9 Then
    CN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & stpath & ";Jet OLEDB:Database Password=TV2FH-Q`8V^H+7HX 8G"
    strSQL = "SELECT 工号,权限 FROM 员工信息 WHERE 工号='" & VBA.Left(w, 8) & "' AND 密码='" & VBA.Right(w, Len(w) - 9) & "'"
    RS.Open strSQL, CN, 0, 1
    If Not RS.EOF Then
       userID = RS.Fields(0).Value
       userAdmin = RS.Fields(1).Value
       RS.Close
       CN.Close
       Call viLi
       Flag = True
       Sheet1.Activate
       MsgBox "用户" & VBA.Left(w, 8) & "登陆成功", 0, "用户登陆"
    Else
       RS.Close
       CN.Close
    End If
    End If
    Set RS = Nothing
    Set CN = Nothing
End Sub
该贴已经同步到 梁国平的微博

飞云楼主

这个好，学习

zhy_ng

学习，占位

reverie2008

学习了。。。

fzkoko

收藏学习。

朱国雄

学习了，谢谢！

张宏杰

收藏了，值得学习。

junmaexcel

相当的不错，谢谢楼主

danysy

占位，学习了

口袋里的long

谢谢了，看了这个终于解决了我打开从加密access文件读取数据并用相对引用路径的问题，谢谢，非常感谢！！！！！！