通过SQL 备份数据并压缩备份文件

alter proc BackupDatabase(
@dbName varchar(100),     --备份数据库名称
@backupath varchar(200),   --备份文件存放的路径
@backupTargetpath varchar(200),--压缩后的文件路径
@saveDates int         )--保存天数
as
declare @temp varchar(300)
declare @temp1 varchar(200)
if right(@backupath,1)<>'\'
  set @backupath=@backupath+'\'
set @temp='Backup Database '+@dbName+ ' To disk='''+@backupath+@dbName+'.bak'''
exec(@temp)
set @temp1=@dbName+'.bak'
exec  pro_ZIPShell @backupath,@temp1,@backupTargetpath,10

--通过sqlserver调用winrar压缩文件 备份数据
alter proc pro_ZIPShell (
 @bakupPath varchar(200) ,--要备份文件路径    -----------------------
 @backupFileName varchar(30), --要备份文件的名称 --------------
 @backupTargetpath varchar(300) ,--要备份到的文件路径--------------------
 @Savedates int   --要保存文件的天数  ----------
 )            
as
declare @bakScript varchar(300) --备份脚本
declare @delScript varchar(200) --设置删除脚本

declare @dt varchar(20) --
declare @Filename varchar(200)  
declare @temp varchar(20)

------------------测试数据区-----------------------------
--   set @bakupPath='d:\aaaa'
--   set @backupTargetpath='d:\aaaa'
--   set @backupFileName='test.xls'
--  set @Savedates=10

-----------------------------------------------
set @Filename=  substring(@backupFileName,1,len(@backupFileName)-charindex('.',@backupFileName)+1)
set @dt=convert(varchar(20),getdate(),112)
if right(@bakupPath,1)<>'\'
 set @bakupPath=@bakupPath+'\'
if right(@backupTargetpath,1)<>'\'
 set @backupTargetpath=@backupTargetpath+'\'
--df 表示压缩完毕后删除压缩文件
--inul 表示去掉压缩过程中的所有提示框
set @bakScript='WinRAR.exe  a -df -inul '+@backupTargetpath+@dt+@Filename+'.rar ' + @bakupPath+@backupFileName
print @bakScript
set @Savedates=-@Savedates
set @temp=convert(varchar(20),DATEADD(day,@Savedates,convert(datetime,@dt)),112)
print @temp
set @delScript='del '+@backupTargetpath+@temp+@Filename+'.rar '
exec master.dbo.xp_cmdshell @bakScript   
exec master.dbo.xp_cmdshell @delScript