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 wmi 获取网络信息

Delphi判断文本文件的编码格式

Delphi fmx输出彩色文本

Delphi2010读取mysql数据库text类型乱码的解决方案

Delphi [数据库连接字符串] access 连接字符串

Delphi firedac数据库引擎连接mysql

Delphi thread.queue与synchronize的区别

Delphi执行js

Delphi 百万次重复调用字符分割函数，不耗内存用法

Delphi android实例-读取设备联系人(xe8+小米2)

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

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