Excel VBA ADO SQL入门教程024：初识Recordset对象

L罗乐 2018-06-29

展开全文

……从来没有想过对不对我的眼中装满疲惫面对自己总觉得好累……

1，嗯哼？

诸君好，又见面了。女生拥抱男生握手。

要不要先讲个小笑话，活跃下氛围？毕竟下面两个段落都是僵硬的概念，乏味的很哩。

——不听就算了。

打个响指，通过前面的章节，我们已经知道，查询是SQL最频繁也是最核心的语句；ADO对象与之相对应的是记录集的概念，所谓记录集就是指从数据库中检索到的数据的集合，由记录和字段两个部分构成。

通常有两种方法创建查询记录集。

一种是我们前面讲过的Connection对象的Execute方法。

Excel VBA ADO SQL入门教程022：Execute方法

另外一种就是我们今天要讲的Recordset对象的Open方法。

2，一个例子

Recordset对象是ADO中最重要也是最常用的对数据库数据进行操作的对象；功能强大，属性、方法和事件众多；不过……放轻松，事件我们基本用不上，属性和方法经常用到的也不多，且大都易于理解和操作。

下面演示如何使用VBA代码引用Recordset对象，并创建一个记录集。

假设有一张工作表，名为“数据表”，内容如下图所示：

现在需要在“查询”表里查询年龄大于18岁的人员明细。查询结果如下：

示例代码如下：

Sub CreateRecordset()
    Dim cnn As Object
    Dim rst As Object
    Dim strPath As String
    Dim strSQL As String
    Dim lngCount As Long
    Dim i As Integer
    Set cnn = CreateObject('ADODB.Connection')
    Set rst = CreateObject('ADODB.RecordSet')
    '----后期引用Recordset对象
    strPath = ThisWorkbook.FullName
    '----指定ADO连接的文件路径（本工作簿）
    cnn.Open 'Provider=Microsoft.ACE.OLEDB.12.0;' _
        & 'Extended Properties=Excel 12.0;' _
        & 'Data Source=' & strPath
    strSQL = 'SELECT * FROM [数据表$] WHERE 年龄>18'
    '----SQL语句
    rst.Open strSQL, cnn, 1, 3
    '----使用Open方法建立记录集
    Cells.ClearContents
    For i = 0 To rst.Fields.Count - 1
    '----遍历读取记录集中的字段
        Cells(1, i 1) = rst.Fields(i).Name
    Next i
    Range('A2').CopyFromRecordset rst
    '----读取记录集中的记录
    lngCount = rst.RecordCount
    '----记录的数目
    MsgBox '共查询到：' & lngCount & '条记录。'
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
End Sub

3，Open方法

上述代码首先使用Connection对象建立和代码所在工作簿的连接，然后使用Recordset对象的Open方法创建查询记录集。

Open语法格式如下：

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

示例语句如下：

rst.Open strSQL, cnn, 1, 3

参数Source是可选的，可以是Command对象、SQL语句、数据库的表名等。对我们而言，通常就是SQL语句。

参数ActiveConnection是可选的，用于指定Connection对象变量名；字符串或包含ConnectionString的参数。对我们而言，通常也就是Connection对象。

参数CursorType是可选的，用于指定当打开Recordset时提供者应使用的游标类型，其值可以是下表所列举的常量之一。作为新手，固定使用AdOpenKeyset（值为1）即可。

参数LockType是可选的，用于确定提供者打开Recordset时应该使用的锁定类型，其值可以是下表所列举的常量之一。如果需要对数据库进行修改、删除、更新等操作，必须设定为AdLockOptimistic。作为新手，管他三七二十一，固定使用AdLockOptimistic（值为3）就好了。

参数Options是可选的，表示提供者如何计算Source参数（如果它代表的不是Command对象），或者从以前保存Recordset的文件中恢复Recordset。该参数可以是一个或多个CommandTypeEnum值或ExecuteOptionEnum值——这厮我们一般用不上，可以假装生命中没有它。