Extracting image in databases using DAO 3.5 (Access DB)

I have been trying to store images in a database for sometime, i can do it directly from Access97 but i can't transfer these image to any control in VB.

What i'm really doing is, i store the images for my toolbar buttons in a database so that the user can edit them and the changes will be kept. So what i need to know, is how do i extract and how do i update images directly from a ole-Object field in an Access 97 Database using DAO 3.5 (or 3.6, i got that one also, but i don't have the help file so i'm using 3.5)

[smalig]

Hi, try my code at

http://vbcity.com/vbcode/en/click.asp?id=71

Woohoo, gee thanks, i needed that to get smile on my face. Thanks a lot, i'll try it out...

[PGrimshaw]

Could I have a copy of this code? The link is sending my to a Russion website.

Paul.

[smalig]

These messages you found was sent last year and I have now new great site but unfortunately only for russian speaking people Here is the code you request:

Dim dbTest As Database
Dim rstAlbum As Recordset 
Dim FileLen&, X%, lngOffset&, Chunks%, lngTotalSize& 
Dim Arr() As Byte 
Const ArrSize As Integer = 16384 

Sub ReadPictureFromDb() 

On Error Resume Next 

Open "d:\picture.gif" For Binary Access Write As #1 
lngTotalSize = rstAlbum!Picture.FieldSize 
Chunks = lngTotalSize \ ArrSize 
Fragment = lngTotalSize Mod ArrSize 

ReDim Arr(ChunkSize) 
Arr() = rstAlbum!Picture.GetChunk(lngOffset, ArrSize) 
Put #1, , Arr() lngOffset = lngOffset + ArrSize 

With rstAlbum 

Do While lngOffset < lngTotalSize 
Arr() = !Picture.GetChunk(lngOffset, ArrSize) 
Put #1, , Arr() 
lngOffset = lngOffset + ArrSize 
Loop Close #1 
.Close 

End With 

End Sub 

Sub SavePictureToDb() 

rstAlbum.AddNew

Open "c:\picture.gif" For Binary Access Read As #1

FileLen = LOF(1) Chunks = FileLen \ ArrSize Fragment = FileLen Mod ArrSize 

ReDim Arr(Fragment) 

With rstAlbum Get #1, , Arr() 

!Picture.AppendChunk Arr() 
ReDim Arr(ChunkSize) 
For I = 1 To Chunks 
Get DataFile, , Arr() 
!Picture.AppendChunk Arr() 
Next 
Close #1 .Update

End With 

End Sub 

Private Sub Form_Load() 

Set dbTest = OpenDatabase("d:\db1.mdb", True) 
Set rstAlbum = dbTest.OpenRecordset("select * from Album", dbOpenDynaset)

SavePictureToDb 
ReadPictureFromDb 

Set rstAlbum = Nothing
dbTest.Close 

End Sub

Have a nice day,
Alexei