每天自动备份Oracle数据库,并压缩存档
最近系统测试运行,为了保留历史数据,所以写了一个自动备份数据库的脚本。
首先调用Exp备份,然后调用RAR压缩,并删除原始备份文件。所有备份的压缩文件都是保留的
关于自动执行的问题,我是调用了计划任务,目前一个半小时执行一次 运行了两天 基本正常
Option Explicit
On Error Resume Next
Dim fname, cmd
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
fname = FormatDateTime(Now(),2)
fname = fname+"-"+FormatDateTime(Now(),4)
fname = Replace(fname,":","-")
cmd = "exp log=../backup/DBBak_" & fname & ".log file=../backup/DBBak_" & fname & ".dmp parfile=exp.txt"
WshShell.run cmd
WScript.Sleep 300000
cmd = """C:\Program Files\WinRAR\rar"" m -ag ..\dbrar\DBBak.RAR ..\backup\DBBak_*.*"
WshShell.run cmd
Set WshShell = Nothing
'WScript.Echo cmd
On Error Resume Next
Dim fname, cmd
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
fname = FormatDateTime(Now(),2)
fname = fname+"-"+FormatDateTime(Now(),4)
fname = Replace(fname,":","-")
cmd = "exp log=../backup/DBBak_" & fname & ".log file=../backup/DBBak_" & fname & ".dmp parfile=exp.txt"
WshShell.run cmd
WScript.Sleep 300000
cmd = """C:\Program Files\WinRAR\rar"" m -ag ..\dbrar\DBBak.RAR ..\backup\DBBak_*.*"
WshShell.run cmd
Set WshShell = Nothing
'WScript.Echo cmd
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】博客园2025新款「AI繁忙」系列T恤上架,前往周边小店选购
【推荐】凌霞软件回馈社区,携手博客园推出1Panel与Halo联合会员
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 日常问题排查-空闲一段时间再请求就超时
· Java虚拟机代码是如何一步一步变复杂且难以理解的?
· 领域驱动的事实与谬误 一 DDD 与 MVC
· SQL Server 2025 中的改进
· 当数据爆炸遇上SQL Server:优化策略全链路解析
· Excel百万数据高性能导出方案!
· 揭秘 AI 工具的系统提示词「GitHub 热点速览」
· DeepWiki:AI驱动、免费且实用的 GitHub 源码阅读与分析神器!
· 日常问题排查-空闲一段时间再请求就超时
· 上周热点回顾(4.28-5.4)