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

[الناشر]

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

Backup MSAceess DataBase By Using Visual Bisck 6

والكود هو


Private Sub mnuBackupDatatbase_Click()
CommonDialog1.DialogTitle = "Browse where to save the backup file"
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "Microsoft Access (*.mdb)| *.mdb"
CommonDialog1.FilterIndex = 1
CommonDialog1.FileName = "اسم قاعدة البيانات"
On Error GoTo msgerror
CommonDialog1.ShowSave
FileCopy App.Path & "\اسم قاعدة البيانات.mdb", CommonDialog1.FileName
MsgBox "Done!"
Exit Sub
msgerror:
MsgBox "Cancelled!"
Exit Sub
End Sub





منقول... (http://www.c4arab.com/forums/showthread.php?t=44768&goto=newpost)