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 as OLE Objects.

Dim OraSession As Object

Dim OraDatabase As Object

Dim OraDynaset As Object

Dim OraFields As Object

Dim OraField As Object

'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