PdcDBQuery.LastRecord: Difference between revisions
Jump to navigation
Jump to search
Created page with "== Declaration == LastRecord == Description == Moves the pointer to the last record == Notes == This method will set the record pointer to the last record in the created qu..." |
No edit summary |
||
| Line 9: | Line 9: | ||
== Code example == | == Code example == | ||
This code example executes a SQL statement and moves the pointer to 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 | |||
objQuery.LastRecord | |||
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 12:52, 31 July 2013
Declaration
LastRecord
Description
Moves the pointer to the last record
Notes
This method will set the record pointer to the last record in the created query
Code example
This code example executes a SQL statement and moves the pointer to 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
objQuery.LastRecord
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)