طريقة بسيطه لعمل نسخة احتياطية :
اذهب الى 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 بــ إسم قاعدة البيانات التى عندك
سبحان الله وبحمده سبحان اللهالعظيم آللهملگآلحمد حتى ترضى .. ولگآلحمدإذا رضيِت .. ولگآلحمدبعد آلرضآ
مشكور اخي الكريم
الاخوة الكرام وجدة برنامج مصمم بلغة الدلفي وتوجد به طريقة لنسخ قاعد البيانات بطريقة جميلة ويلكم الصوره
وحاولت تطبيق الفكر على فيجوال بيسك 6 ولم استطع