تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[نقاش] تعديل على كود نسخ واسترجاع قاعدة البيانات نوع اكسس
#1
Lightbulb 
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته 

اخوتي في الله حياكم الله وبياكم وللجنة سهل الله خطاكم 
وجدت كود لنسخ واسترجاع قاعدة البيانات بأي امتداد تريده سواء 2003 او 2007 فما فوق 
وهو يعمل 100% ولله الحمد والمنه 
حسب ما جربته   

لكن فيه عيوب وارغب بمعالجتها وهي :-
1- عند استعادة قاعدة البيانات لاتظهر البيانات الجديدة الا بعد اطفاء وتشغيل البرنامج من جديد . كيف اعالج هذه المشكلة ؟؟!!

2- اريد اظهار اسم القاعدة التي قمت بإستدعائها وعرضه في ليبل على عدد من الفورمات في المشروع ويبقى هذا الاسم ما بقيت القاعدة ويتغير بتغير القاعدة ؟؟!! 

هذا المشروع 

ملاحظة ارفقت كود النسخ والاسترجاع فقط 

ارجوا الحل جزاكم الله خير وباركـ الله فيكم
وجعله الله في موازين حسناتكم
الرد
تم الشكر بواسطة:
#2
جواب السؤال الاول: لابد من وضع اجراء الربط بالبيانات مستقلا وتستطيع مناداته باي حدث.
جواب السؤال الثاني: نفس الجواب الاول ضع اجراء عمومي في موديول او كلاس وقم بمناداته عند كل حاجة.

للمعلومية فقط المثال هو نسخ ملف ايا كان نوعه.
الرد
تم الشكر بواسطة: مبرمج بلا حدود
#3
سلام

في كل الاحوال لازم تغلق الاتصال فور الانتها من العمل معه
ولو تستخدم في الاجرا 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
الكود مجرب

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

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

جزاكـ الله خير اخي 
ممكن توضيح اكثر ربي يحفظكـ ويرضى عنكـ Blush

(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
الكود مجرب

موفقين

السلام عليكم ورحمة الله وبركاته 
جزاكـ الله خير اخي 
طيب اخي هذا كود لعمل نسخة واسترجاعها 
طيب وبخصوص عرض الاسم وتحديث البيانات 
ولدي استفسار اخر ايهما افضل هذا الكود ام الكود الذي وضعته انا في البداية اقصد بداية الموضوع
جزاكـ الله خير
الرد
تم الشكر بواسطة:
#5
اخي الكريم مارايك بالفكرة بالمشروع




الملفات المرفقة
.zip   OptionalThings.zip (الحجم : 91.53 ك ب / التحميلات : 312)
الرد
تم الشكر بواسطة: مبرمج بلا حدود
#6
(08-08-15, 07:09 PM)سعود كتب : اخي الكريم مارايك بالفكرة بالمشروع



جزاكـ الله خير وباركـ الله فيكـ 
وجعله الله في موازين حسناتكـ 
ربي يحفظكـ تم الذهاب الى الموضوع والرد هناكـ 
Sleepy
الرد
تم الشكر بواسطة: سعود
#7
لقد ذكرت سبب الخطا الذي نبهتني له وكتبت الحل هناك.
الرد
تم الشكر بواسطة: مبرمج بلا حدود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشغل قواعد البيانات sql , mysql محمد اسماعيل 2 24 20-04-19, 12:32 PM
آخر رد: محمد اسماعيل
  [VB.NET] قاعدة بيانات postgress tarek 2 127 06-04-19, 09:07 PM
آخر رد: elgokr
  كود تصفير عمود في جدول اكسس samira20 1 64 31-03-19, 09:02 PM
آخر رد: بدري
  [SQL] مشكلة في ربط قاعدة البيانات SQLSERVER2014 بـ فيجول بيسك 2017 اباذر 4 173 16-03-19, 12:00 AM
آخر رد: اباذر
  طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات segma 21 493 12-03-19, 10:23 PM
آخر رد: segma
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 154 21-02-19, 04:38 PM
آخر رد: elgokr
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 196 20-02-19, 11:08 AM
آخر رد: alfaiz678
  [VB.NET] فتح مسار مجلد موجود بقاعدة البيانات خاص بكل اسم EMADSSS 0 123 13-02-19, 01:03 AM
آخر رد: EMADSSS
  قاعدة بيانات بيانات ال sql مع الفجوال 2008 raaddawood 0 191 02-02-19, 11:16 AM
آخر رد: raaddawood
  الاتصال بقاعدة بيانات اكسس وفق نظام 64 بايت raaddawood 0 166 28-01-19, 09:21 PM
آخر رد: raaddawood

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم