Foxtable(狐表)用户栏目专家坐堂 → sql BACKUP DATABASE可以备份与RESTORE DATABASE 恢复本地sql数据库文件,那么是否可以代码备份与恢复远程服务器数据库文件到本地sql数据库呢?


  共有5270人关注过本帖平板打印复制链接

主题:sql BACKUP DATABASE可以备份与RESTORE DATABASE 恢复本地sql数据库文件,那么是否可以代码备份与恢复远程服务器数据库文件到本地sql数据库呢?

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
sql BACKUP DATABASE可以备份与RESTORE DATABASE 恢复本地sql数据库文件,那么是否可以代码备份与恢复远程服务器数据库文件到本地sql数据库呢?  发帖心情 Post By:2021/5/16 0:42:00 [只看该作者]

sql  BACKUP DATABASE可以备份与RESTORE DATABASE 恢复本地sql数据库文件,那么是否可以代码备份与恢复远程服务器数据库文件到本地sql数据库呢?

备份本地SQL数据库数据:
Dim mc As String = "党建"
Dim bf As String = "D:\bak\"& mc & format(Date.now,"yyyyMMddHHmmss") & ".bak"
Dim Result As DialogResult
Result = MessageBox.Show("是否本机上的数据库?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim cmd As New SQL Command
    cmd.Connection Name = "党建"
    cmd.CommandText = "use master;BACKUP DATABASE " & mc & "  TO DISK = '" & bf & "'  With FORMAT,CHECKSUM;"
    cmd.ExecuteNonQuery()
MessageBox.Show("备份完毕!")
End If

从本地备份文件恢复SQL数据库数据:
Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "备份文件|*.bak" '设置筛选器
Dim mc As String = "党建"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim cmd As New SQL Command
    cmd.Connection Name = "党建"
    cmd.Comma ndText = "use master;RESTORE DATABASE " & mc & "  FROM DISK= '" & dlg.FileName & "' "
    cmd.ExecuteNonQuery()
    MessageBox.Show("恢复完毕!")
End If


[此贴子已经被作者于2021/5/16 0:42:42编辑过]

 回到顶部