---

CreateSessionメソッド

適用対象

OraClientオブジェクト

説明

新しい名前付きOraSessionオブジェクトを作成します。

使用方法

orasession = oraclient.CreateSession(session_name)

引数

このメソッドの引数は、次のとおりです。

引数	説明
session_name	セッション名を指定する文字列。

備考

このメソッドを使用すると、作成時にOraSessionオブジェクトを明示的に保存しなくても、後で同じアプリケーションで参照できる名前付きセッションを作成できます。セッションが作成されると、ConnectSessionメソッドまたは各OraClientオブジェクトのOraSessionsコレクションを介して、アプリケーションがそのセッションを参照できます。OraSessionsコレクションには、現在のアプリケーションが作成したセッションのみが含まれます。これは、セッションは、複数のアプリケーションでは共有できず、同一のアプリケーション内でのみ共有できることを意味します。

例

この例では、クライアント・オブジェクトのCreateSessionメソッドを使用して、セッション・オブジェクトを作成する方法を示します。このコードをコピーして、フォームの定義セクションに貼り付けてください。次に[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

関連項目: OraSessionオブジェクト