主题：数据库的备份和恢复

看了一下有关数据库的备份和恢复，觉得都没有说全，现将自己的做法与大家分享一下

备份：

If _usergroup = "开发者" Or _usergroup = "管理员" Then
    Dim dn As Date = format(Date.now,"g")  '定义时间变量,并显示g格式
    Dim sj As String = cdate(dn)           '将时间转换为字符串
    sj=sj.replace("/","")                  '去除字符串中的"/",不然文件名非法
    sj=sj.replace(":","")                  '去除字符串中的":",不然文件名非法
    Dim bf As String = "F:\backup\Haihe"& sj &".bak"    '将路径文件名与时间结合,生成带时间的文件备份
    Dim cmd As New SQLCommand                           '定义命令
    cmd.C                    '指定数据源
    cmd.CommandText =" BACKUP DATABASE HaiHeDataBase To DISK = '" & bf & "' With FORMAT,CHECKSUM; "  '备份
    cmd.ExecuteNonQuery()                                                                            '不返回值                                                            
    MessageBox.Show("     恭喜,备份成功!" & vbcrlf & bf, "提示")
Else
    MessageBox.Show("对不起,缺少操作权限","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If

恢复：

If _usergroup = "开发者" Or _usergroup = "管理员" Then
    Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "备份文件|*.bak" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok  Then  '如果用户单击了确定按钮
        MessageBox.show("你选择的是:" & dlg.FileName & vbcrlf & "选错文件将带来不可弥补的后果!","警告",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) '提示用户选择的文件
    End  If
    Dim cmd As new SQLCommand                   
    cmd.C
    cmd.CommandText ="use master; RESTORE DATABASE HaiHeDatabase FROM DISK= '" & dlg.FileName & "' With REPLACE;"
    cmd.ExecuteNonQuery
    msgbox("    恭喜,数据库恢复成功!")
Else
    MessageBox.Show("对不起,缺少操作权限","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If

希望能给纠结的带来帮助。