用VBA代码取得access表或查询的记录值,赋值给变量或控件
时 间:2008-02-01 14:48:04
作 者:zoutians ID:995 城市:自贡
摘 要:有时我们想将表或查询的记录值赋予变量或控件,但在Access中不能直接通过SELECT语句来完成...
正 文:
有时我们想将表或查询的记录值赋予变量或控件,但在Access中不能直接通过Select语句来完成,比如有一个销售表结构和数据如下:
商品 单价 销售量 库存量
-------------------------------------------------
电视机 3600 23 16
洗衣机 1700 36 25
微波炉 450 45 7
上表展示了某家电商店几样商品某月的销售情况,如果我们想将此表的一些统计值如销售总金额、销售量最大的商品赋给变量,或在窗体上展现出来,应该如何做呢?
可以用VBA的DAO对象来完成这样的工作,很简单的,代码如下:
Dim MyDb As Database '定义数据库对象
Dim MyDs As Recordset '定义数据集对象
Set MyDb = CurrentDb '数据库为当前数据库
上面三条语句完成了基本的对象定义工作,下面的语句用OpenRecordset方法求得销售总金额,其中双引号中可为任何合法的Select语句。
然后将求得的值赋给变量或控件:
Dim Zje As Double
Zje = MyDs.Fields(0)
Me.Label1.Caption = "本月销售总金额是:"+CStr(Zje)+"元"
销售量最大的商品:
Set MyDs = MyDb.OpenRecordset("Select 商品 FROM 销售表 Where 销售量=(Select MAX(销售量) FROM 销售表)")
库存最少的商品:
Set MyDs = MyDb.OpenRecordset("Select 商品 FROM 销售表 Where 库存量=(Select MIN(库存量) FROM 销售表)")
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)