This example demonstrates the use of GetChunkByte 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 longraw. Copy and paste this code into the definition section of a form. Call this
procedure with a valid filename.
Sub GetChunkByteExample (FName As String)
'Declare various variables
Dim CurSize As Integer, ChunkSize As Long
Dim I As Integer, FNum As Integer, CurChunk() As Byte
'Set the size of each chunk
ChunkSize = 10240
'Redim CurChunk Array
ReDim CurChunk(ChunkSize)
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
CurSize = OraDynaset.Fields("type_longraw").GetChunkByte(CurChunk(0), I *
ChunkSize, ChunkSize)
If CurSize < ChunkSize Then
ReDim CurChunk(CurSize)
CurSize = OraDynaset.Fields("type_longraw").GetChunkByte(CurChunk(0), I *
ChunkSize, CurSize)
End If
Put #FNum, , CurChunk 'Write chunk to file.
I = I + 1
Loop Until CurSize < ChunkSize
'Close the file.
Close FNum
frmChunk.MousePointer = DEFAULT
End Sub