RecordCount Example (OraDynaset)

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