>
qdfOrders.Parameters("Order Date") = "10/11/94" ' Set parameters.
qdfOrders.Parameters("Ship Date") = "11/4/94"
See Also
CreateQueryDef Method, Filter Property, OpenRecordset Method, Parameter Object, Recordset Object, Sort Property.
Example
This example creates a query based on an Orders table. The query selects all orders that have a Freight value greater than 10.
Dim dbsNorthwind As Database, qdfLargeFrt As QueryDef
Dim rstFromQuery As Recordset
Set dbsNorthwind = DBEngine.Workspaces(0).OpenDatabase("Northwind.mdb")
Set qdfLargeFrt = dbsNorthwind.CreateQueryDef("Large Freight")
qdfLargeFrt.SQL = "SELECT * FROM Orders WHERE Freight > 10;"
Set rstFromQuery = qdfLargeFrt.OpenRecordset(dbOpenSnapshot)
Example (Microsoft Access)
The following example creates a parameter query based on an Orders table. The query selects all orders for which the order date falls between the dates entered by the user.
Sub RangeOfOrders()
Dim dbs As Database, qdf As QueryDef, rst As Recordset
' Return Database variable that points to current database.
Set dbs = CurrentDb
Set qdf = dbs.CreateQueryDef("RangeOfOrders")
' Construct SQL statement including parameters.
qdf.SQL = "PARAMETERS [Start] DATETIME, [End] DATETIME; " & _
"SELECT * FROM Orders WHERE [OrderDate] BETWEEN " & _
"[Start] AND [End];"
qdf.Parameters("Start") = #1/1/95#
qdf.Parameters("End") = #1/31/95#
' Create snapshot-type Recordset object from QueryDef object.
Set rst = qdf.OpenRecordset(dbOpenSnapshot)
End Sub
Example (Microsoft Excel)
See the CreateQueryDef method example.