'Write an image data into memory stream        
pbBody.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Png)

Dim cmd As New SqlClient.SqlCommand("insert into image (myid,myimage) values ('" & Trim(lblId.text) & "','" & Trim(?) & "')", cn)

'Memory stream
Dim ms As New System.IO.MemoryStream
 
'Write an image data into memory stream
pbBody.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
 
'To save an image into disk file       
'pbBody.Image.Save("p1.png", System.Drawing.Imaging.ImageFormat.Png)
 
'Byte array
Dim b() As Byte = ms.ToArray
'Parameterized Query
Dim cmd As New SqlClient.SqlCommand("insert into mytable (myid,myimage) values (@p1,@p2)", cn)
 
'Create/add parameters
'@p1 - name of parameter, datatype,size,"columnname"
cmd.Parameters.Add("@p1", SqlDbType.Int, 4, "myid")
cmd.Parameters.Add("@p2", SqlDbType.Image, b.Length, "myimage")
 
'Assign value to the parameters
cmd.Parameters("@p1").Value = CInt(lblId.text) ' ASSUMING YOU'RE USING INT TYPE AS ID
cmd.Parameters("@p2").Value = b ' THIS IS BYTE ARRAY CONTAINING THE IMAGE. SEE FEW LINES ABOVE

 Dim cn As New System.Data.SqlClient.SqlConnection("CnStr")

 Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click

'Memory stream        
        Dim ms As New System.IO.MemoryStream
        'Write an image data into memory stream        
        pbBody.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Png)

        'Byte array        
        Dim b() As Byte = ms.ToArray
        Dim cn As New System.Data.SqlClient.SqlConnection("CnStr")
        'Parameterized Query        
        Dim cmd As New SqlClient.SqlCommand("insert into image (patientIC,picture) values (@p1,@p2)", cn)
        'Create/add parameters        
        '@p1 - name of parameter, datatype,size,"columnname"       
        cmd.Parameters.Add("@p1", SqlDbType.VarChar, 50, "patientIC")
        cmd.Parameters.Add("@p2", SqlDbType.Image, b.Length, "picture")
        'Assign value to the parameters        
        cmd.Parameters("@p1").Value = __?__ (lblId.Text)
        cmd.Parameters("@p2").Value = b
        'Execute command        
        cn.Open()
        cmd.ExecuteNonQuery()

    End Sub

   Private Sub pbBody_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbBody.MouseDown
 
        'Initialise Starting Points Of Shape, Once Mouse Button Is Pressed Down
        sStartX = e.X
        sStartY = e.Y
 
    End Sub
 
    Private Sub pbBody_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbBody.MouseUp
 
        'Initialise Ending Points Of Shape, Once Mouse Button Is Released
        sEndX = e.X
        sEndY = e.Y
 
        'Draw The Circle With The Current Starting, And Ending Values.
        'We must subtract the Starting values from the Ending values,
        'to make sure the shape's Starting and ending values are
        'precisely those where you started drawing, and where you
        'ended drawing.
        pbBody.CreateGraphics.DrawEllipse(pPen, sStartX, sStartY, _
                            sEndX - sStartX, sEndY - sStartY)
 
    End Sub

Dim CnStr As String
CnStr = "Data Source=MyMachineName\SQLEXPRESS; INITIAL CATALOG=MyDatabase; User ID=XXX; Password=XXX;"
' or CnStr = "Data Source=MyMachineName; INITIAL CATALOG=MyDatabase; User ID=XXX; Password=XXX;"
Dim cn As New System.Data.SqlClient.SqlConnection(CnStr)

cmd.Parameters("@p1").Value = lblId.Text

    Private Sub pbBody_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pbBody.Paint
 
        'Draw the Final rectangle, as a repaint was issued
        e.Graphics.DrawEllipse(pPen, sStartX, sStartY, _
                            sEndX - sStartX, sEndY - sStartY)
 
    End Sub    Private Sub pbBody_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pbBody.Paint
 
        'Draw the Final rectangle, as a repaint was issued
        e.Graphics.DrawEllipse(pPen, sStartX, sStartY, _
                            sEndX - sStartX, sEndY - sStartY)
 
    End Sub

' "Drawing" arrays
Private sStartX() As Integer
Private sStartY() As Integer
Private sEndX() As Integer
Private sEndY() As Integer
' Remove New and (Color.White), they're just for debugging
Private pPen As New System.Drawing.Pen(Color.White) ' DECLARE THIS AS AN ARRAY IF THE PEN CAN BE CHANGED
' Counter for the arrays, -1 = nothing drawed yet
Private m_DrawIndex As Integer = -1
 
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
 
  'Initialise Starting Points Of Shape, Once Mouse Button Is Pressed Down
  ' Start a new drawing: increase the counter and redim the arrays
  m_DrawIndex += 1
  ReDim Preserve sStartX(m_DrawIndex)
  ReDim Preserve sStartY(m_DrawIndex)
  ReDim Preserve sEndX(m_DrawIndex)
  ReDim Preserve sEndY(m_DrawIndex)
  'ReDim Preserve pPen(m_DrawIndex) ' Only if pPen is an array too
  '
  sStartX(m_DrawIndex) = e.X
  sStartY(m_DrawIndex) = e.Y
 
