Save An Image Into SQL Server 2000 Database

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

Public Class Form1

    Private mImageFile As Image
    Private mImageFilePath As String
    Dim CurrentImage As Integer
    Dim SelectedImage As String
    Dim Img As String

    Private Function GetDBConnection()
        ' Compose the database file name.
        ' Modify this if the database is somewhere else.
        Dim DBname As String = Application.StartupPath()
        DBname = DBname.Substring(0, DBname.LastIndexOf("\bin"))
        DBname = DBname & "\Images.mdf"
        ' Compose the connect string. 
        Dim connect_string As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & _
        DBname & ";Integrated Security=True;User Instance=True"
        ' Open a database connection.
        Dim SqlConn As New Data.SqlClient.SqlConnection(connect_string)
        SqlConn.Open()
        ' Return the connection.
        Return SqlConn
    End Function

    Private Sub LoadImages()
        dsImage.Clear()

        Try
            conImage = GetDBConnection()
            daImage.Fill(dsImage, "Images")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        conImage.Close()
        conImage.Dispose()
        Call PoChng()
    End Sub

    Private Sub PoChng()
        If Me.ImagesBindingSource.Count = 0 Then
            Label1.Text = "Empty Database"
        Else
            Label1.Text = (Me.ImagesBindingSource.Position + 1).ToString & "  Of  " & _
            (Me.ImagesBindingSource.Count).ToString
        End If
    End Sub

    Private Sub MoNext()
        Me.BindingContext(dsImage, "Images").Position = Me.BindingContext(dsImage, "Images").Position + 1
        Me.ImagesBindingSource.Position = Me.ImagesBindingSource.Position + 1
        Call PoChng()
    End Sub
    Private Sub MoPre()
        Me.BindingContext(dsImage, "Images").Position = Me.BindingContext(dsImage, "Images").Position + 1
        Me.ImagesBindingSource.Position = Me.ImagesBindingSource.Position - 1
        Call PoChng()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        picImage.Image = Nothing
        txtImageFile.Text = ""
        txtTitle.Text = ""
        OpenFileDialog1.ShowDialog()
        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 GetImage()
        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 = picImage.Height 'mImageFile.Height
        Dim imgWidth As Integer = picImage.Width 'mImageFile.Width
        Dim imgLength As Integer = mImageFile.PropertyItems.Length
        Dim imgType As String = Path.GetExtension(mImageFilePath)
        mImageFile = Nothing
        ' image content
        Dim pic As SqlParameter = New SqlParameter("@pic", SqlDbType.Image)
        pic.Value = img
        commImage.Parameters.Add(pic)

    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


        'get sql connection
        Try
            conImage = GetDBConnection()
            Dim sSQL As String = "INSERT INTO Images (Pic) VALUES(@pic)"
            commImage = New Data.SqlClient.SqlCommand(sSQL, conImage)
            Call GetImage()
            commImage.ExecuteNonQuery()
            'Me.ImagesTableAdapter.Update(Me.dsImage.Images)
            MessageBox.Show("Image successfuly saved in database", "Image Load")
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
        commImage.Dispose()
        ' commImage = Nothing
        conImage.Close()
        conImage.Dispose()
        Call LoadImages()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        SelectedImage = ("DELETE FROM Images WHERE ImageID = " & txtImageFile.Text)
        conImage = GetDBConnection()
        Try
            commImage = New Data.SqlClient.SqlCommand(SelectedImage, conImage)
            commImage.ExecuteNonQuery()
            '  Me.ImagesTableAdapter.Update(Me.dsImage.Images)

            MsgBox("Image successfuly deleted from database", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        commImage.Dispose()
        commImage = Nothing
        conImage.Close()
        conImage.Dispose()
        Call LoadImages()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call LoadImages()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call MoPre()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Call MoNext()
    End Sub
End Class