Problems saving a bitmap (1 Viewer)

[303factory]

Good morning

I'm having trouble saving a bitmap from my database to file. It's stored as the 'Image' type in my SQL Server 2008 table, and is put into the table by simply dragging a bitmap file into a bound OLE object

To retrieve it I'm trying the following code:

  Dim strSQL As String
    Set rs = New ADODB.Recordset
    strSQL = "SELECT * FROM tblExhibitPhotos WHERE ID= 93 "
    rs.Open strSQL, gSQLdbase, adOpenKeyset, adLockOptimistic, adCmdText
    MsgBox (rs.RecordCount)
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.Write rs.Fields("Image").Value
    mstream.SaveToFile "c:\Image.bmp", adSaveCreateOverWrite
    rs.Close

This creates a bitmap file in the right location, with a file size that looks about right, but it doesnt open. I've scoured the net and some forums imply that the problem is that the image file wont have correct header information etc. Is there a simple way to convert mystream binary data into a bitmap, or more simply just dump the image field content into the same format it was created with?

As always if you could point me in the right direction ill do the leg work

Regards

303

 

[DCrake]

You may get better results using FileToBlob and BlobToFile. Here is a Demo that uses this feature. May help you.

 

[Khalid_Afridi]

Thanks Mr. David

I download the dbs, but I always get the missing references on my Access-2007

 

[DCrake]

You may need to browse to your Windows\system32 folder to register it.

This is the Microsoft Common Dialog control

 

[Khalid_Afridi]

Thanks David, but how?

 

[DCrake]

Design a module and select Tools > References from the menu. It should say Missing against the offending ocx. Browse to Windows\system32\ to find it and select Ok to register it.

 

[Khalid_Afridi]

let me try Dave thanks

 

[Khalid_Afridi]

David

I found it and fixed it. It was common dialogue control which was giving the problem.

I delete the Missing Reference after registering the Microsoft Windows Common Dialogue 6.0.

Thanks

 

[303factory]

You may get better results using FileToBlob and BlobToFile. Here is a Demo that uses this feature. May help you.

Thanks kindly for the demo code. I included the MobBLob module in my client and tried the following:

Dim strSQL As String
    Set rs = New ADODB.Recordset
    strSQL = "SELECT * FROM tblExhibitPhotos WHERE ID= 93 "
    rs.Open strSQL, gSQLdbase, adOpenKeyset, adLockOptimistic, adCmdText
    
    Call BlobToFile(rs.Fields("Image"), "C:\Image.bmp", rs.Fields("Image").ActualSize)
    
    rs.Close
    Set rs = Nothing

However I'm getting the same problem, the image still isnt recognised as a valid bitmap

 

[303factory]

im trying to follow these instructions
http://support.microsoft.com/kb/175261

its asking me to create a class file though, im not even sure if i can do this in MSAcess! wah :S

 

[303factory]

If I were to approach this problem from a different angle.

Is it possible to have a continuous subform with image objects referencing image paths on a hard disk?

I can do this fine for a single form with one image, but I need a 1:many relationship with N images, with a different image appearing on each unit of teh subform.

I assumed this was impossible hence using bound OLE ojects but will change the way it works if getting OLE objects back to file is a massive pain in the backside...