delphi SQL SERVER备份脚本

本文整理自网络，侵删。

 
-- 完全备份
-- 注意: 一切都从完全备份开始
DECLARE 
 @Path VARCHAR(1000),
  @FileName VARCHAR(1000),
 @WeekDay VARCHAR(20)
 
SET @WeekDay = CASE DATEPART(WEEKDAY, GETDATE()) 
WHEN 1 THEN '星期天' 
WHEN 2 THEN '星期一' 
WHEN 3 THEN '星期二' 
WHEN 4 THEN '星期三' 
WHEN 5 THEN '星期四' 
WHEN 6 THEN '星期五' 
WHEN 7 THEN '星期六' END
SET @Path = 'D:\BackData\'
SET @FileName = @Path + @WeekDay + '完全备份.BAK' 
 
BACKUP DATABASE [TestDB]                         
TO DISK = @FileName WITH INIT
,NOUNLOAD 
,NAME = N'TestDB完全备份'
,NOSKIP 
,STATS = 10
,NOFORMAT
-- 差异备份
-- 注意: 在执行差异备份之前, 必须先执行一次成功的数据库完全备份
DECLARE 
 @Path VARCHAR(1000),
 @WeekDay VARCHAR(20),
 @FileName VARCHAR(1000),
 @Hour VARCHAR(4)
 
SET @WeekDay = CASE DATEPART(WEEKDAY, GETDATE()) 
WHEN 1 THEN '星期天' 
WHEN 2 THEN '星期一' 
WHEN 3 THEN '星期二' 
WHEN 4 THEN '星期三' 
WHEN 5 THEN '星期四' 
WHEN 6 THEN '星期五' 
WHEN 7 THEN '星期六' END
 
SET @Path = 'D:\BackData\'
SET @Hour = CONVERT(VARCHAR(2), DATEPART(HOUR, GETDATE())) + '点'
SET @FileName = @Path + @WeekDay + @Hour + '差异备份.BAK'
 
BACKUP DATABASE [TestDB]                         
TO DISK = @FileName WITH INIT 
,NOUNLOAD 
,DIFFERENTIAL 
,NAME = N'TestDB差异备份'
,NOSKIP 
,STATS = 10
,NOFORMAT
 
-- 日志备份
-- 注意: 在进行日志备份之前必须先进行一次成功的数据库完全备份
DECLARE 
 @Path VARCHAR(1000),
 @WeekDay VARCHAR(20),
 @FileName VARCHAR(1000),
 @Hour VARCHAR(4)
 
SET @WeekDay = CASE DATEPART(WEEKDAY, GETDATE()) 
WHEN 1 THEN '星期天' 
WHEN 2 THEN '星期一' 
WHEN 3 THEN '星期二' 
WHEN 4 THEN '星期三' 
WHEN 5 THEN '星期四' 
WHEN 6 THEN '星期五' 
WHEN 7 THEN '星期六' END
 
SET @Path = 'D:\BackData\'
SET @Hour = CONVERT(VARCHAR(2), DATEPART(HOUR, GETDATE())) + '点'
SET @FileName = @Path + @WeekDay + @Hour + '日志备份.BAK'
 
BACKUP LOG [TestDB]                         
TO DISK = @FileName WITH INIT 
,NOUNLOAD 
,NAME = N'TestDB日志备份'
,NOSKIP 
,STATS = 10
,NOFORMAT
 

相关阅读 >>

Delphi 生成二维码图形

Delphi idhttp最简洁的修改和取得cookie例子

Delphi中查找指定文件的例程

Delphi 按字符串长度对tstringlist的元素进行排序

Delphi 结构化文件存取

Delphi 内存中加载dll

Delphi 中让嵌入窗体的 webbrowser 控件无边框

Delphi 简单判断程序30秒没有键盘和鼠标动作

Delphi tstopwatch 计时

Delphi 文件查找记录类型 - tsearchrec

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi SQL SERVER备份脚本