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
    if not objQuery.Eof 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
    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)