- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]备份压缩文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73723)
-- 发布时间：2015/8/25 14:00:00
-- [求助]备份压缩文件
红袍老师，
sql的备份，
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "use master;BACKUP DATABASE 测试 TO DISK =\'"& dlg.filename &"\' With FORMAT,CHECKSUM;"
cmd.ExecuteNonQuery()
如何能直接备份为压缩文件？
不会是 先备份 然后用ZipFile
这个命令去压缩 然后再删除原来的SQL文件
-- 发布时间：2015/8/25 14:04:00
--
本机？备份，是备份在sqlserver所在的电脑的。
备份后压缩 http://www.foxtable.com/help/topics/2075.htm
-- 发布时间：2015/8/25 14:15:00
--
红袍老师，
服务器上的 用代码想要建立计划任务自动备份数据库
另外 SQL的备份感觉不怎么耗时，几乎瞬间完成了，这里是不是不需要设定一个“触发小时”，让指定时间内完成；
-- 发布时间：2015/8/25 14:27:00
--
还有一个问题，我这里有两个SQL数据库的帐套
需要每个帐套的数据库都登陆去备份，然后才能备份;
可否使用
ZipFile
直接按照路径去备份帐套的数据库位置，这时候的SQL文件如果使用着，会不会报错呢？-- 发布时间：2015/8/25 14:36:00
--
同一个sql下两个数据库？你改变数据库名字，就能分别备份。
如果是不同sqlserver的，就必须登陆以后，才能备份
-- 发布时间：2015/8/25 14:43:00
--
可否不登陆直接使用
ZipFile
按照sqlserver数据库的路径去备份帐套的数据库位置，这时候的SQL文件如果使用着，会不会报错呢？例如 帐套1 SQL数据库建立在D\\cs下 帐套2 SQL数据库建立在E\\SJ下
使用
ZipFile 直接添加路径
D\\cs 备份一个压缩文件 不管D\\cs 下的数据库文件是否有人在使用-- 发布时间：2015/8/25 14:48:00
--
1、sql文件在用着，不影响备份；
2、直接用1楼的代码备份数据库啊；你也可以直接拷贝数据库文件.mdf和.ldf备份；
3、ZipFile语法看2楼
-- 发布时间：2015/8/25 15:32:00
--
红袍老师，
Dim tp As TimeSpan
Dim backupdt As Date
For Each dr As DataRow In DataTables("备份").DataRows
Dim d1 As Date =dr("开始时间")
tp = Date.Now-d1
Select Case dr("发生频率")
Case "每天"
If tp.TotalHours >= 24 Then \'如果距离上次备份已经超过24小时,每天备份
Dim zipRoot As New zipFile
Dim NewName As String
NewName = dr("账套名称")&" " & Date.Today.Year & Date.Today.Month & Date.Today.Day
Dim zFile As String = dr("备份路径") & NewName & ".zip"
If FileSys.DirectoryExists(dr("备份路径")) =False Then
FileSys.CreateDirectory(dr("备份路径"))
End If
If FileSys.FileExists(zfile) Then \'如果压缩文件已经存在
zipRoot.Open(zFile) \'则打开
Else
zipRoot.Create(zFile) \'否则创建
End If
MessageBox.Show(dr("文件路径"))
zipRoot.AddFolder(dr("文件路径")) 这里好像不对，但不知道为什么
zipRoot.Close()
End If
End Select
Next
为何显示：
此主题相关图片如下：qq图片20150825153208.png
[此贴子已经被作者于2015/8/25 15:36:37编辑过]
-- 发布时间：2015/8/25 15:35:00
--
你的路径明显有问题。弹出合成的路径看看。
-- 发布时间：2015/8/25 15:45:00
--
Dim zFile As String = dr("备份路径") & NewName & ".zip“
此主题相关图片如下：qq图片20150825154055.png
dr("备份路径")
此主题相关图片如下：qq图片20150825154137.png
dr("文件路径")
此主题相关图片如下：qq图片20150825154137.pngdr("文件路径")