How to Add and Retrieve Multiple Images in VB.Net

0
2284

How to Add and Retrieve Multiple Images in VB.Net

In this tutorial, you will learn how to add and retrieve multiple images in VB.Net.

First, create your project and add these tools on your blank project. (see image below.)

How to Add and Retrieve Multiple Images in VB.Net
How to Add and Retrieve Multiple Images in VB.Net

Then, create a database named retrieveimage then add this code to add image table with its columns.

[mysql]

CREATE TABLE IF NOT EXISTS image (

ID int(10) NOT NULL,

image1 longblob NOT NULL,

image2 longblob NOT NULL,

image3 longblob NOT NULL,

PRIMARY KEY (ID)

) ENGINE=MyISAM DEFAULT CHARSET=utf8;

[/mysql]

Then on our “choose image” button, insert this line of code:

[vbnet]

Try
Dim OFD As FileDialog = New OpenFileDialog()
OFD.Filter = “Image File (*.jpg;*)|*.jpg;*”
If OFD.ShowDialog() = DialogResult.OK Then
imgpath = OFD.FileName
PictureBox1.ImageLocation = imgpath
End If
OFD = Nothing
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try

[/vbnet]

For the next “choose image” button just change the name of PictureBox depending on its upper picture box name.

Add this line of code at the top of your Form1 code:

[vbnet]
Imports MySql.Data.MySqlClient
Dim imgpath As String
Dim arrImage() As Byte
Dim arrImage2() As Byte
Dim arrImage3() As Byte
Dim conn As MySqlConnection
Dim cmd As MySqlCommand
Dim da As MySqlDataAdapter
Dim sql As String
Dim result As Integer
[/vbnet]

Next, on the “Add Image” button, insert this code:

[vbnet]

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If TextBox1.Text = “” Then
MsgBox(“Input ID!”)
ElseIf IsNothing(PictureBox1.Image) Then
MsgBox(“Select image 1!”)
ElseIf IsNothing(PictureBox2.Image) Then
MsgBox(“Select image 2!”)
ElseIf IsNothing(PictureBox3.Image) Then
MsgBox(“Select image 3!”)
Else
Try
Dim mstream As New System.IO.MemoryStream()
PictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
arrImage = mstream.GetBuffer()
Dim FileSize As UInt32
FileSize = mstream.Length
mstream.Close()
conn = New MySqlConnection
conn.ConnectionString = “server=localhost; user id=root; password=; database=retrieveimage;”
conn.Open()
sql = “INSERT INTO image (ID, image1) VALUES (@ID, @Image1);”
cmd = New MySqlCommand
With cmd
.Connection = conn
.CommandText = sql
.Parameters.Clear()
.Parameters.AddWithValue(“@ID”, TextBox1.Text)
.Parameters.AddWithValue(“@Image1”, arrImage)
.ExecuteNonQuery()
End With
Catch ex As MySqlException
MsgBox(ex.Message)
Finally
conn.Close()
Try
Dim mstream As New System.IO.MemoryStream()
PictureBox2.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
arrImage2 = mstream.GetBuffer()
Dim FileSize As UInt32
FileSize = mstream.Length
mstream.Close()
conn = New MySqlConnection
conn.ConnectionString = “server=localhost; user id=root; password=; database=retrieveimage;”
conn.Open()
sql = “UPDATE image SET image2 = @Image2 WHERE ID = @ID;”
cmd = New MySqlCommand
With cmd
.Connection = conn
.CommandText = sql
.Parameters.Clear()
.Parameters.AddWithValue(“@ID”, TextBox1.Text)
.Parameters.AddWithValue(“@Image2”, arrImage2)
.ExecuteNonQuery()
End With
Catch ex As MySqlException
MsgBox(ex.Message)
Finally
conn.Close()
Try
Dim mstream As New System.IO.MemoryStream()
PictureBox3.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
arrImage3 = mstream.GetBuffer()
Dim FileSize As UInt32
FileSize = mstream.Length
mstream.Close()
conn = New MySqlConnection
conn.ConnectionString = “server=localhost; user id=root; password=; database=retrieveimage;”
conn.Open()
sql = “UPDATE image SET image3 = @Image3 WHERE ID = @ID;”
With cmd
.Connection = conn
.CommandText = sql
.Parameters.Clear()
.Parameters.AddWithValue(“@ID”, TextBox1.Text)
.Parameters.AddWithValue(“@Image3”, arrImage3)
result = .ExecuteNonQuery()
End With
Catch ex As MySqlException
MsgBox(ex.Message)
Finally
conn.Close()
If result = 0 Then
MsgBox(“Error in registering!”)
Else
MsgBox(“Successfully added images!”)
End If
TextBox1.Text = “”
PictureBox1.Image = Nothing
PictureBox2.Image = Nothing
PictureBox3.Image = Nothing
End Try
End Try
End Try
End If
End Sub
[/vbnet]

To retrieve our images from the database, double click the “Retrieve Image” button and insert this code.

[vbnet]
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If TextBox1.Text = “” Then
MsgBox(“Input ID for retrieval!”)
Else
Try
conn = New MySqlConnection
conn.ConnectionString = “server=localhost; user id=root; password=; database=retrieveimage;”
conn.Open()
sql = “SELECT * FROM image WHERE ID = @ID;”
cmd = New MySqlCommand
With cmd
.Connection = conn
.CommandText = sql
.Parameters.Clear()
.Parameters.AddWithValue(“@ID”, TextBox1.Text)
.ExecuteNonQuery()
End With
Dim arrImage(), arrImage2(), arrImage3() As Byte
Dim dt As New DataTable
da = New MySqlDataAdapter
da.SelectCommand = cmd
da.Fill(dt)
If dt.Rows.Count > 0 Then
MsgBox(“Showing results!”)
arrImage = dt.Rows(0).Item(1)
arrImage2 = dt.Rows(0).Item(2)
arrImage3 = dt.Rows(0).Item(3)
Dim mstream As New System.IO.MemoryStream(arrImage)
Dim mstream2 As New System.IO.MemoryStream(arrImage2)
Dim mstream3 As New System.IO.MemoryStream(arrImage3)
PictureBox1.Image = Image.FromStream(mstream)
PictureBox2.Image = Image.FromStream(mstream2)
PictureBox3.Image = Image.FromStream(mstream3)
Else
MsgBox(“No results!”)
End If
Catch ex As MySqlException
MsgBox(ex.Message)
Finally
conn.Close()
da.Dispose()
End Try
End If
End Sub
[/vbnet]

Success! You have learned How to Add and Retrieve Multiple Images in VB.Net!

RAR Extraction Password:

Password: luffypirates

For questions or any other concerns or thesis/capstone creation with documentation, you can contact me through the following:

E-Mail: [email protected]

Facebook: facebook.com/kirk.lavapiez

Contact No.: +639771069640

To download the sample project, click here.

Ian Hero L. Lavapiez

BSIT Graduate

System Analyst and Developer

Related topic(s) that you may like:

 

Looking for more source code? Type your keyword here here!

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.