النسخ الإحتياطي ومفهومه
السلام عليكم ورحمة الله وبركاته :
اولا احيى القائمين على المنتدى الرائع واحيى كل المشاركين
واتمنى ان اكون عضو جديد أفيد وأستفيد ولو اني بالنسبة لكم جاهل.
عملت برنامج والحمد لله تكلل بالنجاح وهذا بفضل الله ثم بفضل هذا المنتدى الرائع.
ولكن بقى لى مشكلتان فقط لاغير وهما :
1- فكرة النسخ الإحتياطي كيف تكون ومامفهومها وما مدى اهميتها وكيف عمل نسخ احتياطي لأكثر من قاعدة بيانات واحدة.
وهل يوجد مشكلة فيما اذا المستخدم قام بنسخ قاعدة البيانات في دسك مثلا طبعا النسخ هذا قصدي النسخ العادي.
انا وجدت في هذا المنتدى كودات كثيرة للنسخ الإحتياطي ولكن احس انها غامضة وغير مفهوم فكرتها ..
فرجاء لا أمرا يا احبابي افيدوني جزاكم الله الف خير
2- المشكلة الثانية :
وهي في نظري اهون من السابقة
اذكروا لي اسماء برامج للتحزيم واذا كانت مزودتا بالشرح يكون افض كثير.
اتمنى من الله العزيز ان يوفق الجميع الى عمل الخير والزيادة في العلم
مارأيكم ياأخون في هذه الطريقة هل فكرتها نفس فكرة النسخ الإحتياطي
Shell "Copy D:db.mdb E:db.mdb", vbHide FileCopy "D:mdb", "E:db.mdb"
وما الفرق بين الكودين السابقين
ويا حبذا لو توضحوا لنا طريقة ممتازة وواضحة
--------------------------------------------------------------------------------
الكاتب: مروان سعد بتاريخ: 9/16/2002 1:53:48 PM
اضف للمفضلة
--------------------------------------------------------------------------------
السلام عليكم
التعليمة الأولى هي عملية تشغيل برنامج خاص لنسخ الملفات فتعليمة Shell هي لتشغيل برنامج خارجي.
اما التعليمة الثانية فهي الطريقة الصحيحة و لكن يفضل نسخ الملف الأحتياطي بالاحقة تدل على انه
ملف احتياطي مثلا
Dim OldDb , NewDb as string
"OldDb = app.path & "MyBatabase.mdb
"NewDb = App.path"MyDatabase.Bak
Filecopy OldDb , NewDb
--------------------------------------------------------------------------------
amervb1
الكاتب: amervb1 بتاريخ: 9/17/2002 1:33:00 AM
--------------------------------------------------------------------------------
ظهرت مشكلة
اخ amervb1 اشكرك على هذا الرد لكن المشكلة اعطاني رسالة هذا مضمونها "
Rermission denied
فما هو الحل
--------------------------------------------------------------------------------
الكاتب: مروان سعد بتاريخ: 9/18/2002 10:04:12 PM
--------------------------------------------------------------------------------
السلام عليكم
هل من الممكن ان تكتب الكود هنا لو سمحت.
--------------------------------------------------------------------------------
amervb1
الكاتب: amervb1 بتاريخ: 9/18/2002 10:33:37 PM
--------------------------------------------------------------------------------
السلام عليكم
شكرا لك هذا الكود اللي كتبتة على نفس طريقتك يعطيني خطأ بنفس الرسالة السابقة ثم خط اصفر على الخطوة رقم 4 الخطوة الأخيرة.
1- Dim OldDb, NewDb As String
2- "OldDb = App.Path & "mok1.mdb
3- "OldDb = App.Path & "mok1.bak
4- FileCopy OldDb, NewDb
في انتظار الرد
--------------------------------------------------------------------------------
الكاتب: مروان سعد بتاريخ: 9/20/2002 8:22:58 PM
--------------------------------------------------------------------------------
السلام عليكم
الخطأ واضح
فلقد طلبت نسخ المتغير نفسه
اقرا الكود جيدا فسوف تجد ان الخطأ واضح
--------------------------------------------------------------------------------
amervb1
الكاتب: amervb1 بتاريخ: 9/21/2002 1:28:32 AM
--------------------------------------------------------------------------------
السلام عليكم
اخي amervb1 اعلم اني اثقلت عليك لكن تحملني معليش
المشكلة لازالت وهذه الطريقة برضه تعطي نفس المشكله السابقة فياليت لو تكتب الكود الصحيح
حيث اني اريد عمل النسخة في نفس المجلد اللي فيه البرنامج والف شكر مع الاعتذار
هذا هو الكود وبنفس المشكلة السابقة
"FileCopy App.Path & "mok1.mdb", App.Path & "mok1.bak
عند الضغط على الزر يعطي نفس الرسالة السابقة
--------------------------------------------------------------------------------
الكاتب: مروان سعد بتاريخ: 9/23/2002 9:20:33 AM
--------------------------------------------------------------------------------
السلام عليكم
Code:
Dim OldDb , NewDb as string
OldDb = app.path & "MyBatabase.mdb" '----------------
'
' > لاحظ هنا المتغير
' /
NewDb = App.path"MyDatabase.Bak" '----------------
Filecopy OldDb , NewDb
' |||||//
' /-----
' / - -
'[ @ @ ]
' > /
' _ /
' | |
Dim OldDb, NewDb As String
OldDb = App.Path & "mok1.mdb" '----------------
'
' >لانك قد استخدمت نفس المتغير
' /
OldDb = App.Path & "mok1.bak" '----------------
FileCopy OldDb, NewDb
amervb1
الكاتب: amervb1 بتاريخ: 9/23/2002 11:54:17 AM