Saving picture from DB

Here is a sample code that you can work with.

I've tested this with a table called tblImage that has 2 columns. First column is ID (type: autonumber) and the second one is IMGDATA (type: OLE Data).

On Form1, I have 2 buttons, Button1 and Button2 to IMPORT from IMAGE file and EXPORT from DB respectively. I also have an ADO DATA CONTROL (Adodc1) that is pointing to the MDB and the .RECORDSOURCE set to tblImage.

' saves from IMG file into DB
Private Sub Button1_Click()
' get file name
dim szFile as string
szFile = InputBox("Enter image path")

' open file and read data
dim imgByte() as Byte
open szFile for Binary access read for #1
redim imgByte(LOF(1))

dim nPos as long
nPos = 0
while (not eof(1))
get #1, nPos+1, imgByte(nPos)
nPos = nPos + 1
wend

' save into db
dim adoRS as ADODB.RecordSet
set adoRS = Adodc1.RecordSet

With adoRS
.AddNew
.Fields(1).Value = imgByte
end with

' close everything
close #1
redim imgByte(0)
set adoRS = Nothing
End Sub

' Saves from DB into file
Private Sub Button2_Click()
' get file name
dim szFile as string
szFile = InputBox("Enter new image path")

' get current record
dim adoRS as ADODB.RecordSet
set adoRS = Adodc1.RecordSet

' get data
dim imgByte() as Byte
redim imgByte(adors.Fields(1).actualsize)
imgByte = adoRs.Fields(1).value

' write data
open szfile for binary access write as #1
put #1, , imgByte
close #1

set adoRS = nothing
End Sub

Good Luck,
-Cool Bizs

[Cimperiali colorized for better reading]

I don`t understand where I can take Adodc1.

I tryed to do all this using simply Database and recordset. Everythig was perfectly except results :)) Files that appears on my disk are not files that I have put into OLE field. It include ole object as I understand.

Dim byProg() As Byte
byProg = rsSystem.Fields(3).Value


Dim nFreeFiles As Integer
nFreeFiles = FreeFile

Dim sFileName As String
sFileName = sFolder & "\" & sDir & "\" & sName

Open sFileName For Binary Access Write As #nFreeFiles
Put #nFreeFiles, , byProg
Close #nFreeFiles


How can I do it?

Regards,
Yura.

I`m sorry for my stupid question, but how have you added Binary Data into the OLE object field?

Yura

I also have created an application that reads photos from a database and can add them too. Its a different solution, to the one mentioned above.

I used common dialog 1 to retrieve the filename of the picture and embed the picture in the ole object. As follows

Private Sub olePhoto_Click()

CommonDialog1.Filter = "Photo Files(*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif"
CommonDialog1.CancelError = True
On Error GoTo errorhandler
CommonDialog1.ShowOpen
olePhoto.CreateEmbed CommonDialog1.FileName
Exit Sub

errorhandler:
Exit Sub

End Sub

I had already set up an access 2000 database with an ole photo field to store the picture and linked this to my application using a data control called dtaControl. Then I set the datasource of olePhoto to dtaControl, and set the datafield to photo (the ole photo field set up with access). The only other thing to do is update the database. I did this with a command button as follows:

Private Sub cmdUpdate_Click()
dtaControl.UpdateRecord
End Sub

Hope this helps someone :)

how about using the insert statment instead of the addnew? thanx.

I have downloaded sample in C drive, it is not adding any new picture in the table when I click save from file .. I have given image file name also please help. it is working for savetofile method...