نسخ احتياطي لقاعدة البيانات الخلفية back_end :::::: accdb

[سعيد صواب]

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

لدي قاعدة بيانات accdb على سيرفر( طبعا هي القاعدة التي تحتوي على الجداول )  وحاولت استخدام العمل المقدم من الأخ ابو خليل جزاه الله خير  في هذا الرابط 

http://www.officena.net/ib/topic/29214-نسخة-احتياطية-آلية-لقاعدة-البيانات-الحالية-أو-لأخرى-منفصلة/

ولكن لم يفلح ..

حولت القاعدة الخلفية إلى mdb فنجحت الطريقة ..

المطلوب هل من الممكن التعديل على الوحدة النمطية  لتعمل مع الـ  accdb  .. ولو وجد وحدة نمطية اخرى فلا مانع .

وفقنا الله وإياكم لما يحب ويرضى .

[ابوخليل]

وعليكم السلام

في مكتبتي امثلة كثيرة متنوعة للنسخ 

ولكني عثرت لك على هذا الكود الصغير 

يقوم بنسخ اي شيء باي اسم واي امتداد وصيغة ولصقه على اي اسم نختاره واي امتداد وصيغة

Private Sub zer1_Click()
CopyFile CurrentProject.Path & "\xx.accdb", "D:\xx.accdb"
End Sub
Function CopyFile(vPathSource As String, vPathDestination As String) As Boolean
    FileCopy vPathSource, vPathDestination
    CopyFile = True
End Function

اخي آخر الارض .. جرب ووافنا بالنتائج

[رمهان]

وعليكم السلام

في مكتبتي امثلة كثيرة متنوعة للنسخ 

ولكني عثرت لك على هذا الكود الصغير 

يقوم بنسخ اي شيء باي اسم واي امتداد وصيغة ولصقه على اي اسم نختاره واي امتداد وصيغة

Private Sub zer1_Click()
CopyFile CurrentProject.Path & "\xx.accdb", "D:\xx.accdb"
End Sub
Function CopyFile(vPathSource As String, vPathDestination As String) As Boolean
    FileCopy vPathSource, vPathDestination
    CopyFile = True
End Function

اخي آخر الارض .. جرب ووافنا بالنتائج

يقول المثل ابا خليل قديمك نديمك

لذلك شغلك القديم اصح ! واسمح لي باختصاره الى الكود التالي

Shell "cmd.exe /C copy " & """" & CurrentProject.FullName & """" & " " & """" & CurrentProject.Path & "\abc.mdb" & """"

حيث الانتباه الى تساوي الامتداد بين الملف الحالي والوجهة !

 

تحياتي

[jjafferr]

السلام عليكم

 

وهذه محاولة مني :-)

http://www.officena.net/ib/topic/63113-نسخ-ملف-خارجي-في-مجلد-خارجي/

 

جعفر

[سعيد صواب]

اخواني الكرام جزاكم الله كل خير ..

هذا هو امتداد القاعدة الخلفية :

D:\saeedbacta

واسم الملف : personnel

نوعه accdb

وهذا امتداد ملف الذي اريد ان احفظ النسخة فيه .

D:\prog

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

جربت كود الأخ  ابو خليل ويظهر لي رسالة خطاء (( bad file name or number )) في هذا السطر 

FileCopy vPathSource, vPathDestination

وجربت كذلك كود الأخ رمهان وكود الأخ جعفر ... ولكن لاتظهر اخطاء .. ولا تقوم بالحفظ كذلك.

 

وفقنا الله واياكم.

[رمهان]

بالنسبة للكود السابق ضعه خلف زر امر عند النقر والتاكد من تمكين المحتوى مع ملاحظة :

- اذاكان ملف قاعدتك جديد من النوع  accdb  غير فقط abc.mdb   الى  abc.accdb    وهنا ستجد ملف اكسس abc  موجود في نفس مسار برنامجك الحالي

