• 0
الملك العربي

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

سؤال

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

السؤال هو الاتي

لدي برنامج مقسم اي ان الاستعلامات والتقارير والنماذج في مسار c

والجداول التي بها البيانات في D ومرتبطة بالبرنامج

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

ثابت ان احدده والهدف من هذه العملية الحفاظ على قاعدة الجداول من التلف

كما اتلافى الخطأ من المستخدمين للبرنامج والاستغناء عن خدماتهم في عمل النسخ الدوري للقاعدة

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

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

لمن لديه الافادة حول هذا الموضوع

0

شارك هذا الرد


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

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

  • 0

اخي الفاضل : الشاذلي

 

اولا : تأكد بارك الله بك انه يوجد مجلد بإسم  My Data   على محرك الأقراص  D

 

ثانيا : قبل عملية النسخ الإحتياطي ( وليس الاحطياطي ) تأكد بارك الله انه تم فعلا اغلاق برنامج الأكسيس بشكل كامل  وذلك من خلال التأكد من  ادارة المهام 

 

وذلك بالضغط على  المفاتيح   ALT+CTRL+DELETE  مع بعض في نفس الوقت ثم البحث عن برنامج الأكسيس  MSACCESS.EXE  وايقافه

 

ثالثا : قم بإيقاف تشغيل الكمبيوتر واعادة تشغيله فلربما يكون هناك شيء عالق في الذاكره لم يتم تحريره بعد

 

رابعا : اسم النسخة الإحتياطية التي سيتم اخذها الى المجلد  D:\My Data   طويل جدا وبه مسافات ليس لها اي لزوم فهي بهذا الشكل

 

MyData    Backup    Date 2013_06_03      Time 06 14 م.mdb
 
والصحيح بارك الله بك ان تقوم بتقليل المسافات في الكود الخاص بأخذ النسخة الإحتياطية بهذا الشكل
 
MyData Backup Date 2013_06_03 Time 06 14 م.mdb
 
 
بالتوفيق
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
لقد بحثت في المنتدى وغيره ولم اجد شئ

أخي الكريم

الامثله عن ماتطلبه بالعشرات في هذا المنتدى .. استخدم البحث

0

شارك هذا الرد


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

فعلا الأمثله كثيره

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

Dim SourceFile, DestinationFile
SourceFile = "SRCFILE" ' تحديد مسار الملف واسمه ولا تنسى اللحاقة
DestinationFile = "DESTFILE" ' تحديد اسم ومسار للملف المنسوخ ولا تنسى اللحاقة
FileCopy SourceFile, DestinationFile ' يقوم هذا السطر بنسخ الملف من المصدر إلى الوجهه

1

شارك هذا الرد


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

اخي اكسير الحياة

يعطيك العافيه على تنبيهك ولكن اخي ربما يكون العيب فينا فنحن نتعلم

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

ولذلك نلجأ لخبراتكم في هذا المجال

اخي ابوعمر الجنوبي

يعطيك العافيه على مساعدتك الكريمة لقد وصلت الفكرة كما احب ان اضيف هذا الكود لأستاذنا startnet والذي يفي بالغرض

وذلك للفائدة فربما يبحث عنه غيري

On Error GoTo MyErr

Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB
'مسار واسم القاعده التي تحتوي على الجداول
OldFile = "D:\StartNetFolder\StartNetTb.mdb"
'المسار الذي تم تحديده للقاعده فقط
DBwithEXT = Dir(OldFile)
'اسم الملف بعد حذف الامتداد
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
'مسار القاعده بعد النسخ و اسم القاعده بتاريخ النسخ
NewFile = "D:\StartNetBackUp\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & Right(DBwithEXT, 4)
'استخدام الدوس لنسخ القاعده من مجلد الى مجلد اخر
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
'تنفيذ كود النسخ
Shell CopyMyDB, 0

MyErr:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If

ربي يعطيكم العافية الف تحية للجميع

تم تعديل بواسطه الملك العربي
1

شارك هذا الرد


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

