PdcDBQuery.SetParamDate

Declaration

SetParamDate(ParameterName as string, Value as Date) as boolean

Description

Changes the value of the parameter with a specific name to 'Value'.

Notes

Changes the value of the parameter with a specific name to 'Value'. The result returns it was succesfull or not.

Code example

This code example executes a SQL statement with parameters.

Sub sExecuteQuery
dim objQuery

  set objQuery = pdc.Database.OpenQuery(pdcConData)
  objQuery.SQL = "SELECT do_ordnr 
                  FROM do_calc 
                  WHERE do_kstsrt=:ParamOne AND do_vink1=:ParamTwo AND 
                        do_lever=:ParamThree AND do_datin=:ParamFour AND 
                        do_prdcmb=:ParamFive AND do_fact=:ParamSix"

  objQuery.SetParamStr      "ParamOne", "8000"
  objQuery.SetParamBool     "ParamTwo", True
  objQuery.SetParamDate     "ParamThree", Date()
  objQuery.SetParamDateTime "ParamFour", Now()
  objQuery.SetParamInt      "ParamFive", 1003456
  objQuery.SetParamDbl      "ParamSix", 678.56
  
  if objQuery.Execute then
    dim strCalcNo    
    strCalcNo = objQuery.GetField("do_ordnr")
    msgbox strCalcNo 
    
    objQuery.SQL = "update do_calc 
                    set do_image = :ImageFromFile
                    where do_ordnr=:CalcNo"

    objQuery.SetParamStr          "CalcNo", strCalcNo
    objQuery.SetParamBlobFromFile "ImageFromFile", "c:\temp\filename.pdf"
    if not objQuery.Execute then
      msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & objQuery.SQL
    end if
  else
    msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & objQuery.SQL
  end if
End Sub

Availability

Available since May 2019 (from version 5.5)