بک آپ گیری و ریستور Backup & Restore در vb.net

[donya__samani]

سلام یه Application در محیط ویژوال استودیو به زبان vb ایجاد کردم که امکانات حذف و ثبت و ویرایش و جستجو و .. رو در بانک اطلاعاتی sql داره حالا میخوام یک دکمه ی backup و یک دکمه ی Restore هم ایجاد کنم در Application کدی توش بنویسم که عملیات بک آپ گیری (تهیه نسخه پشتیبان) و ریستور (بازیابی اطلاعات) رو انجام بده . چه جوری کدش رو بنویسم ؟

محیط عملیاتی :
ویژوال استودیو 2008 به زبان Vb
جداول بانک اطلاعاتی با Sql2008

این کدی که اینجا گذاشتم فقط برای دکمه ی بک آپ (به زبان vb.net)هستش از دیتا بیسی به نام library بک آپ میگیره و بک آپ هر جایی که کاربر موقع save کردن انتخاب کنه همون جا ذخیره میشه - اگه کسی در مورد کدنویسی برا دکمه ی ریستور اطلاعاتی داره بگه ممنون میشم !

Public Class Form1
    Public Const Data As String = "Teachers"

    Dim conString As String = "attachdbfilename=|datadirectory|\" & Data & _
                              ".mdf;initial catalog=" & Data & _
                              ";Integrated Security=true;" & _
                              "data source=.\sqlexpress;" & _
                              "User Instance=True"

    Dim con = New SqlClient.SqlConnection(conString)
    Dim com = New SqlClient.SqlCommand

    Private Sub backup(ByVal Database, ByVal path)
        If con.State = ConnectionState.Closed Then con.Open()

        Dim Sql2 As String = "BACKUP DATABASE " & Database & " TO DISK = N'" & path & _
                             "' WITH NOFORMAT, INIT, NAME = N'" & Database & _
                             "-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10 "

        com = New SqlClient.SqlCommand
        Try
            With com
                .Connection = con
                .CommandText = Sql2
                .ExecuteNonQuery()
            End With
            MsgBox("ok")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bbackup.Click
        Dim SaveFile As New SaveFileDialog
        SaveFile.Filter = "Backup File (*.Bak)|*.bak"
        SaveFile.ShowDialog()
        backup(Data, SaveFile.FileName.ToString)
    End Sub

 

[iaidin]

سلام یه Application در محیط ویژوال استودیو به زبان vb ایجاد کردم که امکانات حذف و ثبت و ویرایش و جستجو و .. رو در بانک اطلاعاتی sql داره حالا میخوام یک دکمه ی backup و یک دکمه ی Restore هم ایجاد کنم در Application کدی توش بنویسم که عملیات بک آپ گیری (تهیه نسخه پشتیبان) و ریستور (بازیابی اطلاعات) رو انجام بده . چه جوری کدش رو بنویسم ؟


محیط عملیاتی :
ویژوال استودیو 2008 به زبان Vb
جداول بانک اطلاعاتی با Sql2008

این کدی که اینجا گذاشتم فقط برای دکمه ی بک آپ (به زبان vb.net)هستش از دیتا بیسی به نام library بک آپ میگیره و بک آپ هر جایی که کاربر موقع save کردن انتخاب کنه همون جا ذخیره میشه - اگه کسی در مورد کدنویسی برا دکمه ی ریستور اطلاعاتی داره بگه ممنون میشم !

Public Class Form1
    Public Const Data As String = "Teachers"

    Dim conString As String = "attachdbfilename=|datadirectory|\" & Data & _
                              ".mdf;initial catalog=" & Data & _
                              ";Integrated Security=true;" & _
                              "data source=.\sqlexpress;" & _
                              "User Instance=True"

    Dim con = New SqlClient.SqlConnection(conString)
    Dim com = New SqlClient.SqlCommand

    Private Sub backup(ByVal Database, ByVal path)
        If con.State = ConnectionState.Closed Then con.Open()

        Dim Sql2 As String = "BACKUP DATABASE " & Database & " TO DISK = N'" & path & _
                             "' WITH NOFORMAT, INIT, NAME = N'" & Database & _
                             "-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10 "

        com = New SqlClient.SqlCommand
        Try
            With com
                .Connection = con
                .CommandText = Sql2
                .ExecuteNonQuery()
            End With
            MsgBox("ok")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bbackup.Click
        Dim SaveFile As New SaveFileDialog
        SaveFile.Filter = "Backup File (*.Bak)|*.bak"
        SaveFile.ShowDialog()
        backup(Data, SaveFile.FileName.ToString)
    End Sub

این نمونه کد را ببینید.
لینک