CreateNamedSessionメソッド

適用対象

説明

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

使用方法

orasession = orasession.CreateNamedSession(session_name)

引数

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

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

備考

このメソッドを使用すると、参照されているセッション・オブジェクトがスコープ内にあるかぎり、後で同じアプリケーションで参照できる名前付きセッションを作成できます。セッションが作成されると、ConnectSessionメソッドまたは各OraClientオブジェクトのOraSessionsコレクションを介して、アプリケーションがそのセッションを参照できます。OraSessionsコレクションには、現在のアプリケーションが作成したセッションのみが含まれます。そのため、複数のアプリケーション間でセッションの共有はできず、同一のアプリケーション内でのみ共有できます。

このメソッドは簡素化の目的で提供されています。OraClientオブジェクトのCreateSessionメソッドと同じです。

例

この例では、ConnectSessionおよびCreateNamedSessionを使用して、以前に作成されたが保存されていないセッションをアプリケーションで使用する方法を示します。このコードをフォームの定義セクションにコピーしてください。次に[F5]を押します。

Sub Form_Load ()
 
 'Declare variables 
 Dim dfltsess As OraSession
 Dim OraSession As OraSession 
 Dim OraDatabase As OraDatabase 
 Dim OraDynaset As OraDynaset 
 
 'Create the default OraSession Object.
 Set dfltsess = CreateObject("OracleInProcServer.XOraSession")
 
 'Try to connect to "ExampleSession". If it does not exist 
 'an error is generated.
 On Error GoTo SetName
 Set OraSession = dfltsess.ConnectSession("ExampleSession")
 On Error GoTo 0
 
'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&)
 
 'Display or manipulate data here
 
Exit Sub
 
SetName:
'The session named "ExampleSession" was not found, so create it.
Set OraSession = dfltsess.CreateNamedSession("ExampleSession")
Resume Next
 
End Sub