【分享成果，随喜正能量】最值得信赖的，其实是自己从孤独中得来的东西，而不是别人给予自己的东西。每个人都是一座孤岛，有些人一生都在想要逃离这座岛，有些人一生都在创造并丰富自己这座岛。。

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

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

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

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

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

4 利用ADO方式连接Access数据库

ADO是基于组件的数据库编程接口。使用ADO可以方便地连接任何符合ODBC（开放式数据库连接）标准的数据库。ADO是DAO的后继产物。相比DAO，ADO扩展了DAO使用的层次对象模型，用较少的对象、更多的方法和事件来处理各种操作，简单易用，是当前数据库开发的主流技术。

1) 引用ADO

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

b 在“可使用的引用”列表中勾选 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 这几种常见的方式中那种是比较年轻的呢?

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