Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click

Try

'save Images

If Trim(txtImg.Text) = "" Then

MsgBox("Please select a image.")

Exit Sub

End If

Dim fs As New FileStream(Trim(txtImg.Text), FileMode.Open)

Dim Data() As Byte = New [Byte](fs.Length) {}

fs.Read(Data, 0, fs.Length)

Dim con As New System.Data.SqlClient.SqlConnection("data source=mt5;initial catalog=master;user id=sa;password=mms")

con.Open()

Dim cmd As New System.Data.SqlClient.SqlCommand("insert into SampleImageTable values(@imgsamgetimage)",con);

cmd.Parameters.Add("@imgsamgetimage", Data)

cmd.ExecuteNonQuery()

con.Close()

fs.Close()

Catch ex As System.Data.SqlClient.SqlException

MsgBox(ex.Message)

End Try

End Sub

Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click

‘ download and display in picturebox

Dim con As New System.Data.SqlClient.SqlConnection("data source=mt5;initial catalog=master;user id=sa;password=mms")

con.Open()

Dim cmd As New System.Data.SqlClient.SqlCommand("select * from SampleImageTable")

cmd.Connection = con

cmd.CommandType = CommandType.Text

Dim da As New System.Data.SqlClient.SqlDataAdapter(cmd)

Dim ds As New DataSet()

da.Fill(ds)

Dim bits As Byte() = CType(ds.Tables(0).Rows(0).Item(0), Byte())

Dim memorybits As New MemoryStream(bits)

Dim bitmap As New Bitmap(memorybits)

PictureBox1.Image = bitmap

End Sub