AppendChunk Method Example

NOTE: This example cannot be run as is. It requires a defined form named frmChunk.

This example demonstrates the use of AppendChunk to read a file into a LONG RAW column of a database. This example expects a valid dynaset named OraDynaset representing a table with a column named longraw. Copy this code into the definition section of a form named frmChunk. Call this procedure with a valid filename.

Sub AppendChunkExample (FName As String)

'Declare various variables.

Dim NumChunks As Integer, RemChunkSize As Integer

Dim TotalSize As Long, CurChunk As String

Dim I As Integer, FNum As Integer, ChunkSize As Integer

'Set the size of each chunk.

ChunkSize = 10240

frmChunk.MousePointer = HOURGLASS

'Begin an add operation.

OraDynaset.AddNew

'Clear the LONGRAW field.

OraDynaset.Fields("LONGRAW").Value = ""

'Get a free file number.

FNum = FreeFile

'Open the file.

Open FName For Binary As #FNum

'Get the total size of the file.

TotalSize = LOF(FNum)

'Set number of chunks.

NumChunks = TotalSize \ ChunkSize

'Set number of remaining bytes.

RemChunkSize = TotalSize Mod ChunkSize

'Loop through the file.

For I = 0 To NumChunks

'Calculate the new chunk size.

If I = NumChunks Then

ChunkSize = RemChunkSize

End If

CurChunk = String$(ChunkSize, 32)

'Read a chunk from the file.

Get #FNum, , CurChunk

'Append chunk to LONGRAW field.

OraDynaset.Fields("LONGRAW").AppendChunk (CurChunk)

Next I

'Complete the add operation and update the database.

OraDynaset.Update

'Close the file.

Close FNum

frmChunk.MousePointer = DEFAULT

End Sub