Saving .jpg images to database

Asked By 200 points N/A Posted on -
qa-featured

Hi all,

I have created a program in Visual Basic 6 that will be used in every department (IT Department, Accounting etc.) in our school. It will save all the basic information of a person like ID_number, Name, Address, Contact info etc. It's a simple program that handles membership or registration of every person that is enrolled on a certain Department.

But I am having a problem saving images that is very important in a membership program. I also want that only a file extension of .jpg picture is allowed for saving the images. Can anyone help me about this? I am using DAO to connect to database and Microsoft Access 2003 as my backend.

Thanks.

SHARE
Best Answer by Liza Garnet
Best Answer
Best Answer
Answered By 0 points N/A #126031

Saving .jpg images to database

qa-featured

Saving image using VB6 is very easy. But we will not save those images directly to the database because it will make the program heavier. What we are going to do is to save all images in one location and only the path of the image will be saved in your database.

Every time you are going to save the profile of a person, as for the image, you will only get the name of the picture and its file extension and then save it to your database. On retrieving of picture, you will just call the complete path name of the picture which you have already saved in the database and using the image control you will set its source to be able to display the image, the source will be the image path. For much clearer explanation, I will show you the codes for saving images.

Put the following codes and controls on your form:

  • 1 Image control, Width = 2400, Height = 2400.
  • 1 Command Button for browsing images to your computer.
  • 1 Common Dialog.

On “General Declarations” put these codes:

Dim pic_name As String, pic_ext As String, pic_changed As Boolean

Double click the command button and paste these codes:

CommonDialog1.Filter = " Picture Files|*.jpg|JPEG Images(*.jpg)".

cdb.ShowOpen

        If CommonDialog1.FileName <> "" Then

            Image1.Picture = LoadPicture(cdb.FileName)

            pic_name = CommonDialog1.FileName

            pic_ext = Right(CommonDialog1.FileTitle, 4)

        pic_changed = True

End If

Paste these codes after end sub:

Public Sub pic()

If Form1. CommonDialog1.FileName <> "" Then

       Form1.Image1.Picture = LoadPicture(Form1. CommonDialog1.FileName)

        pic_name = Form1. CommonDialog1.FileName

        pic_ext = Right(Form1. CommonDialog1.FileTitle, 4)

        pic_changed = True

End If

End Sub

Replace “Form1” with the name of your form.

Add these codes to your save command:

If pic_name <> "" Then

FileCopy pic_name, App.Path & "Pictures" & !ID_number & pic_ext

!Picture = "Pictures" & !Id_no & pic_ext

End If

Replace !Picture with the corresponding field name in your database. The name of the saved image will be in this format ID number of the person + Lastname + pic extension. I’ve included the file extension to be able to view the picture when you open the target folder. That’s it!

Answered By 0 points N/A #126034

Saving .jpg images to database

qa-featured

Saving the image in MS Access database is not hard but the question is:

1. Where is the image come from (WEB camera or other capturer Image device)?

And i am sure that you don't want your database to become very when the database is more than 1 GB, and if that is not the concern then i teach you how to save the image to your database using VB6 and MS Access 2003 Database.

 

1. Add a field on your existing table

FieldName Data Type
Photo OLE Object

2. In your Existing Form (In VB6) like where the Information of your Member is or where you want to put the Picture: Add Image Object and Name it ImgPic.

3. Add CommondDialog name it CDImage.

4. Add Command Button name it cmdBrowse.

Put this on the code of cmdbrowse:

Private Sub cmdBrowse_Click()
Me.cDImage.ShowOpen'
If Me.CDImage.FileName & "" <> "" Then
Set Me.imgPic.Picture = LoadPicture(Me.CDImage.FileName)
End If
End Sub

5. Then save the image on your database just add this to the existing form you have.

Dim ImageByte() As Byte

Dim PathImage As String

Dim fileint As Integer

SavePicture Me.imgPic.Picture, App.Path

PhotoImage = App.Path

ReDim ImageByte(FileLen(PathImage))

fileint = FreeFile()

Open PhotoImage For Binary As #fileint

Get #fileint, , ImageByte

Close fileint

'(Open your database on using recordset, see below example)

rst.Open "Membership", cn, adOpenStatic, adLockOptimistic, adCmdTable

with rst

.addnew

Field(Photo).appendchunk imageByte ' the name of the field in the database is PHOTO

.update

End with

rst.close

Login/Register to Answer

Related Questions