備考
このメソッドを使用すると、作成時に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