|Oracle® Objects for OLE Developer's Guide
11g Release 2 (11.2) for Microsoft Windows
Part Number E12245-01
Indicates whether the current record position in a dynaset is after the last record. Not available at design time and read-only at run time.
eof_status = oradynaset.EOF
True if an attempt has been made to move after the last record in the dynaset using the
MoveNext method. Otherwise, returns
If a recordset is empty, both
This example demonstrates the use of the
EOF properties to detect the limits of a recordset. 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