تهیه نسخه پشتیبان از دیتابیس اکسس در دات نت 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

[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 کاملا درست می فرمائید
موفق و سر بلند