Example: Clone Method for OraRef

The following example shows the usage of the Clone method. Before running the sample code, make sure that you have the necessary datatypes and tables in the database. See Schema Description used in examples of OraObject/OraRef.

Dim OraSession as OraSession

Dim OraDatabase as OraDatabase

Dim OraDynaset as OraDynaset

Dim Person as OraRef

Dim PersonClone as OraRef

'Create the OraSession Object.

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

'Create the OraDatabase Object by opening a connection to Oracle.

Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)

'create a dynaset object from customers

set OraDynaset = OraDatabase.CreateDynaset("select * from customers", 0&)

'retrieve a aperson column from customers.

'Here Value property of OraField object 'returns Person OraRef

set Person = OraDynaset.Fields("aperson").Value

'here Person OraRef points to Person Ref value

'in the server for the first row

msgbox Person.Name

'move to second row

OraDynaset.MoveNext

'here Person OraRef points to Person Ref value

'in the server for the second row

msgbox Person.Name

'get the clone of Person object.

'This clone points to the copy of the Ref for second row

set PersonClone = Person.Clone

'move to third row

OraDynaset.MoveNext

'here Person OraRef points to Person Ref value

'in the server for the third row

msgbox Person.Name

'here PersonClone OraRef points to Person Ref value

'in the server for the second row

msgbox PersonClone.Name