在access中谤碳，我們創(chuàng)建查詢可以通過自帶的創(chuàng)建查詢功能
但是有時候，需要動態(tài)的創(chuàng)建查詢，比如創(chuàng)建臨時查詢來存放數(shù)據(jù)乌妙，查詢使用完畢需要刪除該臨時查詢们衙。
? ? Dim db As DAO.Database
? ? Dim qr As DAO.QueryDef
? ? Dim strSQL As String
? ? Set db = CurrentDb
' ? ?創(chuàng)建查詢的SQL語句
? ? strSQL = "Select * from 員工資料 where 性別='男'"
? ? Set qr = db.CreateQueryDef("查詢名", strSQL) '創(chuàng)建查詢
? ? db.Close
? ? Set db = Nothing
? ? Exit Sub
創(chuàng)建查詢成功
? ? Dim db As DAO.Database
? ? Set db = CurrentDb
? ? db.QueryDefs.Delete "查詢名" ?'刪除查詢
? ? db.Close
? ? Set db = Nothing
?刪除成功
