《VBA数据库解决方案》教程（10090845）是我推出的第二套教程，目前已经是第二版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：第四讲:VBA与Access数据库的连接，DAO与ADO的利用

第四讲 VBA与Access的具体连接，DAO与ADO的利用

大家好，今日继续讲解VBA数据库解决方案的第4讲内容：VBA如何与数据库建立连接。我的讲解从简单入手，逐渐将进入较为复杂的阶段，之前的内容主要以了解范畴的知识较多，将逐渐过渡到实际的操作。这讲内容仍需要读者以了解为侧重，但相关的知识点还是需要有一个清晰的轮廓。

VBA可以访问的数据库类型有Microsoft access、dBase、Microsoft SQLServer、Oracle 等，这给VBA的利用范围得到扩展。我们的讲解主要是VBA与Access数据库的连接方式，这种连接是大多数的应用。

1 利用ODBC方式连接Access数据库

利用这种方式连接数据库，必须先注册数据源DSN，目前，Windows提供32位和64位ODBC驱动程序，但在Access中，使用ODBC API访问数据库需要大量的VBA函数原型声明，操作繁琐，因此很少使用。这里就不再多说了。

2 通过OLEDB方式连接Access数据库

OLE DB是用于访问数据的Microsoft系统级别的编程接口。它是一个规范，定义了一组组件接口规范，封装了各种数据库管理系统服务，是ADO的基本技术和ADO.NET的数据源:

set conn=Server.CreateObject("ADODB.Connection")

conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&<数据库名>&";Persist Security Info=False"

3 通过DAO方式连接Access数据库

DAO提供了一个访问数据库的对象模型，利用其中定义的一系列数据访问对象（如：Database、Recordset等），可以实现对数据库的各种操作,由于在创建数据库时系统并不自动引用DAO库，所以需要用户自行进行引用设置。

具体设置步骤如下：

（1）在VBE工作环境中，选择“工具”菜单中的“引用”命令，打开“引用”对话框。

（2）在“可使用的引用”列表中勾选 “Microsoft DAO 3.6 Object Library” 如下图：

利用DAO 访问数据库 首先要创建对象变量，

Dim ws As Workspace

Dim db As Database

Dim rs As Recordset

Set ws = DBEngine.workspae(0) '打开默认工作区

Set db = ws.OpenDatabase("<数据库名>") ' 打开数据库

（待续）

【分享成果，随喜正能量】我们就是一个平凡的人生，我们就是一个简简单单的简略人生。最朴素的市井人生，是用来绽放人性美好的光辉和悲悯。不管前行有多远，走多远飞多高，就算十万里山水他乡，也不外是自己回归自己内心的田园。。

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：