An OraRef object can be retrieved using OO4O in the following ways:
Using a Dynaset Object
If a table contains a REF type column and a dynaset's query selects against
that column , then the Value property of OraField object returns an OraREF.
The following example selects an aperson column from the person table and a Person object is retrieved from the OraField object
set OO4OSession = CreateObject("OracleInProcServer.XOraSession")
set hrDb = OO4OSession.OpenDatabase("ExampleDb", "scott/tiger", 0)
set Customer = hrDb.CreateDynaset("select * from customers", 0&)
set Person = Customer.Fields("aperson").Value
Using a OraParameter object
If a SQL statement or PL/SQL block has a bind variable of REF type, you create
a OraParameter object using the OraParameters Add method. The Value property of the OraParameter object for that bind variable
returns an OraREF.
The following lines of code explains using object datatype as bind variable in
PLSQL anonymous block. This block selects object column from the database.
This code uses a REF datatype as a bind variable in a PLSQL anonymous block. This
block selects an object column from the database.
set OO4OSession = CreateObject("OracleInProcServer.XOraSession")
set hrDb = OO4OSession.OpenDatabase("ExampleDb", "scott/tiger", 0)
hrDb.Parameters.Add "PERSON", Null, ORAPARM_OUTPUT,
ORATYPE_REF,"PERSONOBJ"
'execute the sql statement which selects Address from the person_tab
hrDb.ExecuteSQL ("BEGIN select aperson into :PERSON from customers
where account = 10; end;")
'retrieve Person object from the OraParameter
set Person = hrDb.Parameters("PERSON").Value