End Sub
 
Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
 
  'Initialise Ending Points Of Shape, Once Mouse Button Is Released
  sEndX(m_DrawIndex) = e.X
  sEndY(m_DrawIndex) = e.Y
 
  'Draw The Circle With The Current Starting, And Ending Values.
  'We must subtract the Starting values from the Ending values,
  'to make sure the shape's Starting and ending values are
  'precisely those where you started drawing, and where you
  'ended drawing.
  PictureBox1.CreateGraphics.DrawEllipse(pPen, sStartX(m_DrawIndex), sStartY(m_DrawIndex), _
                      sEndX(m_DrawIndex) - sStartX(m_DrawIndex), sEndY(m_DrawIndex) - sStartY(m_DrawIndex))
 
End Sub
 
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
 
  'Draw the Final rectangle, as a repaint was issued
 
  ' Redraw user drawings from the array
  Dim i As Integer
 
  For i = 0 To m_DrawIndex
    e.Graphics.DrawEllipse(pPen, sStartX(i), sStartY(i), _
                            sEndX(i) - sStartX(i), sEndY(i) - sStartY(i))
  Next i
 
End Sub

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

 
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Drawing.Imaging
 
Public Class Page_2
 
    'Declare Starting Points For Drawn Objects
    Private sStartX() As Integer
    Private sStartY() As Integer
 
    'Declare Ending points For Drawn Objects
    Private sEndX() As Integer
    Private sEndY() As Integer
 
    'Create And Initialise Pens To Draw The Particular Outline Shapes With.  Color : Black, Width : 1
    Dim pPen As New Pen(Color.Black, 1)
 
    ' Counter for the arrays, -1 = nothing drawed yet
    Private m_DrawIndex As Integer = -1
 
    Private Sub pbBody_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbBody.MouseDown
 
        'Initialise Starting Points Of Shape, Once Mouse Button Is Pressed Down
        ' Start a new drawing: increase the counter and redim the arrays
        m_DrawIndex += 1
        ReDim Preserve sStartX(m_DrawIndex)
        ReDim Preserve sStartY(m_DrawIndex)
        ReDim Preserve sEndX(m_DrawIndex)
        ReDim Preserve sEndY(m_DrawIndex)
 
        sStartX(m_DrawIndex) = e.X
        sStartY(m_DrawIndex) = e.Y
 
    End Sub
 
    Private Sub pbBody_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbBody.MouseUp
 
        'Initialise Ending Points Of Shape, Once Mouse Button Is Released
        sEndX(m_DrawIndex) = e.X
        sEndY(m_DrawIndex) = e.Y
 
        'Draw The Circle With The Current Starting, And Ending Values.
        'We must subtract the Starting values from the Ending values,
        'to make sure the shape's Starting and ending values are
        'precisely those where you started drawing, and where you
        'ended drawing.
        pbBody.CreateGraphics.DrawEllipse(pPen, sStartX(m_DrawIndex), sStartY(m_DrawIndex), _
                            sEndX(m_DrawIndex) - sStartX(m_DrawIndex), sEndY(m_DrawIndex) - sStartY(m_DrawIndex))
 
    End Sub
 
    Private Sub pbBody_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pbBody.Paint
 
        'Draw the Final rectangle, as a repaint was issued
 
        ' Redraw user drawings from the array
        Dim i As Integer
 
        For i = 0 To m_DrawIndex
            e.Graphics.DrawEllipse(pPen, sStartX(i), sStartY(i), _
                                    sEndX(i) - sStartX(i), sEndY(i) - sStartY(i))
        Next i
 
    End Sub
 
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
 
        Dim connAdd4 As New SqlConnection _
        ("Data Source=152.226.152.99\SQLEXPRESS,1433;" + "Initial Catalog=TAR;" + "User ID=Remote;" + "Password=123;")
 
        Dim mySQL As String
 
        'Memory stream        
        Dim ms As New System.IO.MemoryStream
        'Write an image data into memory stream        
        pbBody.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
 
        'Byte array        
        Dim b() As Byte = ms.ToArray
        connAdd4.Open()
 
        'Parameterized Query        
        mySQL = "insert into image (patientIC,picture) values (@p1,@p2)"
        Dim cmdAdd4 As New SqlCommand(mySQL, connAdd4)
 
        'Create/add parameters        
        '@p1 - name of parameter, datatype,size,"columnname"       
        cmdAdd4.Parameters.Add("@p1", SqlDbType.VarChar, 50, "patientIC")
        cmdAdd4.Parameters.Add("@p2", SqlDbType.Image, b.Length, "picture")
 
        'Assign value to the parameters        
        cmdAdd4.Parameters("@p1").Value = txtId.Text
        cmdAdd4.Parameters("@p2").Value = b
 
        'Execute command        
        cmdAdd4.ExecuteNonQuery()
        connAdd4.Close()
 
    End Sub
End Class