database

[krupeshreddy]

Iam using fallowing code to display image stored in oracle database
[DataFile = FreeFile
Open DataFile For Binary Access Write As DataFile
Fl = gResultset!PHOTO.ColumnSize
Chunks = Fl \ ChunkSize
Fragment = Fl Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = gResultset!PHOTO.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Buffer(ChunkSize)
Chunk() = gResultset!PHOTO.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i

Filename = DataFile
ImgEdit1.Image = Filename
ImgEdit1.DISPLAY
Close DataFile]
This code is working fine as long as I get columnsize,but Some times
columnSize method returns -1, then this code fails giving error massage,
unable to display picture. is there any way to display picture when
ColumnSize method returs -1 .
thanks .