Example: Updating Attributes of an OraObject

The following examples modify 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.

Dynaset example

Dim OraSession as OraSession

Dim OraDatabase as OraDatabase

Dim OraDynaset as OraDynaset

Dim Address as OraObject

'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 a address column from person_tab.

'Here Value property of OraField object 'returns Address OraObject

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

'start the Edit operation and modify the 'Street' attribute

OraDynaset.Edit

Address.Street = "Oracle Parkway"

OraDynaset.Update

Parameter example

Dim OraSession as OraSession

Dim OraDatabase as OraDatabase

Dim Address as OraObject

'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 an OraParameter object represent Address object bind Variable

OraDatabase.Parameters.Add "ADDRESS", Empty, ORAPARM_INPUT, ORATYPE_OBJECT, "ADDRESS"

'get the uninitialized 'Empty' Address object from OraParameter

set Address = OraDatabase.Parameters("ADDRESS").Value

'modify the 'Street' attribute of the Address

Address.Street = "Oracle Parkway"

'execute the sql statement which updates Address in the person_tab

OraDatabase.ExecuteSQL ("update person_tab set addr = :ADDRESS where age = 40")