OriginalItem Example

The following example shows the use of OriginalItem property. Paste this code

into the definition section of a form, then press F5.

Sub Form_Load ()

'Declare variables

Dim OraSession As OraSession

Dim OraDatabase As OraDatabase

Dim OraDynaset As OraDynaset

Dim OraFields As OraFields

Dim OraField As OraField

'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&)

Set OraDynaset = OraDatabase.CreateDynaset("select scott.emp.deptno, dept.deptno from scott.emp, scott.dept where dept.deptno = emp.deptno", 0&)

'Get the Field collection object

Set OraFields = OraDynaset.Fields

'get the original field object

Set OraField = OraFields.OriginalItem("scott.emp.deptno")

'Returns "scott.emp.deptno"

MsgBox OraField.OriginalName

Set OraField = OraFields.OriginalItem(1)

'Returns "dept.deptno"

MsgBox OraField.OriginalName

End Sub