Oracle Objects for OLE
Release 9.2

Part Number A95895-01
Go To Documentation Library
Home
Go To Product List
Book List
Go To Table Of Contents
Contents

Master Index

Feedback

EOF Property Example

This example demonstrates the use of the BOF and 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


 
Oracle
Copyright © 1994, 2002 Oracle Corporation.

All Rights Reserved.
Go To Documentation Library
Home
Go To Product List
Book List
Go To Table Of Contents
Contents

Master Index

Feedback