Option Strict On
Option Explicit On
Imports System.Drawing.Imaging ' Image related methods etc.
Imports System.IO ' MemoryStream
Imports System.Data.SqlClient ' SQl Server related classes
Public Class Form1
' Class global variable
Private m_CnStr As String ' Connection string to DB
' Table structure:
' ImageTable:
'
' ImageID varchar(50)
' BlobField image
''' <summary>
''' Convert a byte array to an Image
''' </summary>
''' <param name="NewImage">Image to be returned</param>
''' <param name="ByteArr">Contains bytes to be converted</param>
''' <remarks></remarks>
Public Sub Byte2Image(ByRef NewImage As Image, ByVal ByteArr() As Byte)
'
Dim ImageStream As MemoryStream
Try
If ByteArr.GetUpperBound(0) > 0 Then
ImageStream = New MemoryStream(ByteArr)
NewImage = Image.FromStream(ImageStream)
Else
NewImage = Nothing
End If
Catch ex As Exception
NewImage = Nothing
End Try
End Sub
''' <summary>
''' Convert an image to array of bytes
''' </summary>
''' <param name="NewImage">Image to be converted</param>
''' <param name="ByteArr">Returns bytes</param>
''' <remarks></remarks>
Public Sub Image2Byte(ByRef NewImage As Image, ByRef ByteArr() As Byte)
'
Dim ImageStream As MemoryStream
Try
ReDim ByteArr(0)
If NewImage IsNot Nothing Then
ImageStream = New MemoryStream
NewImage.Save(ImageStream, ImageFormat.Jpeg)
ReDim ByteArr(CInt(ImageStream.Length - 1))
ImageStream.Position = 0
ImageStream.Read(ByteArr, 0, CInt(ImageStream.Length))
End If
Catch ex As Exception
End Try
End Sub
''' <summary>
''' Save a byte array to database
''' </summary>
''' <param name="ByteArr">Contains bytes to be saved</param>
''' <param name="ImageID">ID for the image</param>
''' <remarks></remarks>
Public Sub SaveByteArray(ByVal ByteArr() As Byte, ByVal ImageID As String)
'
Dim strSQL As String
Dim oConn As SqlConnection
Dim oCmd As SqlCommand
Dim oVarCharParam As SqlParameter
Dim oBLOBParam As SqlParameter
Try
' Create and open connection object
oConn = New SqlConnection(m_CnStr)
oConn.Open()
' Insert statement
' Notice that @BLOBValue is a placeholder for the actual data
strSQL = "INSERT INTO ImageTable (ImageID, BlobField) VALUES (@IDValue, @BLOBValue)"
' Create a command object
oCmd = oConn.CreateCommand()
' Set SQL statement
oCmd.CommandText = strSQL
' Create a command parameter
oVarCharParam = New SqlParameter("@IDValue", SqlDbType.VarChar, _
50, ParameterDirection.Input.ToString)
' Set the actual data
oVarCharParam.Value = ImageID
' Add this parameter to the command
oCmd.Parameters.Add(oVarCharParam)
' Create a command parameter
oBLOBParam = New SqlParameter("@BLOBValue", SqlDbType.Binary, _
ByteArr.Length, ParameterDirection.Input.ToString)
' Finally, set the actual data
oBLOBParam.Value = ByteArr
' Add this parameter to the command
oCmd.Parameters.Add(oBLOBParam)
' Execute SQL statement
oCmd.ExecuteNonQuery()
' Close the connection
oConn.Close()
Catch ex As Exception
End Try
End Sub
''' <summary>
''' Load a byte array from database
''' </summary>
''' <param name="ByteArr">Contains bytes from the database</param>
''' <param name="ImageID">ID for the image</param>
''' <remarks></remarks>
Public Sub LoadByteArray(ByRef ByteArr() As Byte, ByVal ImageID As String)
'
Dim strSQL As String
Dim oConn As SqlConnection
Dim oCmd As SqlCommand
Dim ValueFromDB As Object ' ExecuteScalar method returns an object
Try
' Create and open connection object
oConn = New SqlConnection(m_CnStr)
oConn.Open()
' Select statement
strSQL = "SELECT BlobField FROM ImageTable WHERE ImageID='" & ImageID & "'"
' Create a command object
oCmd = oConn.CreateCommand()
' Set SQL statement
oCmd.CommandText = strSQL
' Execute SQL statement
ValueFromDB = oCmd.ExecuteScalar()
' Close the connection
oConn.Close()
' Convert returned object to an array of bytes
If ValueFromDB IsNot DBNull.Value Then
ByteArr = CType(ValueFromDB, Byte())
End If
Catch ex As Exception
End Try
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' DEBUG: Load an (initial) image to picture box control
PictureBox1.Image = Image.FromFile("D:\image.jpg")
' Initialize DB connection, REPLACE VALUES!
' m_CnStr = "Data Source=database name; INITIAL CATALOG=table name; User ID=user name; Password=user password;"
m_CnStr = "Data Source=xxx\SQLEXPRESS; INITIAL CATALOG=xxx; User ID=xxx; Password=xxx;"
' DEBUG: Test image ID
TextBox1.Text = "patient_image_001"
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
' Saves the image from the picture box control to SQL Server
Dim ImageByteArr(0) As Byte ' An array to hold image (bytes)
Dim PatientID As String ' ID for the image
' Get ID from a text box control and remove spaces
PatientID = TextBox1.Text.Trim
' Convert image to an array of bytes
Image2Byte(PictureBox1.Image, ImageByteArr)
' Save an array of bytes to SQL Server's field of type Image
SaveByteArray(ImageByteArr, PatientID)
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
' Loads the image to the picture box control from SQL Server
Dim ImageByteArr(0) As Byte ' An array to hold image (bytes)
Dim PatientID As String ' ID for the image
' Get ID from a text box control and remove spaces
PatientID = TextBox1.Text.Trim
' Load an array of bytes from SQL Server's field of type Image
LoadByteArray(ImageByteArr, PatientID)
' Convert an array of bytes to image
Byte2Image(PictureBox1.Image, ImageByteArr)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' DEBUG: Clear the image
PictureBox1.Image = Nothing
End Sub
End Class
Offline 
I'll try to write and post that code ASAP (I'm on holiday). Saving the Image type requires parametrized insert statement, maybe that's a bit confusing? And finally, adatapost's code does the same thing i.e. shows how to use parametrized queries. 
Marked 
