通过MSAccess 2003 [VBA]中的代码动态创建查询

Sub CreateQuery()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    
    Set db = CurrentDb()
    
    ' 创建查询
    Set qdf = db.CreateQueryDef("")
    
    ' 定义查询的SQL语句
    strSQL = "SELECT * FROM Employees WHERE JobTitle = 'Sales Representative'"
    
    ' 将SQL语句应用于查询
    qdf.SQL = strSQL
    
    ' 执行查询
    qdf.Execute
    
    ' 关闭查询
    qdf.Close
    
    Set qdf = Nothing
    Set db = Nothing
End Sub