Accessing Attributes of an Embedded/Value Instance

Individual attributes can be accessed by using a subscript or the name of the attribute. The following example illustrates how to access attribute values of ADDRESS object instance

set OO4OSession = CreateObject("OracleInProcServer.XOraSession")

set hrDb = OO4OSession.OpenDatabase("ExampleDb", "scott/tiger", 0)

set Person = hrDb.CreateDynaset("select * from person", 0&)

set Address = Person.Fields("Addr").Value

msgbox Address.City

msgbox Address.Street

msgbox Address.State

msgbox Address.Zip

This code accesses all of the attribute values:

For I=1 to Address.Count

msgbox Address(I)

Next I