VBA与Access数据库的连接如何利用DAO与ADO实现

点蓝字关注，回复“VBA”获取专业资料

《VBA代码解决方案》系列书作者
头条百家平台 VBA资深创作者

这是公众号作者的第330篇原创文章

大家好，今日继续讲解VBA与数据库的第4讲内容：VBA如何与数据库建立连接。我的讲解从简单入手，逐渐将进入较为复杂的阶段，之前的内容主要以了解范畴的知识较多，将逐渐过渡到实际的操作。这讲内容仍需要读者以了解为侧重，但相关的知识点还是需要有一个清晰的轮廓。
VBA可以访问的数据库类型有Microsoft access、dBase、Microsoft SQLServer、Oracle 等，这给VBA的利用范围得到扩展。我们的讲解主要是VBA与Access数据库的连接方式，这种连接是大多数的应用。
一、利用ODBC方式连接Access数据库
利用这种方式连接数据库，必须先注册数据源DSN，目前，Windows提供32位和64位ODBC驱动程序，但在Access中，使用ODBC API访问数据库需要大量的VBA函数原型声明，操作繁琐，因此很少使用。这里就不再多说了。
二通过OLEDB方式连接access数据库
OLE DB是用于访问数据的Microsoft系统级别的编程接口。它是一个规范，定义了一组组件接口规范，封装了各种数据库管理系统服务，是ADO的基本技术和ADO.NET的数据源
setconn=Server.CreateObject("ADODB.Connection")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&&";Persist SecurityInfo=False"
三通过DAO方式连接Access数据库
DAO提供了一个访问数据库的对象模型，利用其中定义的一系列数据访问对象（如：Database、Recordset等），可以实现对数据库的各种操作,由于在创建数据库时系统并不自动引用DAO库，所以需要用户自行进行引用设置。具体设置步骤如下：
（1）在VBE工作环境中，选择“工具”菜单中的“引用”命令，打开“引用”对话框。
（2）在“可使用的引用”列表中勾选 “Microsoft DAO 3.6 Object Library”如下图：

利用DAO 访问数据库首先要创建对象变量，
Dim wsAs Workspace
Dim dbAs Database
Dim rs AsRecordset
Set ws =DBEngine.workspae(0) '打开默认工作区
Set db =ws.OpenDatabase("") ' 打开数据库

四利用ADO方式连接Access数据库
ADO是基于组件的数据库编程接口。使用ADO可以方便地连接任何符合ODBC（开放式数据库连接）标准的数据库。ADO是DAO的后继产物。相比DAO，ADO扩展了DAO使用的层次对象模型，用较少的对象、更多的方法和事件来处理各种操作，简单易用，是当前数据库开发的主流技术。
1 引用ADO
（1）在VBE工作环境中，选择“工具”菜单中的“引用”命令，打开“引用”对话框。
（2）在“可使用的引用”列表中勾选 Microsoft ActiveX Data Object*.* Library,这里的*.*是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.

2.用CreateObject创建对象: Set Conn = CreateObject(ADODB.Connection)
创建了对象之后,下一步我们要做的就是打开数据库了.先看下面的代码,可以成功的打开数据库：
Set Conn = CreateObject(ADODB.Connection)
strPath = ThisWorkbook.Path &"\mydata.accdb"
Conn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath
在之后的《VBA与数据库》的讲解中，主要利用的是ADO的连接，以后会逐渐的展开给大家慢慢的讲解。
数据库内容是VBA内的一块较为重要的部分，同时也是对于学习人员水平的一个提高，但是，如果我之前的内容没有弄懂的朋友，还是请先弄懂之前的内容，在《VBA代码解决方案》中，我讲解了147讲较为有代表的案例，可以覆盖大多数的知识点，基本掌握后再看数据库相关的操作，更会好些。

今日内容回向：
1 常见的几种连接数据库的方式是否有个大概的印象呢？
2 这几种常见的方式中那种是比较年轻的呢?

-End-

觉得有启发，点个“在看”，转给朋友们
欢迎你“留言”，和作者直接交流

更多关联阅读