CreateSession Method Example

This example demonstrates how to create an session object using the CreateSession method of client object. Copy and paste this code into the definition section of a form. Then press F5.

Sub Form_Load ()

'Declare variables

Dim OraClient As OraClient

Dim OraSession As OraSession

Dim NamedOraSession As OraSession

Dim OraDatabase As OraDatabase

Dim OraDynaset As OraDynaset

'Create the OraSession Object.

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

'Get the OraClient object.

Set OraClient = OraSession.Client

'Create a named OraSession Object

'Alternatively, you could use the CreateNamedSession

'method of the OraSession Object.

Set NamedOraSession = OraClient.CreateSession("ExampleSession")

'Create the OraDatabase Object by opening a connection to Oracle.

Set OraDatabase = NamedOraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)

'Create the OraDynaset Object.

Set OraDynaset = OraDatabase.CreateDynaset("select * from emp", 0&)

End Sub