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

بسم الله الرحمن الرحيم

اخواني واساتذتي الافاضل :

استخدم قاعدة بيانات اكسيس 2003 واريد ان يقوم البرنامج بعمل نسخة احتياطية لقاعدة البينات على بارتيشن اخر او فلاشة مثلا من خلال الضغط على زر الحفظ

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

طريقة بسيطه لعمل نسخة احتياطية :
اذهب الى Project --->> Components
وإختر Microsoft Common Dialog 6.0
اضيف الاداة CommonDialog1 فى الفورم وسميها من خاصية الــــ Name الى (Dialog)
اضف ذر امر كوماند وسميه Backup وإضغط عليه دبل كليك واكتب الكود التالى :

PHP كود :

On Error GoTo BackupError    Dialog.FileName = ""    Dialog.Filter = "Backup files (*.bck) |*.bck|"    Dialog.ShowSave        If Dialog.FileName <> "" Then            If FileLen(App.Path & "\Lab.MDB") > 1210000 And Mid(Dialog.FileName, 1, 1) = "A" Then                MsgBox "لايمكن نسخ قاعدة البيانات على هذا المحرك فضلاً قم بإستبداله بمحرك ذو سعة اكبر", vbOKOnly + vbCritical, " خطأ فى النسخ" + UserName            Else                FileCopy (App.Path & "\Lab.MDB"), Dialog.FileName               MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطى " + UserName            End If        End If    Exit SubBackupError:  MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName 

استبدل كلمة Lab بــ إسم قاعدة البيانات التى عندك

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

اشكرك شكرا جزيلا اخي hago بارك الله فيك وسدد خطاك

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

الاخ الكريم
المرفق لا يعمل عند التحميل نرجو رفعه من جديد او وضع الكود المستخدم
محتاجه ضرورى
الله الموفق

(14-11-14, 11:01 PM)gadr كتب : [ -> ]الاخ الكريم
المرفق لا يعمل عند التحميل نرجو رفعه من جديد او وضع الكود المستخدم
محتاجه ضرورى
الله الموفق

تم اعادة رفع المرفق

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

يبدو لي ان الامر صعب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ENG.MPROG

hago

hago

ENG.MPROG

MohamedMNafie

mohdsader

gadr

abulayth

gadr

gadr