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 = "Data Source=.\SQLEXPRESS; INITIAL CATALOG=<dbname>; UID=xxx; Password=xxx;" ' 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(ByVal 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: Initial ID
TextBox1.Text = "patient101"
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
' Saves the image from the bitmap buffer to SQL Server
Dim ImageByteArr(0) As Byte ' An array to hold image (bytes)
Dim PatientID As String ' ID for the image
Form2.ShowDialog() ' Draw the image first
' Get ID from a text box control and remove spaces
PatientID = TextBox1.Text.Trim
' Convert image to an array of bytes
' USE FORM2 BITMAP, NOT PICTURE BOX CONTROL
Image2Byte(Form2.BitmapCanvas, 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
End Class
) And like I posted before, Adatapost's code is pretty much same as mine.
Offline 
Marked 
