ConnectSessionメソッド

適用対象

説明

指定したセッションのOraClientオブジェクトに関連付けられている、指定した名前のOraSessionオブジェクトを戻します。

使用方法

Set orasession2 = orasession1.ConnectSession(session_name)

引数

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

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

備考

このメソッドは簡素化の目的で提供されており、現行セッションのOraClientオブジェクトのOraSessionsコレクションを反復してsession_nameという名前のセッションを検索することと同じです。OraSessionsコレクションには、現在のアプリケーションが作成したセッションのみが含まれます。これは、セッションは、複数のアプリケーションでは共有できず、同一のアプリケーション内でのみ共有できることを意味します。

例

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

Sub Form_Load ()
 
 'Declare variables
 Dim dfltsess As OraSession
 Dim OraSession As OraSession 
 
 '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
 
 'You can specify other processing here, such as creating a
 ' database and/or dynaset.
 
Exit Sub
 
SetName:
'The session named "ExampleSession" was not found, so create it.
Set OraSession = dfltsess.Client.CreateSession("ExampleSession")
Resume Next
 
End Sub