Visual Basic Store Graphic images in SQL Server databases Source code Samples for Image Processing

IntroductionSQL ScriptsControl ListForm Visual Basic CodeDownload

How to Store Graphic images in SQL Server databases. This project uses Visual Basic .net Stream Reader to store image data into SQL image data type into a SQL server 2005 database.

Main Form Control List

Control Name	Property Name	Value
MenuStrip1
	OpenToolStripMenuItem
	NewToolStripMenuItem
	SaveToolStripMenuItem

Textbox	Name	txtImageFile
Textbox	Name	txtTitle
OpenFileDialog1
	Title	Set Image File
	Filter	Bitmap Files\|.bmp" & "\|Gif Files\|.gif\|JPEG Files\|*.jpg
	DefaultExt	jpg
	FilterIndex	1
	FileName	""

Label1	text	Image File
Label2	text	Image Title

PictureBox	Name	PictureBox

Viewer Form
Form	Name	frmViewer

Label	Name	ImageTitleLabel
	text	Title

Label	Name	ImageTypeLabel
	text	Type

Label	Name	ImageHeightLabel
	text	Height

Label	Name	ImageWidthLabel
	text	Width

Textbox	Name	ImageTitleTextBox
	Databinding.text	ImageCollectionBindingSource - ImageTitle

Textbox	Name	ImageTypeTextBox
	Databinding.text	ImageCollectionBindingSource - ImageType

Textbox	Name	ImageHeightTextBox
	Databinding.text	ImageHeightTextBox

Textbox	Name	ImageWidthTextBox
	Databinding.text	ImageCollectionBindingSource - ImageWidth

PictureBox	Name	PictureBox1
	Databinding.text	ImageCollectionBindingSource - ImageContent

TableAdapter	Name	ImageCollectionTableAdapter

BindingNavigator	Name	ImageCollectionBindingNavigator

BindingSource	Name	ImageCollectionBindingSource

DataSet	Name	ImageGalleryDataSet

Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes

Public Class frmMain
                Private mImageFile As Image
                Private mImageFilePath As String

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  OpenToolStripMenuItem.Click
                Dim f As New frmViewer()
                f.Show()
    End Sub

Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click<br />
                OpenFileDialog1.Title = "Set Image File"
                OpenFileDialog1.Filter = "Bitmap Files|*.bmp" & "|Gif Files|*.gif|JPEG 
                Files|*.jpg"
                OpenFileDialog1.DefaultExt = "jpg"
                OpenFileDialog1.FilterIndex = 1
                OpenFileDialog1.FileName = ""
                OpenFileDialog1.ShowDialog()

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
                   Exit Sub
                End If

Dim sFilePath As String

sFilePath = OpenFileDialog1.FileName

If sFilePath = "" Then Exit Sub
                If System.IO.File.Exists(sFilePath) = False Then
                   Exit Sub
                Else
                   txtImageFile.Text = sFilePath
                   mImageFilePath = sFilePath
                End If
    End Sub

Private Sub txtImageFile_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtImageFile.LostFocus
                If txtImageFile.Text.Length > 0 Then
                   PictureBox1.ImageLocation = txtImageFile.Text
                Else
                   Exit Sub
                End If
    End Sub

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
              Try
                If (Me.txtImageFile.Text = String.Empty Or Me.txtTitle.Text = String.Empty) Then
                   MessageBox.Show("Complete both form fields prior to submitting", Missing Values", _
                   MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                   Exit Sub<br />
                End If
                Catch ex As Exception
                   MessageBox.Show(ex.Message.ToString(), "File Test Error")
                End Try

Dim fs As FileStream = New FileStream(mImageFilePath.ToString(),FileMode.Open)
                Dim img As Byte() = New Byte(fs.Length) {}
                fs.Read(img, 0, fs.Length)
                fs.Close()

mImageFile = Image.FromFile(mImageFilePath.ToString())

Dim imgHeight As Integer = mImageFile.Height
                Dim imgWidth As Integer = mImageFile.Width
                Dim imgLength As Integer = mImageFile.PropertyItems.Length
                Dim imgType As String = Path.GetExtension(mImageFilePath)

mImageFile = Nothing

Dim strConnect As String

strConnect = "Your connenction string data here"

Dim conn As SqlConnection = New SqlConnection(strConnect)
                Dim sSQL As String = "INSERT INTO ImageCollection (ImageContent, " & _
                "ImageTitle, ImageType, ImageHeight, ImageWidth) VALUES(" & _
                "@pic, @title, @itype, @iheight, @iwidth)"

Dim cmd As SqlCommand = New SqlCommand(sSQL, conn)<br />

' image content

Dim pic As SqlParameter = New SqlParameter("@pic", SqlDbType.Image)

pic.Value = img
                cmd.Parameters.Add(pic)

' title

Dim title As SqlParameter = New SqlParameter("@title", System.Data.SqlDbType.VarChar, 50)

title.Value = txtTitle.Text.ToString()
                cmd.Parameters.Add(title)

' type

Dim itype As SqlParameter = New SqlParameter("@itype", System.Data.SqlDbType.Char, 4)

itype.Value = imgType.ToString()
                cmd.Parameters.Add(itype)

' height

Dim iheight As SqlParameter = New SqlParameter("@iheight", System.Data.SqlDbType.Int)

iheight.Value = imgHeight
                cmd.Parameters.Add(iheight)
                ' width

Dim iwidth As SqlParameter = New SqlParameter("@iwidth", System.Data.SqlDbType.Int)
                iwidth.Value = imgWidth
                cmd.Parameters.Add(iwidth)

Try
                conn.Open()
                cmd.ExecuteNonQuery()
                conn.Close()
                MessageBox.Show("Query executed.", "Image Load")

Catch ex As Exception
                MessageBox.Show(ex.Message.ToString(), "Data Error")
            Exit Sub
        End Try
    End Sub

Download

Finish

Thank you for viewing this source code. If you want to download the project files and a copy of this source code you must either fill out this form with a valid email address as some useful commets about this site or you may become a member free of charge. In either case a link will be emailed where you can down load the project filess.

Name
Email
Comment

	Excalibur Software Solutions Images
Please login	Home > Image Processing > Store Image in Db

Visual basic Code Sample How to store a image in SQL Database