Here is my code and it seems that the recordset took a while before proceeding with the next command.

With rdoIMG
.Open “SELECT * FROM CHEQUES”, cnn, adOpenStatic, adLockOptimistic
End With

I tried also this one but still took a while to process…

Dim cnMySql As New rdoConnection
Dim rdoQry As New rdoQuery
Dim rdoRS As rdoResultset

With rdoQry
.Name = “test”
.SQL = “select * from CHEQUES”
.RowsetSize = 1
Set .ActiveConnection = cnMySql
Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer)

End With

Appreciate much your kind support…

Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer, Filename As String

Private Const ChunkSize As Integer = 16384
Private Const conChunkSize = 100

glad i came back here, well about your concern, there is always a solution for that. you must have a source code that will read the blob field and will convert the actual datafile to temporary file which can be loaded automatically using this command:
If ShowPic(rsFill!photo, Image1) = False Then
Set Image1.Picture = LoadPicture(App.Path & “\pics\temp.jpg”)
End If

if the function ShowPic returns true it means that the picture from the blob field (photo) was already loaded to Image1, which is either an image or picturebox control. And if it returns false then load a picture from directory as temporary.

Well, try to look for this source as i’m using this in my SQL server DB. Consider this one if it may help you.

Public Function ShowPic(ByRef fieldname As Field, ByRef cImage As Object) As Boolean
On Error GoTo Out
ShowPic = False
DataFile = 1
Open “pictemp” For Binary Access Write As DataFile
Fl = fieldname.ActualSize ‘ Length of data in file
If Fl = 0 Then Close DataFile: Exit Function
Chunks = Fl \ ChunkSize
Fragment = Fl Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = fieldname.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Buffer(ChunkSize)
Chunk() = fieldname.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
Filename = “pictemp”
‘ShowPic = LoadPicture(FileName)
cImage.Picture = LoadPicture(Filename)
ShowPic = True
Exit Function

Out:
ShowPic = False
End Function

Any solution is very much appreciated.
Thanks in advance…

More powers to everybody.”
————————————————-
Loading Picture to a Picture Box

Picture1.Picture = LoadPicture (FileName)