Skip Headers

Oracle® Objects for OLE Developer's Guide
10g Release 1 (10.1)

Part Number B10118-01
Go to Documentation Home
Home
Go to Book List
Book List
Go to Table of Contents
Contents
Go to Master Index
Master Index
Go to Feedback page
Feedback

Example: Updating Attribute Values

The following example updates the attributes of the "PERSON" referenceable object 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 Person as OraRef

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

set OraDynaset = OraDatabase.CreateDynaset("select * from customers", 0&)

'retrieve a aperson column from customers. Here Value property of OraField object

'returns Person OraRef

set Person = OraDynaset.Fields("aperson").Value

'locks the Person object in the server for modifying its attributes

Person.Edit

Person.Name = "Eric"

Person.Age = 35

'Update method flushes the modified referenceable object in the server

Person.Update

Parameter example

Dim OraSession as OraSession

Dim OraDatabase as OraDatabase

Dim Person as OraRef

'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 "PERSON", Null, ORAPARM_OUTPUT, ORATYPE_REF,"PERSON"

'execute the sql statement which selects person from the customers table

OraDatabase.ExecuteSQL ("BEGIN select aperson into :PERSON from customers where account = 10;

END;")

'get the Person object from OraParameter

set Person = OraDatabase.Parameters("PERSON").Value

'locks the Person object in the server for modifying its attributes

Person.Edit

Person.Name = "Eric"

Person.Age = 35

'Update method flushes the modified referenceable object in the server

Person.Update