- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 备份本机SQL数据库 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162413)
-- 发布时间：2021/4/14 9:24:00
-- 备份本机SQL数据库
老师，我单独写了一个功能，备份本机SQL数据库
但这个软件并未连接任何数据库，不能指定数据库名，现在用下面这句放报错
Dim mc As String = "HHiDT"
Dim bf As String = "D:\\bak\\"& mc & format(Date.now,"yyyyMMddHHmmss") & ".bak"
Dim Result As DialogResult
Result = MessageBox.Show("是否本机上的数据库
此主题相关图片如下：1234.png
?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim cmd As New SQL Command
\'cmd.Connection Name = "database"
cmd.CommandText = "use master;BACKUP DATABASE " & mc & " TO DISK = \'" & bf & "\' With FORMAT,CHECKSUM;"
cmd.ExecuteNonQuery()
End If
Dim bf As String = "D:\\bak\\"& mc & format(Date.now,"yyyyMMddHHmmss") & ".bak"
Dim Result As DialogResult
Result = MessageBox.Show("是否本机上的数据库
此主题相关图片如下：1234.png?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim cmd As New SQL Command
\'cmd.Connection Name = "database"
cmd.CommandText = "use master;BACKUP DATABASE " & mc & " TO DISK = \'" & bf & "\' With FORMAT,CHECKSUM;"
cmd.ExecuteNonQuery()
End If
-- 发布时间：2021/4/14 9:28:00
--
没有指定数据源
-- 发布时间：2021/4/14 9:38:00
--
是单独的备份数据库功能，没有外部数据源。
-- 发布时间：2021/4/14 9:41:00
--
数据库的名称都是自己录入的
-- 发布时间：2021/4/14 10:07:00
--
本机SQL数据库肯定要有数据源，不写数据源操作的都是内部数据库。
另外sql数据库建议做调度自动备份：https://www.bilibili.com/video/BV1ua4y1j7Bw?p=166