PdcDBQuery.BoF: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
Created page with "== Declaration == Bof as Boolean == Description == Returns true or false wheter the recordpointer is at the first record of the query == Notes == This property returns whet..."
 
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 first 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.BoF then
      msgbox "The pointer is at the first 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:02, 31 July 2013

Declaration

Bof as Boolean

Description

Returns true or false wheter the recordpointer is at the first record of the query

Notes

This property returns wheter or not the begin of file is reached.

Code example

This code example executes a SQL statement and shows a msgbox if the pointer is at the first 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.BoF then
      msgbox "The pointer is at the first 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)