Vb.net import/load images access DB

Question

0.00/5 (No votes)

See more:

Hello,
I had been searching on internet for guide source of tutorials how to make this but i coudn't find any use one. So i will try to post here maybe someone will help me out.

How to make this 2 features
.accdb file with table:
- Users -> ID, Picture (OleDB)

When form loads to load picture from that table and display it on picturebox1
Save button to import picture from computer to the table and column.

Sorry to post this but really couldn't find good and newer tutorial with accsess db.

If someone could help me, purpose is learning and making projects for myself to learn and uderstand more and more about ms accsess and vb.net.
Thank you for support even if its to some thread where it can help me to create it.

What I have tried:

tryed old tutorials that were maded in 2010-2011 but not good options. Need something new and better maded for learning.

Posted 6-Jun-20 21:51pm

diablo22

Updated 6-Jun-20 23:27pm

Add a Solution

2 solutions

Solution 1

Create the access database and add the table that you want to use for storing the data. Image files use the BLOB datatype. However, sometimes it can be better to save images as files and just store their pathname in the database.

Create a form that includes a picturebox control. Add the code in the form load method to load the image into the picture box.

If you need help using specific controls then you can check their methods and properties on the MSDN documentation pages. For example PictureBox Class (System.Windows.Forms) | Microsoft Docs[^].

Posted 6-Jun-20 23:12pm

Richard MacCutchan

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

diablo22 · Accepted Answer · 2020-06-06T23:27:00

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dialog As New OpenFileDialog()
        dialog.Title = "Browse Picture"
        dialog.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
        If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(dialog.FileName)
            TextBox1.Text = dialog.FileName.ToString
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            With cmd
                Dim ms As New IO.MemoryStream()
                PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
                Dim arrimage() As Byte = ms.GetBuffer
                conn.Open()
                .Connection = conn
                .CommandText = "UPDATE Table SET cPicture = @picture WHERE ID = 1"
                .Parameters.Add("@Picture", OleDbType.Binary).Value = arrimage
                .ExecuteNonQuery()
                ms.Close()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            If conn IsNot Nothing Then
                conn.Close()
            End If
        End Try

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            With cmd
                Dim stream As New IO.MemoryStream()
                conn.Open()
                .Connection = conn
                .CommandText = "select cPicture from Table where ID=1"
                Dim image As Byte() = DirectCast(cmd.ExecuteScalar(), Byte())
                stream.Write(image, 0, image.Length)
                Dim bitmap As New Bitmap(stream)
                PictureBox1.Image = bitmap '--->I have used another picturebox to display image from database.
                stream.Close()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            If conn IsNot Nothing Then
                conn.Close()
            End If
        End Try

    End Sub