ممكن كود لعمل استرجاع نسخة احتياطية لقاعده بيانات مترتبطة

[mostafaatiya]

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

 

انا عندي قاعده بيانات منقسمة الي جزئين الجزء الاول شاشات الادخال 

والجزء الثاني الداتا 

 

وكنت محتاج اعمل باك اب للداتا 

انا عملت كود لعمل الباك اب لكن مش عارف اعمل استرجاع للداتا لانها منفصله وده الكود 

 

انا جيت في نموذج وانشاءت حدث عن التحميل وضفت الكود ده 

 

[DBOld] = "E:\T-Form\data\data.mdb"
[DBNew] = "E:\Backup"

حرف الـــ E 

ده عنوان البرتيشن 

و T-Form

ده الفولدر الموجود فيه القاعده 

 

و data تعني الفولد الموجود في الداتا 

و data.mdb ده ملف الداتا اللي باخد منه باك اب 

 

و E:\Backup ده العنوان اللي بيتم وضع الباك اب فيه 

 

.............................

 

وجيت في نفس النموذج اضفت حدث عند الاغلاق ووضع الكود ده 

On Error Resume Next
Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB
OldFile = [DBOld]
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile = [DBNew] & "\" & Format(Now, "yyyymmdd") & ""
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
Exit Sub

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

[ابوخليل]

وعليكم السلام 

 

اخونا مصطفى

الكود اعلاه ياخذ نسخة من القاعدة  برقم خاص يمثل تاريخ اليوم

وما في شي اسمه اعمل استرجاع للقاعد في الداتا نفسها .. يعني السألة تحتاج لتفصيل

لان الاسترجاع انواع :

- استرجاع جدول او جداول معينة ( استبدال )

- استرجاع آخر نسخة من قاعدة البيانات بسبب تلف اصاب القاعدة الحالية

- استرجاع مؤقت لنسخة من بيانات سابقة للتصفح والطباعة فقط

 

فاسترجاع الجداول معروف  وهو بالاستيراد من القاعدة البعيدة بعد حذف الجداول في الحالية

اما استرجاع آخر نسخة فيتم حسب عملية الحفظ

فان كان الحفظ بجانب قاعدة البيانات فيتم حذف القاعد الاساسية ثم تسمية النسخة باسم القاعدة الاساسية

وان كانت بعيدة فيتم اعادة تسميتها ثم نسخها ولصقها بديلا للاساسية

واما ان كان الاسترجاع للقراءة فقط  فهنا يكفي نقل الارتباط اليها مؤقتا 

[mostafaatiya]

السلام عليكم اخي ابو خليل 

 

طيب ممكن كود يقوم بحفظ النسخة الداتا وانا اقوم بعد ذلك اقوم باستبدال الملف 

 

لكن اريد ان يقوم الكود بحفظ النسخة في مسار اقوم بتحديده او اقوم انا بالحفظ مباشر 

 

وشاكر لمرورك استاذي ابو خليل 

[ابوخليل]

تفضل

فك الضغط على D  

او اعد ربط الجدول

db.rar

[mostafaatiya]

اخي ابو خليل الله يباركلك يارب ويجعله في ميزان حسناتك يارب 

 

اخي الفاضل بالفعل هو ما طلبته وتمت الاجابة بارك الله فيك 

[elhadi_39]

ممكن شرح كيفية تفعيلة على قاعدة بيانتات مرتبطة أكثر من جهاز عبر شبكة

و لم استطع تحميل قاعدة البيانات السيرفر لكبرها

rdv.rar

rdv_be.rar