创建包含变量和控件的SQL语句--用DAO创建SQL语句-杨雪专栏

下面的示例显示如何使用简单的 SQL 语句创建 QueryDef对象。该查询从“Orders”表返回所有发生在 2016 年 3 月 31 日之后的订单：

Public Sub GetOrders()
   Dim dbs As DAO.Database
   Dim qdf As DAO.QueryDef
   Dim strSQL As String
   Set dbs = CurrentDb
   strSQL = "Select * FROM orders Where orderDate >#3-31-2016#;"
   Set qdf = dbs.CreateQueryDef("SecondQuarter", strSQL)
End Sub

下面的示例使用存储在变量中的值创建同样的 QueryDef对象。请注意，表示日期值的数字符号 (#) 必须包含在字符串中，这样它们才能与日期值连接。

Dim dbs As Database, qdf As QueryDef, strSQL As String
Dim dteStart As Date
dteStart = #3-31-2016#
Set dbs = CurrentDb
strSQL = "Select * FROM orders Where orderDate" _
    & "> #" & dteStart & "#;"
Set qdf = dbs.CreateQueryDef("SecondQuarter", strSQL)

下面的示例使用“Orders”窗体上名为“OrderDate”的控件值创建一个 QueryDef对象。请注意要提供对控件的完整引用，并在字符串中包含表示日期的符号。

Dim dbs As Database, qdf As QueryDef, strSQL As String
Set dbs = CurrentDb
strSQL = "Select * FROM orders Where orderDate" _
    & "> #" & Forms!Orders!OrderDate & "#;"
Set qdf = dbs.CreateQueryDef("SecondQuarter", strSQL)