بک آپ جدول [بایگانی] - برنامه نویس

azadich

جمعه 16 خرداد 1393, 01:37 صبح

با سلام خدمت اساتید بزرگوار.من تو برنامه ام چندین جدول دارم حال می خواهم فقط از چند جدول مورد نظرم بک آپ گیری بشه.ممنون :عصبانی++:

azadich

جمعه 16 خرداد 1393, 23:53 عصر

یعنی نمیشه؟!کمک:گریه::گریه::گریه:: گریه:

azadich

یک شنبه 18 خرداد 1393, 08:29 صبح

کجایند اساتید محترم،این سوال جواب نداره؟!

azadich

دوشنبه 19 خرداد 1393, 08:03 صبح

خواهشمندم کسی جواب بده

ARData

سه شنبه 20 خرداد 1393, 15:43 عصر

جهت بکاپ از جدول خاصی یا کلیه جداول (با اضافه کردن حلقه) می توان از کد زیر استفاده نمود و برای رستور کردن با اندکی دقت می توان از همین کد بهره گرفت :
' جهت ايجاد بکاپ بر اساس جداول مرد نظر
' ايجاد يک فايل اکسس خالي
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