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

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA数据库解决方案第八讲：创建ADO对象的前期绑定和后期绑定

【分享成果，随喜正能量】万物均有定数，凡事不可强求而行，只要尽力而为，方可随缘自在。如善，你所有失去的，上天都会加倍还你；如恶，你所有得到的，上天都会让你加倍偿还。。

第八讲 从创建ADO对象，到打开记录集

大家好，我们今天讲解VBA数据库解决方案第8讲：从创建一个ADO连接，到打开记录集的过程回顾。我们的数据库讲解到本讲，一些基本的概念，以及需要了解的一些基本知识就讲的差不多了，将逐渐过渡到以实际问题的解决为侧重点了。今天我们将之前讲解的内容再大概的回顾一下。

1 数据库的知识点

我们首先讲了数据库，务必要理解的是关系数据库中的关系是指什么。所谓的关系就是表，就是数据库中的表格，那么所谓的关系数据库就是由表格组成的数据库。

2 创建ADO对象

我们讲连接数据库的各种连接方式中，主要讲了ADO的连接方式，这种方式是比较年轻的连接方式，所谓的ADO就是ActiveX Data Objects，对于这个词的解释不必过多的追求，只要知道只是一组数据对象即可。在连接数据库的时候，给出了两种方式的ADO连接。

• 第一种办法是前期绑定，即引用”Microsoft ActiveX Data Objects 2.x Library”找到其中字尽可能高一点的版本，创建连接的代码语句如下：

Dim cnADO As ADODB.Connection ’声明一个ADO对象

Set cnADO = New ADODB.Connection ’创建一个ADO对象

或者在声明是直接创建，代码写为：

Dim cnADO As New ADODB.Connection

• 第二种办法：直接的创建，即后期的绑定：代码如下

Dim cnADO As Object’声明一个ADO对象

Set cnADO = CreateObject("ADODB.Connection")’创建一个ADO对象

3 ADO对象连接到数据库

我之前的代码中有两种连接方式：

第一种： strPath = ThisWorkbook.Path & "\mydata.accdb"

cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

第二种：

With cnADO

.Provider = "Microsoft.ACE.OLEDB.12.0"

.Open strPath

End With

两者写法不一样，其实内容是一样的，就是设置Connection对象的Provider和ConnectionString的两个属性。

[待续]

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