Example: OraAttribute

The following example accesses the attributes of the "ADDRESS" value instance in the server. 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 Address As OraObject

Dim City As OraAttribute

Dim State As OraAttribute

'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 person_tab

Set OraDynaset = OraDatabase.CreateDynaset("select * from person_tab",

0&)

'retrieve an address column from person_tab

'the Value property of OraField object returns Address OraObject

Set Address = OraDynaset.Fields("Addr").Value

'access the City attribute object

Set City = Address("City")

' display the value of City attribute Object

MsgBox City.Value

'access the State attribute object

Set State = Address("State")

'display the value of State attribute Object

MsgBox State.Value