使用Command对象执行SQL语句来获取满足指定条件的记录数的方法

                               

                        在VBA中，Command对象定义了对数据源执行的指令，在该指令被执行后将会获取满足指定条件的记录集。通过该对象可以完成各种复杂操作，这包括数据的查询、删除、添加以及更新等。该对象不仅可以执行SQL语句，结合Parameter对象还可以完成参数查询。本文介绍使用Command对象执行SQL语句来获取满足指定条件的记录数的方法。
        1、启动Excel并打开工作簿文件，切换到Visual Basic编辑器，在工程资源管理器中新建一个模块，在模块的“代码”窗口输入如下代码：
        Sub RecordCount()
        Dim conn As New ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim cmd As New ADODB.Command '定义Command对象
        conn.Provider="Microsoft.ACE.OLEDB.12.0" '设置提供者名称
        conn.ConnectionString="data source="&_ThisWorkbook.Path&"\罗斯文2007.accdb" '设置连接字符串
        conn.Mode=adModeReadWrite '设置读写模式
        conn.Open '打开数据库连接
        With cmd '设置Command对象
        .ActiveConnection=conn '设置Command对象的当前链接
        .CommandText="Select Count(*)from订单where[员工ID]=1" 'Command对象的指令
        Set rs=cmd.Execute '执行指令
        End With
        'Set rs=conn.Execute("Select Count(*)from订单")'使用Connection的Execute方法
        Debug.Print"员工“张颖”的订单数为："&rs.Fields(0) '输出订单数
        End Sub
        2、按F5键运行该过程，在“立即窗口”中将显示数据记录数，如图1所示。

       

        图1　“立即窗口”中显示运行结果

        提示
        在进行无参数查询时，使用Connection对象的Execute方法要比Command对象简便得多。示例中使用了SQL语句，该语句中包含一个聚合函数Count，该函数可以计算记录集中记录的数量。Command对象被执行后，将获取一个记录集。示例中的记录集仅包含一个记录，其值即为12。读者需要注意的是，字段的索引号是从0开始的，而不是1。