• 0
FUNCTION

Backup Restore النسخ الاحتياطي ممكن مساعدة ضرورييي

سؤال

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

مساكم الله بالخير والصحة

اريد ان اشغل هذا البرنامج وهو النسخ الاحيتاطي

انا عملت كذا فورم اريد ان اضغ في الكود لعمل نسخ احتياطي بأي تقنية سواء بــ ADO OR DAO

أتمنى التفاعل ياشاب لا تخيبون ظني :)

في المرفقات المثال ادري تعديل عليه هااااااااااام الله يخليكم

backup&Restore.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

30 إجابة على هذا السؤال .

  • 0

وين الناااااااااااس !!!

والله عجيب محد يعرف يرد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي العزيز ولا تزعل نفسك

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

ولو هنالك تعديل ارجو اخباري

(h)

backup&Restore2.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي ما ادري هل ضبط معك ام لا ارجوالرد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي / الفوارس 2000 وارجوان لا اكون قد أخطأت في الاسم

أنا كان هاجس هذا الموضوع يؤرقني منذ زمن حوال (ثلاثة أشهر أوتزيد) ولم أجد له حلا الا بالصدفة عندما عدلت على برنامج الاخ وفرحت به وأخذته وطبقته على برنامج يعتمد على قاعدة بيانات وقمت بتعديل اسم قاعدة البيانات ليوافق ماعندي ولكن للأسف لم تنجح التجربة وقد يكون بسبب عدم فهمي للكود فهل يمكن شرح الكود ولو كلفت عليك يا أخي وخاصة انني أجد أته قريب مما أنشده ولك الشكر الجزيل مقدما .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لم افهم مقصدك

هل البرنامج لم يكن حسب الطلب او به خطأ أم ماذا

ارجو التوضيح

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفوارس 2000 صباح الخير

عندما اضغط على Browse أو Backup يفتح صندوق حوار حفظ باسم فكيف يتم التعامل مع هذا الصندوق وعند الضغط على Save To Dir In text تخرج رسالة تحذير warning : End-User

file not Found

هل ممكن شرح مختصر للكود ......... شكرا لتجاوبك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفوارس 2000 صباح الخير

عندما اضغط على Browse أو Backup يفتح صندوق حوار حفظ باسم فكيف يتم التعامل مع هذا الصندوق وعند الضغط على Save To Dir In text تخرج رسالة تحذير warning : End-User

file not Found

هل ممكن شرح مختصر للكود ......... شكرا لتجاوبك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي العزيز abosaad54

الله يعطيك العافية

ان تقول لي انه يظهر خطأ عند الضغط على الامر Save To Dir Text اولأ قبل الضغط على هذا الامر والذي يقصد به نسخ القاعدة على حسب المسار المحدد في حقل النص

كيف يحدد المسار في حقل النص ؟

اولا وقبل النقر على زر Save to dir text انقر على امر Browse وحددالمسار الذي تريد وسوف تجده في حقل النص وبعدها قم بضغط الامر Save to dir text

ورسالة الخطأ التي تأتيك لانه لم يحدد مسار النسخ في حقل النص

وقد عمل هذا لطلب صاحب الموضوع وتقبل احترامي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 'هذا الامر   عند حدوث خطأ في النسخ  يذهب الى راصد الاخطاء  Backup error في اسفل الكود
   On Error GoTo BackupError
   
   'هذا الكود خاص  بالدايلوج  لتفريغ الفايل نايم الخاص بالدايلوج ان  وجد
   Dialog.FileName = ""
   'انواع الملفات او الامتداد
   Dialog.Filter = "Backup files (*.bck) |*.bck|"
  'لفتح مربع حوار الحفظ لتحدد مسار الحفظ واسم النسخة
   Dialog.ShowSave
      'هنا شرط اذا كان لم يتم  تحديد المسار واسم النسخه
       If Dialog.FileName <> "" Then
           
           If FileLen(App.Path & "\data.MDB") > 1210000 And Mid(Dialog.FileName, 1, 1) = "A" Then
               MsgBox "لا يمكن نسخ قاعدة البيانات على هذا المحرك فضلاً قم بإستبداله بمحرك ذو سعة اكبر .", vbOKOnly + vbCritical, " خطأ في النسخ" + UserName
           Else
               
               'هذا هو المهم  هنا وهو  نسخ القاعدة  المرفقة  الى المسار المحدد مسبقا
              'ملاحظة  غير اسم القاعدة   من data
              'الى اسم القاعدة التي  لديك
       '     FileCopy (App.Path & "\Name database.MDB"), Dialog.FileName
               FileCopy (App.Path & "\data.MDB"), Dialog.FileName
             'رسالة تفيد نجاح عملية النسخ
              MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName
           End If
       End If
   Exit Sub
'متصيد الأخطاء
BackupError:
'رسالة بمعلومات الخطاء
 MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName

وبا ختصار فالمهم في هذه الشغلة هي

هذا الكود

'ممكن نختصر الكود  بهذا الشكل بدون الشروط التي سبقت
           Dialog.FileName = ""
           Dialog.Filter = "Backup files (*.bck) |*.bck|"
           Dialog.ShowSave
           'نسخ قاعدة البيانات المرفقه في المسار  الى  المسار المحدد
           FileCopy (App.Path & "\data.MDB"), Dialog.FileName
            'رسالة تفيد نجاح عملية النسخ
          MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName

