TC at 09:20, 19 January 2021

2021-01-19T09:20:43Z

← Older revision		Revision as of 09:20, 19 January 2021
Line 31:		Line 31:

	if objQuery.Execute then		if objQuery.Execute then
	dim strCalcNo		if not objQuery.Eof then
	strCalcNo = objQuery.GetField("do_ordnr")		dim strCalcNo
	msgbox strCalcNo		strCalcNo = objQuery.GetField("do_ordnr")
			msgbox strCalcNo

	objQuery.SQL = "update do_calc		objQuery.SQL = "update do_calc
	set do_image = :ImageFromFile		set do_image = :ImageFromFile
	where do_ordnr=:CalcNo"		where do_ordnr=:CalcNo"

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

TC: Created page with "== Declaration == SetParamDbl(ParameterName as string, Value as Double) as boolean == Description == Changes the value of the parameter with a specific name to 'Value'. == N..."

2021-01-19T09:18:30Z

Created page with "== Declaration == SetParamDbl(ParameterName as string, Value as Double) as boolean == Description == Changes the value of the parameter with a specific name to 'Value'. == N..."

New page

== Declaration ==
SetParamDbl(ParameterName as string, Value as Double) 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.

<source lang="vb">
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
</source>

== Availability ==
Available since May 2019 (from version 5.5)

PdcDBQuery.SetParamDbl - Revision history

TC at 09:20, 19 January 2021

TC: Created page with "== Declaration == SetParamDbl(ParameterName as string, Value as Double) as boolean == Description == Changes the value of the parameter with a specific name to 'Value'. == N..."