備考
このメソッドは簡素化の目的で提供されており、現行セッションの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