ارجو المعذره على هذه الكركبه نظراً لاني رديت عليك وانا على عجل كوني مشغول للغاية

ارجو المواصلة واخباري بما تصل اليه

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي / الفوارس 2000

شكرا جزيلا لاهتمامك وأرجو أن لاأكون ضيعت وقتك وجزاك الله خير على الشرح سأحاول الدراسة والتطبيق وسأخبرك لاحقا .............. لك احترامي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الكريم أنظر ببرنامجي مصنع الطابوق الوجود بالتوقيع ستجد كيفية نسخ قاعدة البيانات وأيضاَ ضغط واصلاح قاعدة البيانات

تحياتي

ملاحظة :

كلمة الدخول : مشرف والرقم السري : مشرف

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الأخ /omani أشكرك على اهتمامك بموضوعي وأهنئك على البرنامج الرائع ( مصنع الطابوق) ولكني نسيت ان أذكر لكم أنني مبتدىء وأفهم بالتدرج ( خطوة خطوة )

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

وتقل احترامي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي / الفوارس2000

حياك الله لقد حاولت كما قلت لي فضغطت على استعراض وحددت الوجهة ومع ذلك اذا ضغطت على حفظ أو مسخ احتياطي يعطي رسالة file not found فما ذا اصنع حيال هذه المشكلة ؟ وماسببها؟

اكرر شكري لكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي / الفوارس2000

حياك الله لقد حاولت كما قلت لي فضغطت على استعراض وحددت الوجهة ومع ذلك اذا ضغطت على حفظ أو نسخ احتياطي يعطي رسالة file not found فما ذا اصنع حيال هذه المشكلة ؟ وماسببها؟

اكرر شكري لكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي العزيز

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

file not found

انظر الصورة المرفقة

وشكراً على الاهتمام

post-29423-1129322122_thumb.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفوارس 2000 اشكرك على مواصلة الاهتمام

معليش استطعت التغلب على مشكلة الملف غير موجود وكان خطأ مني لكن الان بعد تحديد الوجهة وكتابة اسم قاعدة البيانات واغلاق مربع الحوار ينتقل المسار الى text المقابل للزر browse وعند الضغط على حفظ أو backup تنتج رسالة تشير الى عدم السماح permission denied على حسب فهمي فكيف حل هذه المسألة ولك فائق الاحترام .

تم تعديل بواسطه abosaad54
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ارجو ارفقا مثالك ليتم معاينة المشكلة وارفاق الحل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ارجو ارفقا مثالك ليتم معاينة المشكلة وارفاق الحل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا أخي الفوارس 2000

لقد حلت المشكلة واصبح يعمل الكود جيدا بفضل الله ثم تعقيبك المتواصل ومحاولاتي وجزاك الله خيرا كثيرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ياشباب بعد البحث عن مشكلة لي وهي permission denied رأيت تلك المشاركات وقد مررت بنفس المشاكل التي مر بها الأخ أبو سعد حتى وصلت لمشكلة permission denied ووجدته قد حلها ولم نعرف كيف حلت لأنها تمر بي الآن فلو أي من الشباب المتميزين في المنتدى يرشدني على سبب تلك المشكلة وجزاكم

الله خيراًَ

والكود هو كالتالي

	On Error GoTo BackupError
dialog1.FileName = ""
dialog1.Filter = "backup files(*.bck) |*.bck|"
dialog1.ShowSave
If dialog1.FileName <> "" Then
If FileLen(App.Path & "\sairlines.mdb") > 1210000 And Mid(dialog1.FileName, 1, 1) = "A" Then
MsgBox "لا يمكن نسخ قاعدة البيانات على ذلك المحرك فضلا اختر محرك أقراص ذو سعة أكبر.", vbOKOnly + vbCritical, " خطأ في النسخ" + UserName
Else
FileCopy (App.Path & "\sairlines.mdb"), dialog1.FileName
MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName
End If
End If
Exit Sub
BackupError:
MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName

والخطأ الذي يطلع هو runtime error 70 " permission denied"

وشكراً للجميع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مرحبا لم اتفحص الخطا جيداً

ولكن ماذا تعني (( dialog1.Filter = "backup files(*.bck) |*.bck|"

الفيلتر إذا كانت قاعدة البيانات اكسس

جرب كتابة

mdb.

ومسح

bck.

تحياتي ، ارجو ان اكون ساعدتك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي محمدvb أعتقد أنه في الصفحة الأولى من ذلك الموضوع مثال تم فيه توضيح معنيdialog filter وهو كما يلي

'انواع الملفات او الامتداد

Dialog.Filter = "Backup files (*.bck) |*.bck|"

أي يجبر فيه مربع الحوار الحفظ على إظهار نوع الملفات bck وهو امتداد ملفات backup فقط في جزء نوع الملف

شكراً على الإهتمام أخي محمد وجزاكم الله خيراً

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

بارك الله فيك أخي محمد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ياشباب لو أحد عنده حل لمشكلة runtime error 70 permission denied في الكود الواضح في المشاركة السابقة جزاكم الله خيراً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

أخوانى الكرام انا مش متابع الموضوع من اوله ولكن

يوجد فى التوقيع الخاص بى موضع حول حفظ وأسترجاع وضغط وأصلاح قاعده البيانات

وبه مثال شغاال 100% وهو بالداو ولن يختلف على الأدو

وهذا هو الرابط

http://www.arabteam2000-forum.com/index.php?showtopic=102607

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .