Count Property Example

This example demonstrates the use of the Count property to display the number of objects in the OraSessions, OraConnections, and OraFields Collections. Copy and paste this code into the definition section of a form. Then press F5.

Sub Form_Load ()

'Declare variables as OLE Objects.

Dim OraClient As OraClient

Dim OraSession As OraSession

Dim OraDatabase As OraDatabase

Dim OraDynaset As OraDynaset

'Create the OraSession Object.

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

'Get the client object.

Set OraClient = OraSession.Client

'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 * from emp", 0&)

MsgBox "You have " & OraClient.Sessions.Count & " OraSession Object(s)."

MsgBox "You have " & OraSession.Connections.Count & " OraConnection Object(s)."

MsgBox "You have " & OraDynaset.Fields.Count & " OraField Object(s)."

End Sub