VB.net關於sql數據庫的備份與恢復

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         '備份數據庫         'BACKUP DATABASE Test TO DISK='C:/Backup' WITH   Format         Dim cn As SqlConnection         Dim cm As SqlCommand         cn = getDB()         cm = New SqlCommand("BACKUP DATABASE JXbase TO DISK='C:/Backup ' WITH   Format", cn)         cn.Open()         cm.ExecuteNonQuery()         MsgBox("備份成功")         cn.Close()

    End Sub

 '恢復     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click         Dim cn As New SqlConnection         Dim cn1 As New SqlConnection         Dim mydr As SqlDataReader         Dim str As String

        Dim tmpConnectionString As String = "Data Source=JJK;Initial Catalog=master;Integrated Security=True"         cn.ConnectionString = tmpConnectionString         cn1.ConnectionString = tmpConnectionString         cn.Open()         cn1.Open()         Dim cm As SqlCommand = New SqlCommand("select spid from master..sysprocesses where dbid=db_id('JXbase')", cn)         mydr = cm.ExecuteReader()

        Dim cm1 As SqlCommand = New SqlCommand()         cm1.Connection = cn1

        While (mydr.Read()) '殺死進程

            str = "kill " & mydr("spid").ToString()             cm1.CommandText = str             cm1.CommandType = CommandType.Text             Application.DoEvents()             cm1.ExecuteNonQuery() '殺進程         End While         mydr.Close()         cm = New SqlCommand("RESTORE DATABASE JXbase FROM DISK='C:/Backup'", cn) '恢復備份         cm.ExecuteNonQuery()         MsgBox("恢復成功成功")         cn.Close()         cn1.Close()

    End Sub