[求助]备份压缩文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]备份压缩文件

共有4662人关注过本帖树形打印复制链接主题：[求助]备份压缩文件

blsu33

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]备份压缩文件 发帖心情

Post By：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文件

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/25 14:04:00 [只看该作者]

本机？备份，是备份在sqlserver所在的电脑的。

备份后压缩 http://www.foxtable.com/help/topics/2075.htm

blsu33

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/8/25 14:15:00 [只看该作者]

红袍老师，

服务器上的用代码想要建立计划任务自动备份数据库

另外 SQL的备份感觉不怎么耗时，几乎瞬间完成了，这里是不是不需要设定一个“触发小时”，让指定时间内完成；

blsu33

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/8/25 14:27:00 [只看该作者]

还有一个问题，我这里有两个SQL数据库的帐套

需要每个帐套的数据库都登陆去备份，然后才能备份;

可否使用ZipFile
直接按照路径去备份帐套的数据库位置，这时候的SQL文件如果使用着，会不会报错呢？

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/25 14:36:00 [只看该作者]

同一个sql下两个数据库？你改变数据库名字，就能分别备份。

如果是不同sqlserver的，就必须登陆以后，才能备份

blsu33

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/8/25 14:43:00 [只看该作者]

可否不登陆直接使用ZipFile
按照sqlserver数据库的路径去备份帐套的数据库位置，这时候的SQL文件如果使用着，会不会报错呢？

例如帐套1 SQL数据库建立在D\cs下帐套2 SQL数据库建立在E\SJ下

使用ZipFile 直接添加路径
D\cs 备份一个压缩文件不管D\cs 下的数据库文件是否有人在使用

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/25 14:48:00 [只看该作者]

1、sql文件在用着，不影响备份；

2、直接用1楼的代码备份数据库啊；你也可以直接拷贝数据库文件.mdf和.ldf备份；

3、ZipFile语法看2楼

blsu33

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：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

为何显示：

此主题相关图片如下：qq图片20150825153208.png

[此贴子已经被作者于2015/8/25 15:36:37编辑过]

大红袍

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/25 15:35:00 [只看该作者]

你的路径明显有问题。弹出合成的路径看看。

blsu33

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/8/25 15:45:00 [只看该作者]

Dim zFile As String = dr("备份路径") & NewName & ".zip“

此主题相关图片如下：qq图片20150825154055.png

dr("备份路径")

此主题相关图片如下：qq图片20150825154137.png

dr("文件路径")

下一主题 >> << 上一主题

总数 31 1 2 3 4 下一页

主题：[求助]备份压缩文件