How To Insert Image In Access Database Using VB.Net

How To Insert Image In Access Database Using VB.Net

This tutorial will help you How To Insert Image In Access Database Using VB.Net. In this article, we will be using Visual Basic 2008 and MS Access 2007 for our database.

This tutorial can answer the questions asked from another site about how to insert and retrieve IMAGE from ACCESS database using vb.net.

Please follow the instruction below:

• Step 1: Create a database in MS Access
  • Database Name:  studentdb.accdb
  • Table: tblstudent
    • The structure of tblstudent:

• Step 2: Create a Visual Basic 2008 Project
  • Create and Save it as “Saveandrettriveimg”
  •  Then Put the database(studentdb.accdb) inside Project execution folder(\bin\debug)
  • Design the form like as shown below.

• Step 3: Writing code in Visual Basic
  • Under Public Class Add the Following Code:

Dim conn As New OleDb.OleDbConnection
Dim Myconnection As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\studentdb.accdb"
Dim cmd As New OleDb.OleDbCommand
Dim da As New OleDb.OleDbDataAdapter
Dim result As Integer
Dim imgpath As String
Dim arrImage() As Byte
Dim sql As String

• On Click “Browse Image” Button.

  
  

Try

Dim OFD As FileDialog = New OpenFileDialog()

OFD.Filter = "Image File (*.jpg;*.bmp;*.gif)|*.jpg;*.bmp;*.gif"

If OFD.ShowDialog() = DialogResult.OK Then
imgpath = OFD.FileName
Pic1.ImageLocation = imgpath

End If

OFD = Nothing

Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try

• On Click “SAVE” Button.

Try

Dim mstream As New System.IO.MemoryStream()

Pic1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
arrImage = mstream.GetBuffer()
Dim FileSize As UInt32
FileSize = mstream.Length
mstream.Close()

conn.ConnectionString = Myconnection
conn.Open()
sql = "INSERT INTO tblstudent(FNAME,LNAME, COURSE, YR, AGE, EMAIL,studimg) " & _
" VALUES (@a, @LNAME, @COURSE, @YR, @AGE, @EMAIL,@studimg)"

cmd.Connection = conn
cmd.CommandText = sql
cmd.Parameters.AddWithValue("@a", TXTFIRSTNAME.Text)
cmd.Parameters.AddWithValue("@LNAME", TXTLNAME.Text)
cmd.Parameters.AddWithValue("@COURSE", TXTCOURSE.Text)
cmd.Parameters.AddWithValue("@YR", TXTYR.Text)
cmd.Parameters.AddWithValue("@AGE", TXTAGE.Text)
cmd.Parameters.AddWithValue("@EMAIL", TXTEMAIL.Text)
cmd.Parameters.AddWithValue("@studimg", arrImage)
Dim r As Integer
r = cmd.ExecuteNonQuery()
If r > 0 Then
MsgBox("Student Record hass been Saved!")
Else
MsgBox("No record has been saved!")
End If
conn.Close()

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

• On Click “Search” Button

sql = "Select * from tblstudent where studID=" & Val(TextBox1.Text)
conn.ConnectionString = Myconnection
conn.Open()
With cmd
.Connection = conn
.CommandText = sql
End With
Dim arrImage() As Byte
Dim publictable As New DataTable
Try
da.SelectCommand = cmd
da.Fill(publictable)
TXTLNAME.Text = publictable.Rows(0).Item(2)
TXTFIRSTNAME.Text = publictable.Rows(0).Item(1)
TXTCOURSE.Text = publictable.Rows(0).Item(3)
TXTYR.Text = publictable.Rows(0).Item(4)
TXTAGE.Text = publictable.Rows(0).Item(5)
TXTEMAIL.Text = publictable.Rows(0).Item(6)
arrImage = publictable.Rows(0).Item(7)

Dim mstream As New System.IO.MemoryStream(arrImage)
Pic1.Image = Image.FromStream(mstream)

Catch ex As Exception
MsgBox(ex.Message)
Finally
da.Dispose()
conn.Close()

End Try

• Step 4: Run your Visual Basic Project
  • Press “F5” or Click the Play Button.

Downloadable Source Code

You can Download the full Source Code saveandretriveimage

Free VB.NET Resources

For More VB.NET Projects with source code, I listed it in this link.

If you want to know how to master vb.net with MySQL Database in 30 minutes, you can start your lesson here.

Or you can start your lesson here about the 5 Steps on How to Connect VB.Net in MySQL database.

Inquiries

If you have any questions or suggestions about this tutorial on how to insert and display pictures from the access database in vb.net, please leave a comment below.

Help Us Grow

If you find this tutorial helpful please share this with your friends and to help us grow please hit the LIKE button on our Facebook Page. Thank You.