Save Image Using LINQ TO SQL - نسخة قابلة للطباعة

PHP كود :

Imports System.Windows.Forms
Imports System.Drawing
Imports System.IO


Public Class FrmAnimals

    Dim Db As AnimalDll_DbDataContext = New AnimalDll_DbDataContext

    Public Function GetAllAnimals() As List(Of AnimalTb)
        Return (Db.AnimalTbs).ToList
    End Function


    Dim Op As OpenFileDialog = New OpenFileDialog

    Private Sub BrwoseBtn_Click(sender As Object, e As EventArgs) Handles BrwoseBtn.Click
        Try
            Op = New OpenFileDialog
            With Op

                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    PhotoBox.Image = Nothing
                    PhotoBox.Image = Image.FromFile(.FileName)

                End If
            End With
        Catch ex As Exception

        End Try
    End Sub

    Private Sub NewBtn_Click(sender As Object, e As EventArgs) Handles NewBtn.Click
        Try
            PhotoBox.Image = Nothing
            NameBox.Text = vbNullString
            NameBox.Focus()

        Catch ex As Exception

        End Try
    End Sub

    Private Sub SaveBtn_Click(sender As Object, e As EventArgs) Handles SaveBtn.Click
        Try
            If IsNothing(PhotoBox.Image) And NameBox.Text = vbNullString Then
                MsgBox("Fill Data ")
                Exit Sub
            End If

            Me.Cursor = Cursors.WaitCursor
            Dim Img As Byte()
            Dim SysMem As FileStream = New FileStream(Op.FileName, FileMode.Open, FileAccess.Read)
            Dim Br As BinaryReader = New BinaryReader(SysMem)
            Img = Br.ReadBytes(CInt(SysMem.Length))
            '======================================
            Dim Tb As AnimalTb = New AnimalTb
            With Tb
                .AnimalName = NameBox.Text
                .Photo = Img
            End With
            Db.AnimalTbs.InsertOnSubmit(Tb)
            Db.SubmitChanges()

            Me.Cursor = Cursors.Default
            '====================================
            MsgBox("Saved ")


        Catch ex As Exception
            MsgBox(Err.Description)

        End Try
    End Sub


    Private Sub SearchBtn_Click(sender As Object, e As EventArgs) Handles SearchBtn.Click
        Try

            Dim L = (From NN In GetAllAnimals() Where NN.ID = IDBox.Text Select NN).Single

            Dim XImg As [Byte]() = DirectCast(L.Photo.ToArray, Byte())
            Dim MS As MemoryStream = New MemoryStream(XImg)

            PhotoBox.Image = Image.FromStream(MS)
            NameBox.Text = L.AnimalName
        Catch ex As Exception
            MsgBox(Err.Description)

        End Try
    End Sub

End Class 