This example demonstrates the use of the RecordCount property to determine the
number of records retrieved. Copy and paste this code into the definition
section of a form. Then press F5.
Sub Form_Load ()
'Declare variables as OLE Objects.
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 dynaset.
Set OraDynaset = OraDatabase.CreateDynaset("select * from emp", 0&)
'Display the number of records. Note that this causes
'all records to be fetched to ensure an accurate count.
MsgBox OraDynaset.RecordCount & " records retrieved."
End Sub
