Example: Using GetChunkByteEx to Retrieve a LONG RAW
This example demonstrates the use of GetChunkByteEx to retrieve a LONG RAW
column of a database and save it into a file. This example expects a valid dynaset
named OraDynaset representing a table with a column named 'type_longraw'. Copy
and paste this code into the definition section of a form. Call this procedure
with a valid filename.
Sub GetChunkByteExExample (FName As String)
'Declare various variables
Dim bytesread As Integer, ChunkSize As Long ,
bytearr() as byte
Dim I As Integer, FNum As Integer, CurChunk
'Set the size of each chunk
ChunkSize = 10240
frmChunk.MousePointer = HOURGLASS
'Get a free file number
FNum = FreeFile
'Open the file
Open FName For Binary As #FNum
I = 0
'Loop through all of the chunks
'Oracle does not return the size of columns > 64KB.
'We should loop until the length of our block is
'less than we asked for.
Do
bytesread =
OraDynaset.Fields("type_longraw").GetChunkByteEx(CurChunk,
I * ChunkSize, ChunkSize)
'redim byte array
redim bytearr(bytesread - 1)
bytearr = CurChunk
Put #FNum, , bytearr 'Write chunk to file.
I = I + 1
Loop Until bytesread < ChunkSize
'Close the file.
Close FNum
frmChunk.MousePointer = DEFAULT
End Sub