PdcDBQuery.SetParamStr - Revision history

TC at 09:20, 19 January 2021

2021-01-19T09:20:12Z

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

	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 at 09:17, 19 January 2021

2021-01-19T09:17:22Z

← Older revision		Revision as of 09:17, 19 January 2021
Line 12:		Line 12:

	<source lang="vb">		<source lang="vb">
	~~Dim myQuery As PDCEXT.IDBQuery = PDC.App.Database.OpenQuery(PDCEXT.pdcConnectionKind.pdcConData)~~		Sub sExecuteQuery
	~~myQuery.SQL = "SELECT * FROM LK_KLANT WHERE KL_PLAATS=:ParamOne AND KL_VINK1=:ParamTwo"~~		dim objQuery
	~~myQuery.SetParamStr("ParamOne", "Amsterdam")~~
	~~myQuery.SetParamBool("ParamTwo", True)~~

	~~If myQuery~~.Execute ~~Then~~		set objQuery = pdc.Database.OpenQuery(pdcConData)
	~~MsgBox(myQuery~~.GetField("~~KL_NAAM~~"))		objQuery.SQL = "SELECT do_ordnr
	~~Else~~		FROM do_calc
	~~MsgBox($~~"Error: ~~{PDC~~.~~App~~.LastError}")		WHERE do_kstsrt=:ParamOne AND do_vink1=:ParamTwo AND
	End If		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>		</source>

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

TC at 13:48, 12 May 2020

2020-05-12T13:48:51Z

← Older revision		Revision as of 13:48, 12 May 2020
Line 12:		Line 12:

	<source lang="vb">		<source lang="vb">
	~~Sub sExecuteQuery~~		Dim myQuery As PDCEXT.IDBQuery = PDC.App.Database.OpenQuery(PDCEXT.pdcConnectionKind.pdcConData)
	~~dim objQuery~~		myQuery.SQL = "SELECT * FROM LK_KLANT WHERE KL_PLAATS=:ParamOne AND KL_VINK1=:ParamTwo"
			myQuery.SetParamStr("ParamOne", "Amsterdam")
			myQuery.SetParamBool("ParamTwo", True)

	~~set objQuery = pdc.Database.OpenQuery(pdcConData)~~		If myQuery.Execute Then
	~~objQuery.SQL = "SELECT * FROM LK_KLANT WHERE KL_PLAATS=:ParamOne AND KL_VINK1=:ParamTwo"~~		MsgBox(myQuery.GetField("KL_NAAM"))
	~~objQuery.SetParamStr "ParamOne", "Amsterdam"~~		Else
	~~objQuery.SetParamBool "ParamTwo", True~~		MsgBox($"Error: {PDC.App.LastError}")
			End If
	~~if objQuery~~.Execute ~~then~~
	~~msgbox objQuery~~.GetField("KL_NAAM")
	~~else~~
	~~msgbox~~ "Error:~~" & vbCrLf & pdc~~.LastError ~~& vbCrLf & vbCrLf &~~ "~~SQL:" & vbCrLf & objQuery.SQL~~
	~~end if~~
	End ~~Sub~~
	</source>		</source>

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

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

2019-10-31T15:29:03Z

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

New page

== Declaration ==
SetParamStr(ParameterName as string, Value as string) 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 * FROM LK_KLANT WHERE KL_PLAATS=:ParamOne AND KL_VINK1=:ParamTwo"
objQuery.SetParamStr "ParamOne", "Amsterdam"
objQuery.SetParamBool "ParamTwo", True

if objQuery.Execute then
msgbox objQuery.GetField("KL_NAAM")
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)