وهو يعمل 100% ولله الحمد والمنه 

حسب ما جربته   

(04-08-15, 09:44 AM)سعود كتب : جواب السؤال الاول: لابد من وضع اجراء الربط بالبيانات  مستقلا وتستطيع مناداته باي حدث.
جواب السؤال الثاني: نفس الجواب الاول ضع اجراء عمومي في موديول او كلاس وقم بمناداته عند كل حاجة.

---

للمعلومية فقط المثال هو نسخ ملف ايا كان نوعه.

(04-08-15, 01:16 PM)الطالب كتب : سلام

في كل الاحوال لازم تغلق الاتصال فور الانتها من العمل معه
ولو تستخدم في الاجرا using conn as new oledb.oledbconnection يكون اضمن

لاحظ بعد الاستعاده لازم تحدث الداتاجريد

هذا موديول فيه اكواد النسخوالاسترجاع

كود :

Module mdlBackRestore

   Public connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb;Jet OLEDB:Database Password=123456790"


   Public Sub Backup(Optional ByVal defaultDirectory As String = "")
       Try

           Using sv As New SaveFileDialog
               sv.Title = "عمل نسخة احتياطية"
               sv.Filter = "Backup (*.bak)|*.bak"

               sv.FileName = "backup" & Now.ToString("-yyyyMMdd-HHmmss") & ".bak"

               sv.InitialDirectory = defaultDirectory

               If sv.ShowDialog = vbOK Then
                   Dim dataSource As String = New OleDb.OleDbConnectionStringBuilder(connectionString).DataSource
                   FileCopy(dataSource, sv.FileName)
                   MsgBox("تم عمل نسخة احتياطية بنجاح")
               End If

           End Using

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub


   Public Sub Restore(Optional ByVal defaultDirectory As String = "")
       Try

           Using op As New OpenFileDialog
               op.Title = "استعادة نسخة احتياطية"
               op.Filter = "Backup (*.bak)|*.bak"

               op.InitialDirectory = defaultDirectory

               If op.ShowDialog = vbOK Then
                   Dim dataSource As String = New OleDb.OleDbConnectionStringBuilder(connectionString).DataSource
                   FileCopy(op.FileName, dataSource)
                   Dim db As String = IO.Path.GetFileNameWithoutExtension(op.FileName)
                   MsgBox("تمت استعادة نسخة احتياطية بنجاح" & vbNewLine & db)
               End If

           End Using

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub


End Module

الكود مجرب

موفقين

(08-08-15, 07:09 PM)سعود كتب : اخي الكريم مارايك بالفكرة بالمشروع