Foxtable(狐表)用户栏目专家坐堂 → 数据库的备份和恢复


  共有1908人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
xujie80
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:3412 威望:0 精华:0 注册:2015/5/12 15:33:00
数据库的备份和恢复  发帖心情 Post By:2017/1/16 11:32:00 [只看该作者]

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

备份:

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/16 11:34:00 [只看该作者]

 谢谢分享。ConnectionName,你要用斜体,才能显示完整

 回到顶部
帅哥哟,离线,有人找我吗?
xujie80
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:3412 威望:0 精华:0 注册:2015/5/12 15:33:00
  发帖心情 Post By:2017/1/16 12:19:00 [只看该作者]

我也纳闷呢图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
ajie5211
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:820 积分:5641 威望:0 精华:1 注册:2015/11/28 14:00:00
  发帖心情 Post By:2017/1/16 13:14:00 [只看该作者]

非常感谢,一直不知道怎么整,现在有点明白了。

 回到顶部
帅哥哟,离线,有人找我吗?
方丈
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:811 积分:10934 威望:0 精华:1 注册:2008/9/2 18:58:00
  发帖心情 Post By:2017/1/16 18:17:00 [只看该作者]

记号

 回到顶部