Running Parameter Queries : SQL Parameter « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. SQL Parameter

Running Parameter Queries

 
Sub RunParameterQuery(datStart As Date, datEnd As Date)
    Dim cmd As ADODB.Command
    Dim rst As ADODB.Recordset

    Set cmd = New ADODB.Command
    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "Select * from Employees " & _
        "Where BirthDate Between ? and ?"
    cmd.CommandType = adCmdText

    Set rst = cmd.Execute(Parameters:=Array(datStart, datEnd))

    Do Until rst.EOF
        Debug.Print rst("EmployeeID"), rst("BirthDate")
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    Set cmd = Nothing

End Sub

 

Related examples in the same category