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

[حسين العربى]

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

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

 

وهذا هو الكود الذي يقوم بالنسخ وهو يعمل مع اكسس 2003 اما مع اكسس 2007  فانه النسخة الاحتياطية التي ياخذها  تكون علي شكل Text 

On Error Resume Next '-------      by caboon    -----
Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB
OldFile = [StrOld]
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
If [BKUP] = True Then
NewFile = Me.StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
Exit Sub
End If

ارجو التعديل علي الكود لكي يعمل علي 2007 

[محمد سلامة]

تفضل اخي حسين هذا الموضوع بعد نقاشات عديدة

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

 

 

[حسين العربى]

الف شكر اخي الفاضل محمد سلامة علي اهتمامك ولك مني جزيل الشكر 

بس المرفق  لايعمل عندي الاني اعمل علي اكسس 2007

 

[محمد سلامة]

اخي حسين المرفق بصيغة 2003 على ما اظن

[حسين العربى]

حملة مرفق اخر مشاركة ولم يعمل عندي الي هو  main1  لم يعمل عندي

 

[سعيد صواب]

حياك الله اخي حسين 

مشاركة مع الاستاذ محمد .... 

هل هناك رسالة خطاء تظهر او ماهي االمشكلة تحديدا ..

بالنسبة لمرفقك main1 لا يعمل معي يبدو ان به عطل ما  ... اعمل على 2007 .. 

بالتوفيق

[jandbi]

تفضل الطريقة السليمة في المرفق

BackUpAuto.zip

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

اذا اردت ان تحدد انت مسار النسخة الاحتياطية .. قم بتغيير

CurrentProject.Path

الى مثلاً ..

"D:\Backup"

 

[ابو عبدلله]

10 ساعات مضت, jandbi said:

تفضل الطريقة السليمة في المرفق

BackUpAuto.zip

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

 

بسم الله

طريقة رائعة بارك الله بجهودك أخ jandbi

ولي مداخلة اذا سمحتم

ولنفرض أن جداول القاعدة في ملف منفرد أي ملف البيانات منقسم

كيف يصلح نفس الكود لعمل نسخة احتياطية وهل نستطع تحديد عدد النسخ أي مثلاً نسخ لأيام الاسبوع وفي بداية الاسبوع التالي يقوم بحذف النسخ الاقدم فالاحدث ليبقى عدد النسخ مطابق فقط لأيام الاسبوع

اعتذر على المداخلة

مع شكري وتقديري

رضا الله

[jandbi]

4 ساعات مضت, رضا الله said:

بسم الله

طريقة رائعة بارك الله بجهودك أخ jandbi

ولي مداخلة اذا سمحتم

ولنفرض أن جداول القاعدة في ملف منفرد أي ملف البيانات منقسم

كيف يصلح نفس الكود لعمل نسخة احتياطية وهل نستطع تحديد عدد النسخ أي مثلاً نسخ لأيام الاسبوع وفي بداية الاسبوع التالي يقوم بحذف النسخ الاقدم فالاحدث ليبقى عدد النسخ مطابق فقط لأيام الاسبوع

اعتذر على المداخلة

مع شكري وتقديري

رضا الله

لم اجرب الكود على قاعدة بيانات منقسمة

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

[حسين العربى]

بارك الله فيك اخي الفاضل jandbi  طريقة ممتازة

[محمد سلامة]

السلام عليكم

الرابط الموضوع بعاليه في مشاركتي الاولي به كل ما تطلبون 

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

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

بامكانك تحديد صيغة النسخه

بامكانك تحديد عمل النسخة كل ساعة- يوم - اسبوع - شهر

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

لو تكرم احد الاعضاء بفتح المرفق علي اي صيغة وحفظه بصيغة 2003 حتي يتمكن كل الاعضاء من مشاهدته

تحياتي لكم

[محمد سلامة]

تفضلوا هذا هو المرفق الموجود بالمشاركة بصيغة 2003

x.rar

و بصيغة 2010 

BackUpControl.rar

 

[محمد سلامة]

للفائدة راجع هذا الرابط خي حسين

 

وهذا المرفق BackUp2003-2007.rar

[حسين العربى]

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