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