下面的示例显示如何使用简单的 SQL 语句创建 QueryDef对象。该查询从“Orders”表返回所有发生在 2016 年 3 月 31 日之后的订单:
Dim dbs As Database, qdf As QueryDef, strSQL As String
Set dbs = CurrentDb
strSQL = "Select * FROM orders Where orderDate >#3-31-2016#;"
Set qdf = dbs.CreateQueryDef("SecondQuarter", strSQL)
下面的示例使用存储在变量中的值创建同样的 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)