PdcDBQuery.NextRecord: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
No edit summary
MKob (talk | contribs)
No edit summary
 
Line 22: Line 22:
     objQuery.NextRecord
     objQuery.NextRecord
   else
   else
     msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & qryCustomer.SQL
     msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & objQuery.SQL
   end if
   end if
End Sub
End Sub

Latest revision as of 15:09, 29 December 2021

Declaration

NextRecord

Description

Moves the pointer to the next record

Notes

This method will move the record pointer to the next record in the created query.

Code example

This code example executes a SQL statement and moves the pointer to the next record.

Sub sExecuteQuery
dim objQuery
dim intCnt

  set objQuery = pdc.Database.OpenQuery(pdcConData)
  objQuery.SQL = "SELECT * FROM LK_KLANT"

  if objQuery.Execute then
    objQuery.NextRecord
  else
    msgbox "Error:" & vbCrLf & pdc.LastError & vbCrLf & vbCrLf & "SQL:" & vbCrLf & objQuery.SQL
  end if
End Sub

Availability

Available since September 2008 (from version 3.8)