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

[FUNCTION 0]

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

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

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

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

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

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

backup&Restore.zip

[FUNCTION 0]

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

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

[الفوارس 2]

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

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

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

(h)

backup&Restore2.rar

[الفوارس 2]

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

[abosaad54 0]

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

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

[الفوارس 2]

لم افهم مقصدك

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

ارجو التوضيح

[abosaad54 0]

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

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

file not Found

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

[abosaad54 0]

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

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

file not Found

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

[الفوارس 2]

اخي العزيز abosaad54

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

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

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

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

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

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

[الفوارس 2]

 'هذا الامر   عند حدوث خطأ في النسخ  يذهب الى راصد الاخطاء  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

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

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

[abosaad54 0]

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

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

[omani 262]

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

تحياتي

ملاحظة :

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

[abosaad54 0]

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

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

[الفوارس 2]

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

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

وتقل احترامي

[abosaad54 0]

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

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

اكرر شكري لكم

[abosaad54 0]

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

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

اكرر شكري لكم

[الفوارس 2]

اخي العزيز

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

file not found

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

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

[abosaad54 0]

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

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

تم تعديل 14 Oct 2005 بواسطه abosaad54

[الفوارس 2]

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

[الفوارس 2]

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

[abosaad54 0]

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

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

[asfora 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"

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

[محمدvb 11]

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

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

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

جرب كتابة

mdb.

ومسح

bck.

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

[asfora 0]

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

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

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

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

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

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

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

[asfora 0]

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

[AHMED HAMED 6]

السلام عليكم

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

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

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

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

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