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 xe6新增特性及功能

vclzip控件的简单使用

Delphi中break,exit,abort跳出循环的比较

Delphi get_hd_serial() 获得磁盘驱动器序列号

Delphi disable_uac_vista

Delphi inc () 计数用法

Delphi 简化版的inputquery 中文版输入对话框

Delphi 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法

Delphi消息发送字符串

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

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