Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-查询/SQL语句

[access查询]利用VBA创建查询

时 间:2010-04-28 09:30:56
作 者:王樵民   ID:5203  城市:郑州
摘 要:本文介绍利用VBA创建查询的方法,并给出一个示例,供网友参考。
正 文:

      本文介绍利用VBA创建查询的方法,并给出一个示例,供网友参考,示例中根据网友的问题利用交叉表方法建立了查询模板,然后利用创建查询的方法,在交叉表查询的基础上创建了一些新查询,能满足交叉表查询的后续补充功能。

附   件:

点击下载此附件


创建查询的方法:CreateQueryDef
其具体步骤如下:
1、定义数据库变量
    Dim 数据库变量 As Database
    例:Dim db As Database
2、定义用于创建查询的变量
   Dim 查询变量 As QueryDef,例:Dim qdf As QueryDef
3、设置数据库
   Set 数据库变量 = OpenDatabase("数据库名称.mdb")
   例:Set db = OpenDatabase("Northwind.mdb")
   特殊的数据库设置,设置为当前数据库
   Set 数据库变量 = CurrentDb
   例:Set db = CurrentDb
4、使用创建查询的方法创建查询
   Set 查询变量 = db.CreateQueryDef("查询的名称", 查询字符串)
   s2="select * from 表名"
   例:Set qdf = db.CreateQueryDef("按科目2", s2)
       Set qdf = db.CreateQueryDef("按科目查询成绩", "select * from 成绩 where 科目='数学'")
利用VBA创建查询有助于数据库具有相应的智能,比如我们先设计一些查询的模板,然后在此基础上利用创建查询的方法自动创建所需的查询,这样开发出来的数据库会具有更优越的性能。



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助