كما أشار أخى إكسير ... تفضل هذه بعض الراوبط لنفس الموضوع أو تدور عنده.

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

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

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

تعديل: عفواً فقد فتحت الموضوع وانشغلت .. ثم أضفت الرد .. فاتضح لى بعده أن الأخ الملك العربى توصل لكوده المطلوب.

أعتذر عن المداخلة المتأخرة

تحياتى

محمد ندا

تم تعديل بواسطه Mohamed Nada
1

شارك هذا الرد


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

الأخ محمدالسلام عليكم و رحمة الله و بركاته،كنت أبحث في المنتدى على كود النسخ الإحتياطي و قد وجدت من بين هده الأمثلة مجموعة ممتازة جداً و من ضمن هذه المجموعة كود كتبتم شكله و لزيادة المعرفة أكثر للجميع أطلب منكم التكرم إرفاق مثل على قاعدة حتى تعم المعرفة ، وهناك كود أرفقتم مثل له على قاعدة الأكسس و هي تحمل اسم MyTables_DB لقدتمت تجربته و نجح بمتياز في النسخ كما كان مطلوب و لكن عند مراجعة القاعدة المنسوخه لا تفتح حتى تحويلها إلى أكسس 2007 للأنني أستخدم هذا الإصدار و أرجو منكم التكرم مرة أخرى تزويدنا بنسخة تعمل على 2007 و لك دعواتنا بأن الله يجعل هذا في مزان حسناتكم و كل عام و أنتم بخير شاكر و مقدر حسن التعاون

0

شارك هذا الرد


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

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

بارك الله فيك اخي الملك العربي وبجميع الاخوان

اخي الكريم

لي طلب بسيط لوتكرمت انك تضع الكود في مثال

لاني حاولت ماقدرت اطبق الكود اللي في المشاركه رقم4

بارك الله فيكم وجزاكم الله خير

احترامي وتقديري لكم جميعا

0

شارك هذا الرد


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

الساده / مشرفي المنتدي    المحترمين

 

لماذا تظهر لى هذة الرسالة عند قيام البرنامج بأخذ نسخة من قاعدة البيانات

 

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

 

ولكم جزيل الشكر

MyData.rar

0

شارك هذا الرد


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

اخي الفاضل : الشاذلي

 

اولا : تأكد بارك الله بك انه يوجد مجلد بإسم  My Data   على محرك الأقراص  D

 

ثانيا : قبل عملية النسخ الإحتياطي ( وليس الاحطياطي ) تأكد بارك الله انه تم فعلا اغلاق برنامج الأكسيس بشكل كامل  وذلك من خلال التأكد من  ادارة المهام 

 

وذلك بالضغط على  المفاتيح   ALT+CTRL+DELETE  مع بعض في نفس الوقت ثم البحث عن برنامج الأكسيس  MSACCESS.EXE  وايقافه

 

ثالثا : قم بإيقاف تشغيل الكمبيوتر واعادة تشغيله فلربما يكون هناك شيء عالق في الذاكره لم يتم تحريره بعد

 

رابعا : اسم النسخة الإحتياطية التي سيتم اخذها الى المجلد  D:\My Data   طويل جدا وبه مسافات ليس لها اي لزوم فهي بهذا الشكل

 

MyData    Backup    Date 2013_06_03      Time 06 14 م.mdb
 
والصحيح بارك الله بك ان تقوم بتقليل المسافات في الكود الخاص بأخذ النسخة الإحتياطية بهذا الشكل
 
MyData Backup Date 2013_06_03 Time 06 14 م.mdb
 
 
بالتوفيق

ثانيا : قبل عملية النسخ الإحتياطي ( وليس الاحطياطي ) )

هههههه  :)  :)  :)  أولا : أشكرك يا زهرة المنتدي على التصحيح اللغوي ده

                                 ثانيا : أحب أقول لحضرتك أنك فعلا و بكل إحترام تستحقي التقدير  B) 

ربنا يكتب لكى بكل حرف تكتبينه فى المنتدي حسنة و الحسنة بــ 10 أمثالها

0

شارك هذا الرد


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

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

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