公告：九九网站目录为广大站长提供免费收录网站服务，会员可在线完成投稿无需添加友情链接。
在access中，我们创建查询可以通过自带的创建查询功能
但是有时候，需要动态的创建查询，比如创建临时查询来存放数据，查询使用完毕需要删除该临时查询。
Dim db As DAO.Database
Dim qr As DAO.QueryDef
Dim strSQL As String
Set db = CurrentDb
创建查询的SQL语句
strSQL = "Select * from 员工资料 where 性别=男"
Set qr = db.CreateQueryDef("查询名", strSQL) 创建查询
db.Close
Set db = Nothing
Exit Sub
创建查询成功
Dim db As DAO.Database
Set db = CurrentDb
db.QueryDefs.Delete "查询名" 删除查询
db.Close
Set db = Nothing
删除成功
举报/反馈
