Example: INSERT/UPDATE with LOBs and Transactions

Schema Description

Dim OraSession As OraSession

Dim OraDatabase As OraDatabase

Dim ImageChunk() As Byte

Dim amount_written As Long

'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&)

OraParameters.Add "PartImage", Empty,ORAPARAM_OUTPUT

OraParameters("PartImage").ServerType = ORATYPE_BLOB

'Create a Dynaset containing a LOB,column

OraDatabase.ExecuteSQL ("insert into part values (1234,"Oracle

Application”, EMPTY_BLOB(),NULL,NULL)

RETURNING part_image INTO :PartImage ")

set PartImage = OraDatabase.Parameters("PARTIMAGE").Value

'the following lines of code will raise error

'LOB locator cannot span transaction'

msgbox Partimage.Size