SQL语句创建存储查询，针对查询打开Recordset对象来提高性能

时　间:2022-01-15 09:16:34
作　者:杨雪   ID：42182  城市：南京
摘　要:SQL语句创建存储查询，针对查询打开Recordset对象来提高性能。
正　文:

Dim dbsNorthwind As DAO.Database 
Dim rstSalesReps As DAO.Recordset 
Dim qdfSalesReps As DAO.QueryDef 
 
Set dbsNorthwind = CurrentDb 
 
Set qdfSalesReps = dbsNorthwind.CreateQueryDef("SalesRepQuery") 
qdfSalesReps.SQL = "Select * FROM Employees Where Title = " & _ 
                   "'Sales Representative'" 
 
Set rstSalesReps = dbsNorthwind.OpenRecordset("SalesRepQuery")