This example demonstrates the use of CopyToFile method. Make sure that you
have the PART table in the database with valid LOB data in it.
Schema Description
Dim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim PartDesc as OraCLOB
'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 containing a BLOB and a CLOB column
set part = OraDatabase.CreateDynaset ("select * from part where
part_id = 1234",0)
set PartDesc = part.Fields("part_desc").Value
'Copy the entire LOB content to partdesc.txt file
PartDesc.CopyToFile "partdesc.txt"