Example: Delete Method for OraRef

The following example illustrates the Delete method. 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 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 Person object bind Variable

OraDatabase.Parameters.Add "PERSON", Null, ORAPARM_OUTPUT, ORATYPE_REF,"PERSON"

'execute the sql statement which selects person

'from the customers table for account = 10

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

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

Person.Delete