access动态添加和删除查询

在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

删除成功