- اذا لم يحدث شي قد تكون المشكلة صلاحية الكتابة على المجلد او المسار الذي به القاعدة الحالية

بالتوفيق

[سعيد صواب]

حياك الله اخي رمهان ..

جربت ماذكرت في المشاركة الأخيرة ..  قام بعمل نسخ للبرنامج نفسه وليس للقاعدة الخلفية.

جربت ووضعت مسار القاعدة الخلفية ... ولم يحدث شئ

جزاك الله كل خير

[أبو عبدالله الحلوانى]

لو تسمح حصرتك بمرفق صغير للتعديل عليه

ورئية المشكلة لديك عيانا - فليس من رئا كمن سمع

[رمهان]

حياك الله اخي رمهان ..

جربت ماذكرت في المشاركة الأخيرة ..  قام بعمل نسخ للبرنامج نفسه وليس للقاعدة الخلفية.

جربت ووضعت مسار القاعدة الخلفية ... ولم يحدث شئ

جزاك الله كل خير

تمام

هل تريد نسخ القاعدة الخلفية على نفس مسارها وباسم مختلف ؟

[سعيد صواب]

مشكور على التجاوب اخ رمهان ... واسف على الإزعاج

 

اريدها على مسار آخر ... اهم شئ المسار أما التسمية فلا تهم.

[رمهان]

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

الانتباه : في كود ابا خليل يوجد السطر:

NewFile = [DBNew] & "\" & DBwithoutEXT & "-" & (Format(Date, "yyyy") - 1) & "-" & Format(Date, "yyyy") & Right(DBwithEXT, 4)

لاحظ الملون بالاحمر ! فهو يخص ال mdb !   جرب ان تعدل الرقم 4 الى 6 ! ثم جرب وطبق على accdb

بالتوفيق

لم يتم التلوين اقصد الجزئية:

Right(DBwithEXT, 4)

وكذلك في السطر التالي ومن الرابط السابق:

DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)

عدل 4 الى 6

تم تعديل سبتمبر 6, 2015 بواسطه رمهان

[ابوخليل]

جميع اكواد ومحاولات الاخوة الاعزاء لم تعمل معك .. اكيد المسألة فيها إنّ

يمكن الخلل عندك فقط

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

تمت التجربة ويعمل على اكمل وجه

فك المرفقات داخل قرص D  

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

انسخ اي شيء.rar

 

استدراك : اخي آخر الارض انتبه عند فك الملفات ان تفقد شيئا من عملك

حيث يوجد لديك مجلدات بالاسم نفسه

تم تعديل سبتمبر 6, 2015 بواسطه ابوخليل

[رمهان]

جميع اكواد ومحاولات الاخوة الاعزاء لم تعمل معك .. اكيد المسألة فيها إنّ

يمكن الخلل عندك فقط

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

تمت التجربة ويعمل على اكمل وجه

فك المرفقات داخل قرص D  

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

انسخ اي شيء.rar

 

استدراك : اخي آخر الارض انتبه عند فك الملفات ان تفقد شيئا من عملك

حيث يوجد لديك مجلدات بالاسم نفسه

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

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

تحياتي

[سعيد صواب]

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

الأخ ابو خليل قمت بتجربة ماذكرته في المشاركة الأخيرة ويعمل 100% .... . جزاك الله كل خير.

كان الخطاء في هذا السطر ... فعند وضع مسار الحفظ لم اضف اليه اسم القاعدة وصيغتها .... 

CopyFile "D:\saeedbacta\personnel.accdb", "D:\prog\personnel.accdb"

الأخ ابو عبدالله الحلواني اعتذر لأني لم اشاهد مشاركتك الا الآن .. وجزاك الله خير 

الأخ رمهان بارك الله فيك ...شكرا على تعاونك وجزاك الله كل الخير.

الأخ جعفر .... جزاك الله كل خير .

 

وبالتوفيق للجميع.

 

تم تعديل سبتمبر 7, 2015 بواسطه آخر الأرض

[صالح حمادي]

جازاكم الله خير الجزاء