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 Object

Dim OraSession As Object

Dim OraDatabase As Object

Dim OraDynaset As Object

'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