Returns whether the current record position in a dynaset is before the first record. Not available at design time and read-only at run time.
Returns True if an attempt has been made to move before the first record in the dynaset using the MovePrevious method. Returns False otherwise.
If a recordset is empty, both BOF and EOF return True.
This example demonstrates the use of the BOF and EOF properties to detect the limits of a record set. Copy and paste this code into the definition section of a form. Then, press F5.
Sub Form_Load ()
'Declare variables
Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim OraDynaset As OraDynaset
'Create the OraSession Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'Create the OraDatabase Object by opening a connection to Oracle
Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)
'Create the OraDynaset Object
Set OraDynaset = OraDatabase.CreateDynaset("select empno, ename from emp", 0&)
'Traverse until EOF is reached
Do Until OraDynaset.EOF
OraDynaset.MoveNext
Loop
MsgBox "Reached EOF"
'When EOF is True there is no current record.
'The current recordset position is now AFTER the last record.
OraDynaset.MoveLast
Do Until OraDynaset.BOF
OraDynaset.MovePrevious
Loop
MsgBox "Reached BOF"
'When BOF is True there is no current record.
'The current recordset position is now BEFORE
'AFTER the last record.
OraDynaset.MoveFirst
'The recordset is now positioned at the first record.
End Sub