[سعود]

التعديل على اجراء GetLoadData

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() 


---

=================================

==================================

===============آخر تحديث=============