[محمد اسماعيل]

السلام عليكم

اعمل علي داتا بيز اكسيس 2007 - وضع الاتصال المنفصل - فيجول بيسك دوت نت

عندي كود لاضافة ملفات مختلفة لقاعدة البيانات  الكود فية مشكلة في الاضافة رغم ان البيانات بتتنقل عادي باسمائها بحقل تيكست  وايضا حقل تحويل الملف الي بايت

  OLEObject

بقاعدة البيانات بس في مشكلة في الاضافة و عدم الحذف وعدم الاستعادة ورسالة خطاء عند الاضافة



الاكواد كالاتي اضافة ملف -  حذف - استعادة

كود :

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addpdf.Click
       Try ' اضافة  add file to access 2007
           Using ofd As New OpenFileDialog
               ofd.Filter = "Pdf files (*.pdf)|*.pdf|All Files (*.*)|*.*"
               ofd.FilterIndex = 1
               If ofd.ShowDialog = DialogResult.OK Then
                   If BindingSource1.Find("type_prod", ofd.FileName) = -1 Then
                       Dim drv As DataRowView = CType(BindingSource1.Current, DataRowView)
                       drv("type_prod") = ofd.FileName
                       drv("pic_prod") = IO.File.ReadAllBytes(ofd.FileName)
                       BindingSource1.EndEdit()
                       con.Open()
                       DataAdapter1.Update(DataSet1.Tables("purch_tb"))
                       con.Close()
                   Else
                       MessageBox.Show("الملف موجود بالفعل.", "اضافة ملف...")
                   End If
               End If
           End Using
       Catch ex As Exception

           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

   End Sub

   
   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete.Click
       '  حذف delete file to access 2007
       If DataGridView1.SelectedRows.Count > 0 Then
           Dim dr As DialogResult = MessageBox.Show("هل تريد حذف الملف?", "حذف الملف...", MessageBoxButtons.YesNo)
           If dr = DialogResult.Yes Then
               BindingSource1.RemoveCurrent()

               con.Open()
               DataAdapter1.Update(DataSet1.Tables("purch_tb"))
               con.Close()
           End If
       End If
   End Sub

   Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restore.Click
       ' استعادة restore file to access 2007
       If DataGridView1.SelectedRows.Count > 0 Then
           Dim drv As DataRowView = CType(BindingSource1.Current, DataRowView)
           Dim filename As String = drv("type_prod").ToString
           If IO.File.Exists(filename) Then
               Dim dr As DialogResult = MessageBox.Show("الملف المختار موجود ?", "استعادةالملف...", MessageBoxButtons.YesNo)
               If dr = DialogResult.No Then Exit Sub
           End If
           IO.File.WriteAllBytes(filename, CType(drv("pic_prod"), Byte()))
           Process.Start(filename)
           MessageBox.Show("تم استعادة الملف..." & vbNewLine & filename, "Restore File...")
       End If
   End Sub