PdcApplication.ChooseQuery - Revision history

Mike: /* Code example */

2019-03-22T10:28:51Z

Code example

← Older revision		Revision as of 10:28, 22 March 2019
Line 40:		Line 40:
	vb.NET example:		vb.NET example:

	<source lang="vb~~.NET~~">		<source lang="vb">
	dim SQL As String = $"select * from SRV_SERVICE"		dim SQL As String = $"select * from SRV_SERVICE"
	dim QrySQL = pdc.App.ChooseQuery(SQL, "Selecteer serviceoject", "SO1", "SRV_ID")		dim QrySQL = pdc.App.ChooseQuery(SQL, "Selecteer serviceoject", "SO1", "SRV_ID")

2019-03-22T10:28:30Z

Code example

2019-03-22T10:27:36Z

Code example

← Older revision		Revision as of 10:27, 22 March 2019
Line 36:		Line 36:

	end function 'fstrGetLMITxts		end function 'fstrGetLMITxts
			</source>

	vb.NET example:		vb.NET example:

2019-03-22T10:27:19Z

Code example

← Older revision		Revision as of 10:27, 22 March 2019
Line 36:		Line 36:

	end function 'fstrGetLMITxts		end function 'fstrGetLMITxts

			vb.NET example:

	<source lang="vb.NET">		<source lang="vb.NET">
Line 45:		Line 47:
	releaseObject(QrySQL)		releaseObject(QrySQL)
	end if		end if

	~~Sub releaseObject(ByRef rObj As Object)~~
	~~Try~~
	~~System.Runtime.InteropServices.Marshal.FinalReleaseComObject(rObj)~~
	~~rObj = Nothing~~
	~~Catch ex As Exception~~
	~~rObj = Nothing~~
	~~Finally~~
	~~'This command is mandatory, because when using two prosesses of Excel, both stay running after release without GC.Collect~~
	~~GC.Collect()~~
	~~End Try~~
	End Sub		End Sub

2019-03-22T10:26:52Z

@@ Line 36: / Line 36: @@
 end function 'fstrGetLMITxts
 </source>
 == Availability ==

2015-10-22T11:42:00Z

← Older revision		Revision as of 11:42, 22 October 2015
Line 29:		Line 29:

	set tblSQL = pdc.ChooseQuery(strSQL, "Selecteer leverancier", "WNW01", "LMI_ID1")		set tblSQL = pdc.ChooseQuery(strSQL, "Selecteer leverancier", "WNW01", "LMI_ID1")
	strResult = tblSQL.GetField("LMI_TEKST")		if IsValid(tblSQL) then
			strResult = tblSQL.GetField("LMI_TEKST")

	fstrGetLMITxts = strResult		fstrGetLMITxts = strResult
			end if

	end function 'fstrGetLMITxts		end function 'fstrGetLMITxts

2014-05-08T10:37:48Z

← Older revision		Revision as of 10:37, 8 May 2014
Line 5:		Line 5:
	With this function a record can be picked from a selfmade query. The result of the query is shown in a regular pick window.		With this function a record can be picked from a selfmade query. The result of the query is shown in a regular pick window.

	KeyField ~~is the column name that is returned when user selects a record.~~		KeyField is a string value that is used to enable saving grid settings and grouping of the list. DO NOT USE UNDERSCORES in the KeyField. This can be any 5 characters string. The resulting GridID = 'BROWS' + KeyField.
			KeyID is the column name that is returned when user selects a record.
	~~KeyID~~ is a string value that is used to enable saving grid settings and grouping of the list. DO NOT USE UNDERSCORES in the KeyID.

	== Notes ==		== Notes ==
Line 29:		Line 28:
	" order by LMI_LVNAAM"		" order by LMI_LVNAAM"

	set tblSQL = pdc.ChooseQuery(strSQL, "Selecteer leverancier", "~~LMI_ID1~~", "~~LMIUS~~")		set tblSQL = pdc.ChooseQuery(strSQL, "Selecteer leverancier", "WNW01", "LMI_ID1")
	strResult = tblSQL.GetField("LMI_TEKST")		strResult = tblSQL.GetField("LMI_TEKST")

2014-05-08T10:32:24Z

← Older revision		Revision as of 10:32, 8 May 2014
Line 6:		Line 6:

	KeyField is the column name that is returned when user selects a record.		KeyField is the column name that is returned when user selects a record.

	KeyID is a string value that is used to enable saving grid settings and grouping of the list. DO NOT USE UNDERSCORES in the KeyID.		KeyID is a string value that is used to enable saving grid settings and grouping of the list. DO NOT USE UNDERSCORES in the KeyID.

2014-05-08T10:31:58Z

← Older revision		Revision as of 10:31, 8 May 2014
Line 3:		Line 3:

	== Description ==		== Description ==
			With this function a record can be picked from a selfmade query. The result of the query is shown in a regular pick window.

	~~With this function~~ a record ~~can be pick from~~ a ~~selfmade query~~.		KeyField is the column name that is returned when user selects a record.
			KeyID is a string value that is used to enable saving grid settings and grouping of the list. DO NOT USE UNDERSCORES in the KeyID.

	== Notes ==		== Notes ==
Line 26:		Line 28:
	" order by LMI_LVNAAM"		" order by LMI_LVNAAM"

	set tblSQL = pdc.ChooseQuery(strSQL, "Selecteer leverancier", "LMI_ID1", "~~LMI_ID1~~")		set tblSQL = pdc.ChooseQuery(strSQL, "Selecteer leverancier", "LMI_ID1", "LMIUS")
	strResult = tblSQL.GetField("LMI_TEKST")		strResult = tblSQL.GetField("LMI_TEKST")

2013-05-13T10:06:46Z

Notes

← Older revision		Revision as of 10:06, 13 May 2013
Line 8:		Line 8:
	== Notes ==		== Notes ==

	Make sure that the KeyField and KeyID are ~~filled~~. When not ~~filled~~, things like grouping ~~doen~~'t work.		Make sure that the KeyField and KeyID are populated. When not populated, things like grouping don't work.

	== Code example ==		== Code example ==