--------------------------------------------------------------------------------
فك برنامج نسخة احتياطية من التعليق
فقط أريد إكمال هذا الكود وإضافة نسخة إحتياطية قبل الدخول في البرنامج
عندي برنامج يحتوي على قاعدة بيانات أكسس والملف التنفيذي للبرنامج هو(gooo.exe)
قبل التشغيل أريد الكود يقوم بأخذ نسخة احتياطية من قاعدة البيانات في مجلد على الجهاز وإن أمكن يقوم بضغط النسخة ببرنامج (winrar) أو (ZIP) مثلاً ثم يفتح البرنامج
الكود الذي عملت في الأسفل يقو م بإضهار رسالة التأكيد على النسخة ثم يفتح البرنامج
أو إن أمكن عن طريق (timer) يأخذ نسخ في أوقات وتواريخ معينة
أرجوا من خبراء النسخ الاحتياطي مساعدتي وأن لايكون الردود (0)
Private Sub Form_Load()
msg = MsgBox(" لا تنسى , النسخ الاحتياطي ", vbOKCancel + vbInformation, "دخول")
If msg = vbOK Then
ChDrive "c:"
ChDir "c:dleel"
Shell ("c:dleelgooo.exe")
Close msg
Else: End
End If
End Sub
مشكلة الكود السابق أنني لم أستطيع إغلاقه بعد تشغيل البرنامج حيث يبقى البرنامج معلق حتى إغلاق الجهاز
--------------------------------------------------------------------------------
من أطاع هواه باع دينه بدنياه
الكاتب: tiggger بتاريخ: 10/8/2002 11:39:45 PM
--------------------------------------------------------------------------------
آسف
قمت بوضع شريح مطول ولكن عندما ضغطت زر الاضافة وجد خطأ عدم تعبئة العنوان وازال ما كتبتة وأنا محبط الآن... المعذره سأحاول إفادتك لاحقاً
--------------------------------------------------------------------------------
الكاتب: mobsos بتاريخ: 10/9/2002 4:28:37 AM
--------------------------------------------------------------------------------
لا تنسانا أخي الحبيب
الأخ الحبيب شاكر لك ومعليش على الوقت والعمل الذي ساعدتني فيه وراح , وأنا في إنتظارك
وترى بأزعجك ورا هالكود . ولو تعبتك ..... لاتنسسسسسسسسسسسسى .
--------------------------------------------------------------------------------
من أطاع هواه باع دينه بدنياه
الكاتب: tiggger بتاريخ: 10/9/2002 6:29:21 AM
--------------------------------------------------------------------------------
نعود بالمختصر
هذا الكود يقوم بنسخ قاعدة البيانات ولاتنس تعديل اسم قاعدة البيانات و المسار الذي تريد نسخها اليه
Private Sub Form_Load()
msg = MsgBox(" لا تنسى , النسخ الاحتياطي ", vbOKCancel + vbInformation, "دخول")
If msg = vbOK Then
FileCopy App.Path + "dbname.mdb", "c:dbname.mdb"
Close msg
Else: End
End If
End Sub
أما بالنسبة لضغط قاعدة البيانات فهذا يحتاج لأداة يمكنك وضع بريدك لإرسال الاداة مع مثال وتستطيع التعديل عليه كما تشاء ....
MoBSoS
--------------------------------------------------------------------------------
الكاتب: mobsos بتاريخ: 10/9/2002 7:50:22 AM
--------------------------------------------------------------------------------
نريد الفائدة تعم
ضع الأداة و المثال هنا رحم الله والدديك
و جزاك الله خير
محبك/أبو زيد
--------------------------------------------------------------------------------
الكاتب: أبو زيد بتاريخ: 10/9/2002 9:16:49 AM
--------------------------------------------------------------------------------
المعذره
المعذرة فأنا لا أحب التعامل بالبريد ولكن حينما كتبت الرد لم يكن لدي مساحه ولا وقت لحجزها وها أنا الآن اضعها على هذه الوصلة...
http://mypage.ayna.com/ocxtools/ZIPocx.zip
--------------------------------------------------------------------------------
الكاتب: mobsos بتاريخ: 10/9/2002 1:20:15 PM
--------------------------------------------------------------------------------
البريد
أخي الحبيب MoBSoS شاكر لك جداً هذه الفائدة , وهذا من لطفك وتفضل بريدي الإلكتروني والماسنجر
لإرسال الأداه وأنا في الإنتظار
سأقوم بتشغيل البرنامج بعد تعديلك وسأعطيك النتيجة وأي ملاحظات ولا نستغني
--------------------------------------------------------------------------------
من أطاع هواه باع دينه بدنياه
الكاتب: tiggger بتاريخ: 10/9/2002 1:21:58 PM
--------------------------------------------------------------------------------
مشكور وما قصرت
جزاك الله خير بأرسل الكود إذا انتهى أو البريمج
--------------------------------------------------------------------------------
من أطاع هواه باع دينه بدنياه
الكاتب: tiggger بتاريخ: 10/10/2002 6:29:46 AM