PdcDatabase.OpenQuery - Revision history

TC at 08:13, 26 February 2014

2014-02-26T08:13:11Z

← Older revision		Revision as of 08:13, 26 February 2014
Line 42:		Line 42:
	end if		end if
	</source>		</source>

	~~For more help about the SQL language see the helpfile of Advantage.~~

	This example shows a situation with a live cursor. Every run of this script userfield 6 of one record is cleared with a second query.		This example shows a situation with a live cursor. Every run of this script userfield 6 of one record is cleared with a second query.
Line 70:		Line 68:
	end if		end if
	</source>		</source>

			For more help about the SQL language see the helpfile of Advantage.

	== Availability ==		== Availability ==
	Available since September 2008 (from version 3.8)		Available since September 2008 (from version 3.8)

TC at 08:10, 26 February 2014

2014-02-26T08:10:59Z

@@ Line 9: / Line 9: @@
 The result set of records is available as a table.
 The input parameter is a connectionkind.
 == Code example ==
@@ Line 42: / Line 44: @@
 For more help about the SQL language see the helpfile of Advantage.
 == Availability ==
 Available since September 2008 (from version 3.8)

Arjan: /* Code example */

2012-11-19T14:38:05Z

Code example

← Older revision		Revision as of 14:38, 19 November 2012
Line 37:		Line 37:
	end if		end if
	else		else
	msgbox pdc.LastError		msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & qryCustomer.SQL
	end if		end if
	</source>		</source>

Arjan at 14:36, 19 November 2012

2012-11-19T14:36:50Z

← Older revision		Revision as of 14:36, 19 November 2012
Line 23:		Line 23:
	qryCustomer.FirstRecord		qryCustomer.FirstRecord
	msgbox "The first customer is '" & qryCustomer.GetField("KL_NAAM") & "'."		msgbox "The first customer is '" & qryCustomer.GetField("KL_NAAM") & "'."
	intCnt = 0
			intCnt = 0
	do while not qryCustomer.Eof		do while not qryCustomer.Eof
	if UCase(Trim(qryCustomer.GetField("KL_PLAATS"))) = "AMSTERDAM" then		if UCase(Trim(qryCustomer.GetField("KL_PLAATS"))) = "AMSTERDAM" then

Arjan at 14:36, 19 November 2012

2012-11-19T14:36:07Z

← Older revision		Revision as of 14:36, 19 November 2012
Line 14:		Line 14:
	<source lang="vb">		<source lang="vb">
	dim qryCustomer		dim qryCustomer
	dim ~~intTel~~		dim intCnt

	set qryCustomer = pdc.Database.OpenQuery(pdccondata)		set qryCustomer = pdc.Database.OpenQuery(pdccondata)
	qryCustomer.SQL = "SELECT * FROM LK_KLANT WHERE ((KL_SOORT = 'K') OR (KL_SOORT = 'B')) ORDER BY UCase(KL_NAAM)"		qryCustomer.SQL = "SELECT * FROM LK_KLANT WHERE ((KL_SOORT = 'K') OR (KL_SOORT = 'B')) ORDER BY UCase(KL_NAAM)"

	if qryCustomer.Execute then		if qryCustomer.Execute then
	if qryCustomer.RecordCount > 0 then		if qryCustomer.RecordCount > 0 then
	qryCustomer.FirstRecord		qryCustomer.FirstRecord
	msgbox "The first customer is '" & qryCustomer.GetField("KL_NAAM") & "'."		msgbox "The first customer is '" & qryCustomer.GetField("KL_NAAM") & "'."
	~~intTel~~ = 0		intCnt = 0
	do while not qryCustomer.Eof		do while not qryCustomer.Eof
	if UCase(Trim(qryCustomer.GetField("KL_PLAATS"))) = "AMSTERDAM" then		if UCase(Trim(qryCustomer.GetField("KL_PLAATS"))) = "AMSTERDAM" then
	~~intTel~~ = ~~intTel~~ + 1		intCnt = intCnt + 1
	end if		end if
	qryCustomer.NextRecord
			qryCustomer.NextRecord
	loop		loop
	msgbox ~~intTel~~ & " customers found in Amsterdam."		msgbox intCnt & " customers found in Amsterdam."
	else		else
	msgbox "There are no records found in the result set."		msgbox "There are no records found in the result set."

Mike: /* Code example */

2012-05-22T09:55:28Z

Code example

← Older revision		Revision as of 09:55, 22 May 2012
Line 23:		Line 23:
	qryCustomer.FirstRecord		qryCustomer.FirstRecord
	msgbox "The first customer is '" & qryCustomer.GetField("KL_NAAM") & "'."		msgbox "The first customer is '" & qryCustomer.GetField("KL_NAAM") & "'."

	intTel = 0		intTel = 0
	do while not qryCustomer.Eof		do while not qryCustomer.Eof
Line 29:		Line 28:
	intTel = intTel + 1		intTel = intTel + 1
	end if		end if

	qryCustomer.NextRecord		qryCustomer.NextRecord
	loop		loop

	msgbox intTel & " customers found in Amsterdam."		msgbox intTel & " customers found in Amsterdam."
	else		else
Line 42:		Line 39:
	</source>		</source>

	For more help about the SQL language see the helpfile of Advantage.		For more help about the SQL language see the helpfile of Advantage.

	== Availability ==		== Availability ==
	Available since September 2008 (from version 3.8)		Available since September 2008 (from version 3.8)

Mike: Created page with "== Declaration == OpenQuery(Connection as pdcConnectionKind) as PdcDBQuery == Description == Return a IDBQuery for execution == Notes == This method opens a query for a..."

2012-05-22T09:55:14Z

Created page with "== Declaration == OpenQuery(Connection as pdcConnectionKind) as PdcDBQuery == Description == Return a IDBQuery for execution == Notes == This method opens a query for a..."

New page

== Declaration ==
OpenQuery(Connection as pdcConnectionKind) as [[PdcDBQuery]]

== Description ==
Return a IDBQuery for execution

== Notes ==
This method opens a query for a specified SQL statement.
The result set of records is available as a table.
The input parameter is a connectionkind.

== Code example ==

<source lang="vb">
dim qryCustomer
dim intTel

set qryCustomer = pdc.Database.OpenQuery(pdccondata)
qryCustomer.SQL = "SELECT * FROM LK_KLANT WHERE ((KL_SOORT = 'K') OR (KL_SOORT = 'B')) ORDER BY UCase(KL_NAAM)"

if qryCustomer.Execute then
if qryCustomer.RecordCount > 0 then
qryCustomer.FirstRecord
msgbox "The first customer is '" & qryCustomer.GetField("KL_NAAM") & "'."

intTel = 0
do while not qryCustomer.Eof
if UCase(Trim(qryCustomer.GetField("KL_PLAATS"))) = "AMSTERDAM" then
intTel = intTel + 1
end if

qryCustomer.NextRecord
loop

msgbox intTel & " customers found in Amsterdam."
else
msgbox "There are no records found in the result set."
end if
else
msgbox pdc.LastError
end if
</source>

For more help about the SQL language see the helpfile of Advantage.

== Availability ==
Available since September 2008 (from version 3.8)