office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

利用ADO打開加密的Access數據庫文件

2017-12-09 16:34:00
tmtony8
原創
7418

在Access中, 可以用鏈接錶方式方便地連接後颱數據庫。

當然也可以用ADO來讀取數據,而且速度會比鏈接錶更加快。


如何用ADO打開加密的Access數據庫呢?

下麵源碼通過ADO打開數據庫“建錶”,“建錶”數據庫密碼爲“123”,讀取錶“職務”的記録總數。


Public Sub OpenAccess()
    Dim strConn As String
    Dim Rs As New ADODB.Recordset
  '  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\建錶.accdb;Persist Security Info=False;Jet OLEDB:database Password='123';" '2003版本
     strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentProject.Path & "\建錶.accdb;Persist Security Info=False;jet OLEDB:Database Password='123';" '2007及以上版本
   
    Rs.Open "Select * from 職務", strConn, adOpenKeyset, adLockOptimistic
    MsgBox Rs.RecordCount
    Set Rs = Nothing
End Sub



建錶”數據庫,職務錶記録數如下:

    分享