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 as OLE Objects.

Dim OraClient As Object

Dim OraSession As Object

Dim NamedOraSession As Object

Dim OraDatabase As Object

Dim OraDynaset As Object

'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