创建包含变量和控件的SQL语句--用ADO创建SQL语句

时　间:2019-04-05 22:54:40
作　者:杨雪   ID：42182  城市：南京
摘　要:在这一节，我们将创建与前一节同样的语句，但这次使用 ADO 作为数据访问方法。
正　文:

下面的示例显示如何使用简单的 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)

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)