قراءة بيانات الصورة من قاعدة بيانات أكسس إلى أداة PictureBox

كود :

Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click



        '--------------------------------------

        ' PictureBox1 المطلوب عرض الصورة في

        '--------------------------------------



        ' التحقق اذا كان الداتا جريد ممتلئة ام فارغة لتنفيذ كود فتح الملف

        If (dataGridView1.RowCount > 0) Then

            ' تحويل الكود المسجل بقاعدة البيانات الى ملف

            Dim ff() As Byte = CType(dt.Rows(DgId)(3), Byte())

            Dim FPath = Application.StartupPath & "\" & dt.Rows(DgId)(1).ToString() & dt.Rows(DgId)(2).ToString()

            Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)

            FFS.Write(ff, 0, ff.Length)

            FFS.Close()

            ' تنفيذ فتح الملف بعد انشائه بالكود السابق

            ''Process.Start(FPath)

            PictureBox1.Image = Image.FromFile(FPath)

        Else

            ' رسالة تنبيه بان الداتا جريد فارغة

            MsgBox("Please Add Any Data So You Can Open File Selected.")

        End If

    End Sub

PHP كود :

       pic.DataBindings.Add("image", dt, "picbyte", True)

حليت المشكلة او الخطا و ذلك باضافة زر جديد للحفظ و تكون مهمة ازرار الجديد والتعديل فقط تهيئة و يكون زر الحفظ هو المسؤول عن طلب الاجراءات.

PHP كود :

dataGridView1_CellClick

PHP كود :

       Dim b() As Byte = Me.dataGridView1.Rows(e.RowIndex).Cells(3).Value
        Dim ms As New MemoryStream(b)
        Me.PictureBox1.Image = Image.FromStream(ms)

PHP كود :

Private Sub GetLoadData()
        For Each h As Control In Me.Controls
            h.DataBindings.Clear()
        Next
        ' تفريغ DT
        dt.Clear()
        ' جلب البيانات من قاعدة البيانات
        cmd = New OleDbCommand("select * from TB_File", con)
        Da = New OleDbDataAdapter(cmd)
        Da.Fill(dt)
        ' تعبئة الداتا جريد بالبيانات التى تم تعبئتها
        dataGridView1.DataSource = dt
        ' تسمية الاعمدة فى الداتا جريد
        dataGridView1.Columns(0).HeaderText = "ID"
        dataGridView1.Columns(1).HeaderText = "File Name"
        dataGridView1.Columns(2).HeaderText = "File Extension"
        dataGridView1.Columns(3).HeaderText = "Image"
        Me.PictureBox1.DataBindings.Add("image", dt, "Attachment", True)
        txtpicid.DataBindings.Add("text", dt, "id")
        txtpicname.DataBindings.Add("text", dt, "FileName")
        txtpicext.DataBindings.Add("text", dt, "FileExt")
    End Sub

PHP كود :

       Dim FileCon() As Byte = File.ReadAllBytes(textBox2.Text)
        ' اضافة البيانات بقاعدة البيانات
        cmd = New OleDbCommand("Insert into TB_File (FileName,FileExt,Attachment) Values (@FileName,@FileExt,@Attachment)", con)
        con.Open()
        cmd.Parameters.AddWithValue("@FileName", textBox1.Text)
        cmd.Parameters.AddWithValue("@FileExt", Path.GetExtension(textBox2.Text))
        cmd.Parameters.AddWithValue("@Attachment", FileCon)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("OK!")
        ' تحميل البيانات بالداتا جريد
        GetLoadData()
        ' تفريغ كلاً من اداء النصوص
        textBox1.Clear()
        textBox2.Clear()