安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

利用ADO打开?#29992;?#30340;Access数据库文件

2017-12-09 16:34:00
tmtony8
原创
2093

在Access中, 可以用链接表方式方便地连接后台数据库。

当然也可以用ADO来读取数据,而且速度会比链接表更加快。


如何用ADO打开?#29992;?#30340;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及以?#20064;?#26412;
   
    Rs.Open "Select * from 职务", strConn, adOpenKeyset, adLockOptimistic
    MsgBox Rs.RecordCount
    Set Rs = Nothing
End Sub



建表”数据库,职务表记录数如下:

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:109
    内存占用:8.25MB
    PHP 执行时间:0.34
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    赫塔菲小皇马 最新分分彩app下载 qq会员使命召唤ol 昆虫派对电子 水果大战木乃伊手机版 太阳vs老鹰新浪 贝利西餐厅玩法与规则 波西亚时光水果沙拉 曼城阵容大名单 龙珠超布罗利完整版