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
