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
