Store Images in a Database

Retrieving an image from database I have used the Image Control (let the name Image1), add a button (let name is Retrieve) and add the following code

 rec.Open "Select pict From table” , con, adOpenKeyset, adLockOptimistic
 nHandle = FreeFile
 
 Dim temp As String
 temp = "picture.tmp"
 
 Dim pp As New ADOPictDB32.ADOPictDB
   
 Set Image1.Picture = LoadPicture(pp.getPict(rec, "pict", temp))
 rec.Close
 Set rec = Nothing

I think ADOPictDB32.dll will help you. If you have any comments regarding this dll feel free to send mail at [email protected]. If you like this dll please do not forget to give it a rating.