利用ADO打开加密的Access数据库文件
- 2017-12-09 16:34:00
- 黄善超 原创
- 662
在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
“建表”数据库,职务表记录数如下:
文章分类
联系我们
联系人: | 王先生 |
---|---|
电话: | 13928102596 |
Email: | 18449932@qq.com |
QQ: | 18449932 |
微信: | 13928102596 |
微博: | officecn01 |