Oracle Objects for OLE
Release 9.2

Part Number A95895-01
Go To Documentation Library
Home
Go To Product List
Book List
Go To Table Of Contents
Contents

Master Index

Feedback

Example: Single piece Reading of a LOB

Schema Description

Dim OraSession As OraSession

Dim OraDatabase As OraDatabase

Dim PartDesc As OraClob

Dim AmountRead As Long

Dim buffer As Variant

Dim buf As String

'Create the OraSession Object.

Set OraSession = CreateObject("OracleInProcServer.XOraSession")

'Create the OraDatabase Object.

Set OraDatabase = OraSession.OpenDatabase("ExampleDb",

"scott/tiger", 0&)

'Add PartDesc as an Output parameter and set its initial value.

OraDatabase.Parameters.Add "PartDesc", Null, ORAPARM_OUTPUT

OraDatabase.Parameters("PartDesc").ServerType = ORATYPE_CLOB

'Execute the statement returning 'PartDesc'

OraDatabase.ExecuteSQL ("BEGIN select part_desc into :PARTDESC from

part where part_id = 1 for update NOWAIT; END;")

'Get 'PartDesc' from Parameters collection

Set PartDesc = OraDatabase.Parameters("PartDesc").Value

'Get a free file number

FNum = FreeFile

'Open the file.

Open "Desc.Dat" For Binary As #FNum

'Read entire CLOB value, buffer must be a Variant

AmountRead = PartDesc.Read(buffer)

'put will not allow Variant type

buf = buffer

Put #FNum, , buf

Close FNum


 
Oracle
Copyright © 1994, 2002 Oracle Corporation.

All Rights Reserved.
Go To Documentation Library
Home
Go To Product List
Book List
Go To Table Of Contents
Contents

Master Index

Feedback