備考
このメソッドを使用すると、参照されているセッション・オブジェクトがスコープ内にあるかぎり、後で同じアプリケーションで参照できる名前付きセッションを作成できます。セッションが作成されると、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