أسترجاع نسخة من القاعدة إلى مجلد البرنامج

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

اخي اولا لظهور مربع الحوار يجب اتباع الاتي :

افتح الفيجوال بيزك واضغط على CTRL + T واختار منها الاداة

Microsoft Common Dialog Control

ثم اسحبها وضعها على الفورم

نأتي لزر استرجاع قاعدة البيانات اكتب فيه الكود التالي

	CMD.Filter = "DataBase(*.mdb)|*.mdb"
	CMD.FileName = ""
	CMD.ShowOpen

On Error Resume Next
	Kill (App.Path & "\Peoples.mdb")

	FileCopy CMD.FileName, App.Path & "\Mydb.mdb"

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

ان شاء الله يفيدك

بالتوفيق :)

=============

الى اللقاء

الف الف شكر لك عزيزي MR^King

سأجرب واوافيك بالنتيجة

عزيزي MR^King

عند وضع الكود يظهر خطأ في السطر الأول أرجو التوضيح أكثر

الخطأ في هذا السطر

CMD.Filter = "DataBase(*.mdb)|*.mdb"

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

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

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

لاحظ اني غيرت اسم الاداة وخليته CMD بدلا من CommonDialog1

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

بالتوفيق

=============

الى اللقاء

تفضل الملف التالي الاخير في المشاركة

/index.ph...5457&st=30#

عزيزي وأستاذي الفاضل MR^King

عندي مشكلة في استرجاع قاعدة البيانات وهي :

انه عند الضغط على زر استرجاع تظهر النافذة لتحديد القاعدة المراد إسترجاعها وهذا امر طبيعي

أحياناً لا اريد استرجاع القاعدة واضغط على الزر الغاء الأمر الذي تحت زر فتح

وبعدها يتم حذف القاعدة الأصلية

المشكلة هي حذف القاعدة سوأً استرجعت القاعدة او لم استرجعها

يعني بمجرد ضغط الزر استرجاع القاعدة يتم حذف القاعدة الموجودة في مجلد البرنامج

المطلوب هو عدم حذف القاعدة الأصلية إلا بعد تحديد النسخة الأحتياطية واختيار الزر فتح وإذا اخترت الزر إلغاء الأمر يبقى كل شئ على حالة دون تغيير

معذرة على الأطالة وربما خانني التعبير أو عجزت ان اعبر بشكل صحيح

تحياتي للأخ المهنا وشكرأ

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

اخي الكريم مافي مشكلة ان شاء الله

انظر لهذا السطر

CMD.ShowOpen

وضع الكود التالي بعده

IF CMD.FileName = "" then Exit Sub

وبذلك لا يتم تنفيذ الاوامر التالية له في حالة عدم اختيار اي شئ

كده ان شاء الله تمام :)

==============

الى اللقاء

جرب هذا الكود أخى الكريم

	CMD.Filter = "DataBase(*.mdb)|*.mdb"
	CMD.FileName = ""
	CMD.ShowOpen
	If CMD.FileName = "" Then
		Exit Sub
	Else
		On Error Resume Next
		Kill (App.Path & "\Peoples.mdb")
	End If
	FileCopy CMD.FileName, App.Path & "\Mydb.mdb"

عزيزي وأستاذي الفاضل MR^King

نفس المشكلة يقوم بحذف القاعدة

الف الف شكر للأخ GENIUS-IT

اين أستاذي الفاضل MR^King

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

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

عموما حمل المثال التالي للتأكد بنفسك :)

=============

الى اللقاء

open.rar

الف الف شكر لأستاذي الفاضل

MR^King

الكود يعمل 100 %