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

اقتباس

لقد بحثت في المنتدى وغيره ولم اجد شئ

أخي الكريم

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

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

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

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

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

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

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

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

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

يعطيك العافيه على مساعدتك الكريمة لقد وصلت الفكرة كما احب ان اضيف هذا الكود لأستاذنا 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

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

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

/index.php?showtopic=194529

/index.php?showtopic=191643

/index.php?showtopic=187692

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

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

تحياتى

محمد ندا

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

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

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

اخي الكريم

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

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

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

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

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

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

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

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

MyData.rar

zahrah كتب:

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

 

اولا : تأكد بارك الله بك انه يوجد مجلد بإسم  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 أمثالها