اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

 

وهذا هو الكود الذي يقوم بالنسخ وهو يعمل مع اكسس 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 

رابط هذا التعليق
شارك

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

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

 

 

رابط هذا التعليق
شارك

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

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

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

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

بالتوفيق

رابط هذا التعليق
شارك

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

BackUpAuto.zip

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

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

CurrentProject.Path

الى مثلاً ..

"D:\Backup"

 

  • Like 1
رابط هذا التعليق
شارك

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

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

BackUpAuto.zip

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

 

بسم الله

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

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

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

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

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

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

رضا الله

رابط هذا التعليق
شارك

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

بسم الله

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

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

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

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

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

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

رضا الله

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

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

تحياتي لكم

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information