PdcDBQuery.EoF: Difference between revisions
Jump to navigation
Jump to search
Created page with "== Declaration == Eof as Boolean == Description == Returns true or false wheter the recordpointer is at the last record of the query == Notes == This property returns whete..." |
No edit summary |
||
Line 9: | Line 9: | ||
== Code example == | == Code example == | ||
This code example executes a SQL statement and shows a msgbox if the pointer is at the last record. | |||
<source lang="vb"> | <source lang="vb"> | ||
Sub sExecuteQuery | |||
dim objQuery | |||
dim intCnt | |||
set objQuery = pdc.Database.OpenQuery(pdcConData) | |||
objQuery.SQL = "SELECT * FROM LK_KLANT" | |||
if objQuery.Execute then | |||
if objQuery.EoF then | |||
msgbox "The pointer is at the last record of the query." | |||
end if | |||
else | |||
msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & qryCustomer.SQL | |||
end if | |||
End Sub | |||
</source> | </source> | ||
== Availability == | == Availability == | ||
Available since September 2008 (from version 3.8) | Available since September 2008 (from version 3.8) |
Latest revision as of 13:05, 31 July 2013
Declaration
Eof as Boolean
Description
Returns true or false wheter the recordpointer is at the last record of the query
Notes
This property returns wheter or not the end of file is reached.
Code example
This code example executes a SQL statement and shows a msgbox if the pointer is at the last record.
Sub sExecuteQuery
dim objQuery
dim intCnt
set objQuery = pdc.Database.OpenQuery(pdcConData)
objQuery.SQL = "SELECT * FROM LK_KLANT"
if objQuery.Execute then
if objQuery.EoF then
msgbox "The pointer is at the last record of the query."
end if
else
msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & qryCustomer.SQL
end if
End Sub
Availability
Available since September 2008 (from version 3.8)