oracle9i中如何用oo4o?

Question

以前在oracle8i中，我用以下：  
Dim  OraSession    As  Object          'Declare  variables  as  OLE  Objects  
           Dim  OraDatabase  As  Object  
           Dim  OraDynaset    As  Object  
 
           Set  OraSession    =  CreateObject("OracleInProcServer.XOraSession")  
           Set  OraDatabase  =  OraSession.DbOpenDatabase("SQL*Net_Connect_String",  "scott/tiger",  0&)  
现在改成oracle9i该如何用？  

Answer 1

Set OO4OServer = CreateObject("OracleInProcServer.XOraServer")
OO4OServer.Open("ExampleDb")
Set EmpDb1 = OO4OServer.OpenDatabase("Scott/Tiger")
Set EmpDb2 = OO4OServer.OpenDatabase("Scott/Tiger")