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

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

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

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：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文件

blsu33

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

加好友

发短信

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

Post By：2015/8/25 14:15:00 [显示全部帖子]

红袍老师，

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

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

blsu33

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

加好友

发短信

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

Post By：2015/8/25 14:27:00 [显示全部帖子]

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

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

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

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：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 下的数据库文件是否有人在使用

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：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编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：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("文件路径")

blsu33

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

加好友

发短信

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

Post By：2015/8/25 15:45:00 [显示全部帖子]

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

老师压缩文件生成了，但是没有成功将文件增加进去

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

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

blsu33

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

加好友

发短信

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

Post By：2015/8/25 15:50:00 [显示全部帖子]

麻烦您了真是不好意思图片点击可在新窗口打开查看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

blsu33

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

加好友

发短信

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

Post By：2015/8/25 16:03:00 [显示全部帖子]

哦写错了

红袍老师备份到SQL数据库对应的问价夹提示 SQL文件正在使用这个怎么能不让他提示直接备份呢

blsu33

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

加好友

发短信

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

Post By：2015/8/25 16:08:00 [显示全部帖子]

哦其他的文件夹好用就是这个SQL文件夹的数据库备份不了因为我在用着呢是不是用这个方法实现不了对正在使用SQL数据库不能备份啊

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

总数 17 1 2 下一页

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