织梦CMS - 轻松建站从此开始!

Office下载激活密钥官网_Word Excel PPT PowerPoit 自学教程

当前位置: 主页 > Excel教程 > Excel2013教程 >

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

时间:2017-10-07 00:00来源:未知 作者:admin 点击:
在VBA中,Command对象定义了对数据源执行的指令,在该指令被执行后将会获取满足指定条件的记录集。通过该对象可以完成各种复杂操作,这包括数据的查询、删除、添加以及更新等。该

在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所示。

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

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

提示

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

(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片