Save and Retrieve an Image in a Database Using VB.Net

0
1321

This tutorial will help you how to Save and Retrieve an Image in a Database Using VB.Net. In this article, we will be using Visual Basic 2008 and MS Access 2007 for our database.

Please follow the instruction below:

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

 

Fields DataType
studID Autonumber
FNAME Text
LNAME Text
COURSE Text
YR Text
AGE Text
EAMIL Text
studimg OLE Object
  • 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.
Save and Retrieve Image from Database
Save and Retrieve Image from Database
  • Step 3: Writing code in Visual Basic
    • Under Public Class Add the Following Code:
[vbnet]

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

[/vbnet]
    • On Click “Browse Image” Button.

[vbnet]

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

[/vbnet]
    • On Click “SAVE” Button.
[vbnet]

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

[/vbnet]
    • On Click “Search” Button
[vbnet]

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

[/vbnet]

 

  • Step 4: Run your Visual Basic Project
    • Press “F5” or Click the Play Button.
You can Download the full Source Code saveandretriveimage

 

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

 

LEAVE A REPLY

Please enter your comment!
Please enter your name here

This site uses Akismet to reduce spam. Learn how your comment data is processed.