利用ADO打開加密的Access數(shù)據(jù)庫文件

在Access中， 可以用鏈接錶方式方便地連接後颱數(shù)據(jù)庫。

當(dāng)然也可以用ADO來讀取數(shù)據(jù)，而且速度會(huì)比鏈接錶更加快。

如何用ADO打開加密的Access數(shù)據(jù)庫呢？

下麵源碼通過ADO打開數(shù)據(jù)庫“建錶”，“建錶”數(shù)據(jù)庫密碼爲(wèi)“123”，讀取錶“職務(wù)”的記録總數(shù)。

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 職務(wù)", strConn, adOpenKeyset, adLockOptimistic
    MsgBox Rs.RecordCount
    Set Rs = Nothing
End Sub

“建錶”數(shù)據(jù)庫，職務(wù)錶記録數(shù)如下：