How to Save an Image in Access Database Using VB.Net

Submitted by janobe on Monday, July 15, 2019 - 19:36.

Body

Today, you will learn how to save Image in Access Database using VB.Net. This project will illustrate how to save an object in the field with a data type of “OLE Object” in the Access database. In this process, the image itself will be automatically saved in the database when the button is clicked. See the procedure below to see how it works.

Creating an Application

Step 1

Open Microsoft Visual Studio 2015 and create a new windows form application in visual basic.
ps1

Step 2

Do the form just like shown below.
ps2

Step 3

Press F7 to open the code editor. In the code editor, add a namespace for OLeDB to access OLeDB libraries and .

Imports System.Data.OleDb

Step 4

Create a connection between the access database and c#. After that, declare all the classes and variables that are needed.

 
    Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\dbsaveimg.accdb")
    Dim cmd As OleDbCommand
    Dim sql As String

Step 5

Create a method for saving an image in the database.

 
    Private Sub saveImage(sql As String)
        Try 
 
         Dim arrImage() As Byte
         Dim mstream As New System.IO.MemoryStream()
 
            'SPECIFIES THE FILE FORMAT OF THE IMAGE
            PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
 
            'RETURNS THE ARRAY OF UNSIGNED BYTES FROM WHICH THIS STREAM WAS CREATED
            arrImage = mstream.GetBuffer()
 
            'GET THE SIZE OF THE STREAM IN BYTES
            Dim FileSize As UInt32
            FileSize = mstream.Length
            'CLOSES THE CURRENT STREAM AND RELEASE ANY RESOURCES ASSOCIATED WITH THE CURRENT STREAM
            mstream.Close()
 
            con.Open()
 
            cmd = New OleDbCommand
            With cmd
                .Connection = con
                .CommandText = sql
                .Parameters.AddWithValue("@img", arrImage)
                .ExecuteNonQuery()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub

Step 6

Write the following code for getting the image from the external directory.

 
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Try
            With OpenFileDialog1
 
                'CHECK THE SELECTED FILE IF IT EXIST OTHERWISE THE DIALOG BOX WILL DISPLAY A WARNING.
                .CheckFileExists = True
 
                'CHECK THE SELECTED PATH IF IT EXIST OTHERWISE THE DIALOG BOX WILL DISPLAY A WARNING.
                .CheckPathExists = True
 
                'GET AND SET THE DEFAULT EXTENSION
                .DefaultExt = "jpg"
 
                'RETURN THE FILE LINKED TO THE LNK FILE
                .DereferenceLinks = True
 
                'SET THE FILE NAME TO EMPTY 
                .FileName = ""
 
                'FILTERING THE FILES
                .Filter = "(*.jpg)|*.jpg|(*.png)|*.png|(*.jpg)|*.jpg|All files|*.*"
                'SET THIS FOR ONE FILE SELECTION ONLY.
                .Multiselect = False
 
                'SET THIS TO PUT THE CURRENT FOLDER BACK TO WHERE IT HAS STARTED.
                .RestoreDirectory = True
 
                'SET THE TITLE OF THE DIALOG BOX.
                .Title = "Select a file to open"
 
                'ACCEPT ONLY THE VALID WIN32 FILE NAMES.
                .ValidateNames = True
 
                If .ShowDialog = DialogResult.OK Then
                    Try
                        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
                    Catch fileException As Exception
                        Throw fileException
                    End Try
                End If
 
            End With
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub

Step 7

Do the following code for saving the picture when the button is clicked.

 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        sql = "Insert into tblimage (img) Values (@img)"
        saveImage(sql)
        MsgBox("Image has been saved in the database")
    End Sub

Output:
ps4
Download the complete source code and run it on your computer.
For any questions about this article. You can contact me @
Email – [email protected]
Mobile No. – 09305235027 – TNT
Or feel free to comment below

Add new comment
64 views

RETRIEVE Image on click

hello, thank you so much for the code. It helps a lot.
Now I have a big problem, this is how can I retrieve the image from access with ole object data type by using datagridview cell content click? PLEASE I REALLY NEED HELP WITH THIS ONE. I'm making a program where if the user clicks any cell it will retrieve the data and put it to respective controls.