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

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA数据库解决方案第八讲：SQL语句及打开记录集

【分享成果，随喜正能量】很多时候，温和才是一种更强大的力量，能溶解一切不善的念头。尽力之后,选择随缘吧, 人的手就那么大, 握不住的东西太多了, 要学会与自己和解 别贪心, 我们不可能什么都有; 别灰心, 我们不可能什么都没有.。

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

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

4 SQL语句及打开记录集

下一个步骤是记录集的操作，这里我们讲了SQL即结构化查询语句，如Sql = "Select 班级,姓名 From [高三年级]"上面Sql语句的意思是从“高三年级”表中查询（提取）所有记录的班级和姓名两个字段。

打开记录集同样也有两种方法可以利用；

4.1第一种方法：使用Connection对象的Execute方法

示例1： Set rst = cnADO.Execute(Sql) 执行查询，并将结果保存到rst对象中。

示例2 ：Execute 方法

语法：connection.Execute CommandText, RecordsAffected, Options

返回: Recordset 对象引用。

参数:

① CommandText 字符串，通常为要执行的 SQL 语句、表名。

② RecordsAffected 可选，长整型变量，提供者向其返回操作所影响的记录数目。

③ Options 可选，长整型值，指示提供者应如何计算 CommandText 参数。

使用Connection对象的Execute方法返回的结果集，始终为只读、仅向前的游标。也无法取得返回结果集合中的记录数。一般在只需将结果一次性写入工作表中（CopyFromRecordset）时使用，它的好处是写法简洁。如果需要处理返回结果的更多操作，应使用下面的方法。

4.2 第二种方法：使用Recordset对象的Open方法

示例1：rst.Open Sql, cnn 同前面的Set rst = cnADO.Execute(Sql)一样。

示例2 Open 方法

语法 ：recordset.Open Source, ActiveConnection, CursorType, LockType, Options

参数：

① Source 可选，变体型，通常为SQL 语句、表名。

② ActiveConnection 可选。变体型，一般为有效 Connection 对象变量名。

③ CursorType 可选，CursorTypeEnum 值，打开 Recordset 时使用游标类型。

④ LockType 可选。打开 Recordset 时使用的锁定（并发）类型。

⑤ Options 可选，长整型值，用于指示提供者如何计算 Source 参数。

• 其中参数③游标是可以指定的类型有四种：

0 AdOpenForwardOnly 默认值 打开仅向前类型游标。

1 AdOpenKeyset 打开键集类型游标。

2 AdOpenDynamic 打开动态类型游标。

3 AdOpenStatic 打开静态类型游标。

如果需要计算返回记录集的记录数（RecordCount），需要将游标指定为adOpenStatic或adOpenKeyset类型，如果需要对游标进行更新，则需要指定为adOpenKeyset或AdOpenDynamic类型。

• 其中参数④LockType可以选的类型如下：

1 AdLockReadOnly （默认值）只读 — 不能改变数据。

2 AdLockPessimistic 保守式锁定,提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录。

3 AdLockOptimistic 开放式锁定（逐个） — 提供者使用开放式锁定，只在调用Update 方法时才锁定记录。

4 AdLockBatchOptimistic 开放式批更新—用于批更新模式（与立即更新模式相对）。

到此，我们就把VBA、数据库、ACCESS、ADO、SQL等一些重要的词语概念连接到一起了。

今日内容回向：

1 从数据库到打开记录集的各个步骤是否清楚了呢？

2 如何打开一个SQL记录集？

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