تهیه نسخه پشتیبان از دیتابیس اکسس در دات نت 2003

[VB.NET2005]

نسخه پشتیبان از دیتابیس اکسس در دات نت 2003

دوستان باور کنید سرچ کردم ولی راجع به دات نت 2003 چیزی پیدا نکردم .

" با تشکر "

[VisualStudio]

شما باید با استفاده از توابع کار با فایل فایل را منتقل کنید
مثلا
Dim f As System.Io.File
f.Copy(Source, Destination)


فایل را در یک محل کپی کنید
که مبدا محل فایلتون هست
و مقصد محلی که میخواهید دیتابیس کپی شود

[VB.NET2005]

دوست عزیز در مورد ریستور کردن دیتابیس از چه کدی باید استفاده کرد .

بـا تـشـکـر

[VB.NET2005]

دوست عزیز VisualStudio :

به زودی سورسی رو که با همین روش نوشتم میزارم .

-- «با تشکر» --

[saman_itc]

پشتیبان


SaveFileDialog.Title = "لطفا مسیر فایل پشتیبان را انتخاب کنید "
SaveFileDialog.Filter = "DateBase Backup File(*.mpc)|*.mpc"
SaveFileDialog.OverwritePrompt = True
SaveFileDialog.RestoreDirectory = True
SaveFileDialog.ShowHelp = False
SaveFileDialog.ValidateNames = False


If ((Windows.Forms.DialogResult.Cancel) = (SaveFileDialog.ShowDialog)) Then
Msgbox_Custom("شما هیچ پشتیبانی را برای برنامه تهیه نکرده اید.آیا مایل به تهیه پشتیبانی هستید؟ ", 2, 1, "هشدار تهیه پشتیبانی ")
If Msgbox_Custom_Result = 1 Then
ToolStripMenuItem1_Click(sender, e)
Else
Return
End If
Else

filen = SaveFileDialog.FileName + ".Mpc"

filep = System.Windows.Forms.Application.StartupPath + "\TelBank.mdb"

FileCopy(filep, filen)
End If


بازیابی پشتیبان

OpenFileDialog.Title = " لطفا مسیر فایل پشتیبان را انتخاب کنید؟ "
OpenFileDialog.Filter = "DateBase Backup File(*.mpc)|*.mpc"
'OpenFileDialog.OverwritePrompt = True
OpenFileDialog.RestoreDirectory = True
OpenFileDialog.ShowHelp = False
OpenFileDialog.ValidateNames = False
OpenFileDialog.FileName = "Mehregan-C"

If ((Windows.Forms.DialogResult.Cancel) = (OpenFileDialog.ShowDialog)) Then
Msgbox_Custom("شما هیچ فایلی را برای بازیابی انتخاب نکردید.آیا مایل به بازیابی نسخه پشتیبان هستید؟ ", 2, 1, "هشدار بازیابی نسخه پشتیبان ")
If Msgbox_Custom_Result = 1 Then
ToolStripMenuItem2_Click(sender, e)
Else
OpenFileDialog.Reset()
Return
End If
Else
filen = OpenFileDialog.FileName

filep = System.Windows.Forms.Application.StartupPath + "\TelBank.mdb"

FileCopy(filen, filep)
End If

[VisualStudio]

Dim f As System.Io.File
f.Move(Source, Destination)
برای ریستور کردن از این کد میتوانید استفاده کنید که این دوستمون هم لطف کردن کد کاملتری گزاشتند ایشون از متد FileCopy استفاده کردن

[saman_itc]

بله متد Move هم خوبه قربان تو پشتیان گیری به نظر تون کدوشون بهتر
دستوراتی از این قبیل هم هستند میتونید مثال کاملی ازشو بزارید؟

[VB.NET2005]

ممنون از شما دوستان گرامی :

فقط ببخشید این برنامه خیلی آماتوریه .

: بـا تـشـکـر :

[saman_itc]

جوابه منو نمیدین آقای VB.NET2005 (http://barnamenevis.org/forum/member.php?u=51125)

[VB.NET2005]

دوست عزیز Saman_Itc :

بله فقط من چون می خواستم فایله بکاپم از بین نره از متد Move استفاده نکردم چون دیدم کات میکنه .
واسه ریستور کردن این بهترین گزینست (به نظر من) :

Dim f As System.Io.File
f.Copy(Source, Destination)

[VisualStudio]

اصولا باید فایل Cut بشه تا Copy چون اصولا کاربر زمانی که 10 تا پشتیبان بگیره قاطی میکنه که کدوم آخرین بوده چون پک آپ روی یک اکسترنال دیوایس میگیرن

[VB.NET2005]

اقای Visual Studio حرفه شما کاملا درسته :

ولی اولا : من در اون نرم افزاری که ضمیمه کردم هر وقت پشتیبان بگیری تاریخ و ساعت اون موقع رو ذخیره میکنه ،
دوما : من میخواستم یه بایگانی از کل اطلاعات داشته باشم .

با تشکر از شما

[saman_itc]

آقای VB.NET2005 (http://barnamenevis.org/forum/member.php?u=51125) کاملا درست می فرمائید
موفق و سر بلند