GetChunk/AppendChunk

[aidenryan]

I've been attempting to run the example code from the address listed below. However, when the program reaches the line -

BlobToFile rs!Photo, "c:\photo1.dat", rs!Photo.ActualSize, 16384

- it displays an error telling me that
WriteFromBinary is not an optional argument.

If anyone is familiar with this code sample, I would appreciate some help.

http://support.microsoft.com/support/kb/articles/Q194/9/75.ASP

 

[edderic]

DataFile = 1
If FileName <> &quot;&quot; Then
Open FileName For Binary Access Read As DataFile
Fl = LOF(DataFile)
If Fl = 0 Then
Close DataFile
Exit Sub
End If
Chunks = Fl \ ChunkSize
Fragment = Fl Mod ChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
!foto.AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For I = 1 To Chunks
Get DataFile, , Chunk()
!foto.AppendChunk Chunk()
Next I Eric De Decker
vbg.be@vbgroup.nl

 

[edderic]

Or Write :

DataFile = 1
Open FotoTemp For Binary Access Write As DataFile
lngTotalSize = perset!foto.FieldSize
Chunks = lngTotalSize \ ChunkSize
Fragment = lngTotalSize Mod ChunkSize
ReDim Chunk(ChunkSize)
Chunk() = perset!foto.GetChunk(lngOffset, ChunkSize)
Put DataFile, , Chunk()
lngOffset = lngOffset + ChunkSize

Do While lngOffset < lngTotalSize
Chunk() = perset!foto.GetChunk(lngOffset, ChunkSize)
Put DataFile, , Chunk()
lngOffset = lngOffset + ChunkSize
Loop

Close DataFile Eric De Decker
vbg.be@vbgroup.nl