Imports System.IO
Imports System.Drawing.Imaging
Imports System.Drawing
Public Class Form1
Dim ms As MemoryStream
Dim imgData() As Byte
Dim sqlSTR As String
Sub saveImage()
Dim p As New SqlParameter
Try
dim sqlSTR As String= "UPDATE tableName SET imageField = @imageParameter"
Using sqlCmmnd As New SqlClient.SqlCommand(sqlSTR, con)
If Not PictureBox1.Image Is Nothing Then
ms = New MemoryStream
PictureBox1.Image.Save(ms, ImageFormat.Jpeg)
imgData = New Byte(ms.Length) {}
ms.Position = 0
ms.Read(imgData, 0, imgData.Length)
sqlCmmnd.Parameters.AddWithValue("@logo", imgData)
Else
With p
.ParameterName = "@imageParameter"
.DbType = DbType.Binary
.Value = System.DBNull.Value
End With
sqlCmmnd.Parameters.Add(p)
End If
con.Open()
sqlCmmnd.ExecuteNonQuery()
End Using
con.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Exclamation, "Error")
End Try
End Sub
Sub loadImage()
Try
Dim sqlDA As New SqlDataAdapter("SELECT imageField FROM tableName WHERE uniqueField ='" & Replace(TextBox1.Text.Trim, "'", "''") & "'",.con)
Dim sqlCB As New SqlCommandBuilder(sqlDA)
sqlDT.Reset()
sqlDA.Fill(sqlDT)
If Not IsDBNull(sqlDT.Rows(0)("imageField ")) Then
imgData = sqlDT.Rows(0)("imageField ")
Dim ms As MemoryStream = New MemoryStream(imgData)
PictureBox1.Image = Image.FromStream(ms)
Else
PictureBox1.Image = Nothing
End If
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Exclamation, "Error")
End Try
End Sub
End Class