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


  共有4759人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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文件


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  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 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/8/25 14:15:00 [只看该作者]

红袍老师,
 服务器上的 用代码想要建立计划任务自动备份数据库 
 另外 SQL的备份感觉不怎么耗时,几乎瞬间完成了,这里是不是不需要设定一个“触发小时”,让指定时间内完成;


 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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




 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  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 积分: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
Next

为何显示:

图片点击可在新窗口打开查看此主题相关图片如下: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 积分: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("文件路径")


 回到顶部
总数 31 1 2 3 4 下一页