نمونه backup and restor

[saeed1234n]

با سلام

دوستان عزیز می دونم که سوالم تکرای است و تکرار مکررات

اما در تکمیل برنامه ای که مشغول طراحی ان هستم خیلی کمک می کنید اگر مثل همیشه راهنمایی بفرمایید :

سوالی داشتم :

همانطور که از عنوان تاپیک مشخص است بنده برای برنامه ام نیاز به تهیه یک بکاپ(backup) و ریستور(restore) آن دارم .

باور کنید در تاپیک های مختلف گشتم و فایلهای مختلف را دیدم ولی متاسفانه نمونه جامع و کاملی ندیدم . ممنون می شوم نمونه ای ارائه کنید که دارای امکانات زیر باشد :

1- در قسمت بکاپ این قابلیت را داشته باشد که کاربر بتواند محلی را جهت بکاپ انتخاب کند و این قابلیت را داشته باشد تا این محل را تنظیم کند که دیگر مجبور به وارد کردن مجدد مسیر نداشته باشد . اما همیشه امکان وارد کردن مسیری جداگان را داشته باشد .

2- فایل بکاپ را بتوان با نام های مختلف و با ذکر تاریخ بکاپ ذخیره کرد.

3- فایل بکاپ را بتوان هم بطور فشرده و هم بطور ساده ذخیره کرد .

4- قابلیت ریستور داشته باشد .

بسیار سپاسگذار خواهم بود از عنایت شما خوبان .

نادری!

:تشویق::تشویق::تشویق:

[ARData]

جهت بکاپ از جدول خاصی یا کلیه جداول (با اضافه کردن حلقه) می توان از کد زیر استفاده نمود و برای رستور کردن با اندکی دقت می توان از همین کد بهره گرفت :
' جهت ايجاد بکاپ بر اساس جداول مرد نظر
' ايجاد يک فايل اکسس خالي
Dim wrkAcc As Workspace
Dim dbsNew As Database
Set wrkAcc = CreateWorkspace("AccessWorkspace", "admin", "", dbUseJet)
If Dir("C:\MM.mdb") <> "" Then Kill "C:\MM.mdb"
Set dbsNew = wrkAcc.CreateDatabase("C:\MM.mdb", dbLangGeneral)
wrkAcc.Close
' انتقال جدول يا جداول مورد نظر به فايل کسس ايجاد شده
' TblX نام جدول موجود در فايل اکسس حاضر مي باشد که جهت انتقال انتخاب شده است
DoCmd.TransferDatabase acExport, "Microsoft Access", _
"C:\MM.mdb", acTable, "TblX", _
"TblY"

'کد زير جهت تبديل جدول اس کيو ال لينک شده به جدول ثابت اکسس
Dim dbs As Database
Dim qdf As QueryDef
Set dbs = OpenDatabase("C:\MM.mdb")
dbs.Execute "SELECT * INTO " & "[Tbl_YBackuped] FROM TblY;"
dbs.Close