SQL Server 2012 数据库备份

既能备份到网络中的共享文件夹中，也能备份到本地

USE [AdventureWorks2012]
GO
/****** Object:  StoredProcedure [dbo].[pr_BatchBackUPDatabase]    Script Date: 2016/1/7 17:56:01 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO


------------执行此脚本需要先执行表值函数---------
--use [AdventureWorks2012]
--go
---- ============================================= 
---- 调用：SELECT Id FROM [Fn_StringSplitToTable]('1,12,36,65,58,56,DF',',') 
---- Create date: <Create Date,,> 
---- Description:    把用逗号分隔的字符串转换成表格数据 
---- ============================================= 
--CREATE FUNCTION [dbo].[Fn_StringSplitToTable] 
--( 
--    @StringX varchar(MAX), 
--    @Split nvarchar(10) 
--) 
--RETURNS 
--@IdsTable TABLE 
--( 
--    [Id] nvarchar(200) 
--) 
--AS 
--BEGIN 
--    DECLARE @Index int 
--    DECLARE @LenIndex int 
--    SET @LenIndex=LEN(@Split) 
--    SET @Index=CHARINDEX(@Split,@StringX,1) 
--    WHILE (@Index>=1) 
--    BEGIN 
--        IF(LEFT(@StringX,@Index-1) <> '') 
--            INSERT INTO @IdsTable SELECT LTRIM(RTRIM(LEFT(@StringX,@Index-1))) 
--        SET @StringX=RIGHT(@StringX,LEN(@StringX)-@Index-@LenIndex+1) 
--        SET @Index=CHARINDEX(@Split,@StringX,1) 
--    END 
--    IF(@StringX<>'') INSERT INTO @IdsTable SELECT LTRIM(RTRIM(@StringX)) 
    
--    RETURN 
--END

----------执行此脚本需要开启xp_cmdshell---------
--USE Master
--GO
--EXEC sp_configure 'show advanced options', 1;
--GO
--RECONFIGURE WITH OVERRIDE;
--GO
--EXEC sp_configure 'xp_cmdshell',1;
--GO
--RECONFIGURE WITH OVERRIDE;
--GO
--==================================================
--<Author> limy
--<Create Date> 2015-12
--数据库备份
--exec pr_BatchBackUPDatabase @BackupDirectoryPath='\192.168.0.130DBShare', @DataBase='4', @SelectedDataBase='AdventureWorks2012', @SubDirectoryMode=1, @ExtenName='bak',@BackUpType=1,@IsCompress=1
--exec pr_BatchBackUPDatabase @BackupDirectoryPath='D:db', @DataBase='4', @SelectedDataBase='AdventureWorks2012', @SubDirectoryMode=1, @ExtenName='bak', @BackUpType=1,@IsCompress=1
--exec pr_BatchBackUPDatabase @BackupDirectoryPath='D:db', @DataBase='4', @SelectedDataBase='AdventureWorks2012', @SubDirectoryMode=1, @ExtenName='trn', @BackUpType=2,@IsCompress=1
--exec pr_BatchBackUPDatabase @BackupDirectoryPath='D:db', @DataBase='4', @SelectedDataBase='AdventureWorks2012', @SubDirectoryMode=1, @ExtenName='dif', @BackUpType=3,@IsCompress=1
--====================================================
ALTER PROCEDURE [dbo].[pr_BatchBackUPDatabase]
@BackupDirectoryPath  NVARCHAR(50)='C:',
@DataBase TINYINT = 1,--1 所有数据库，2 系统数据库，3 所有用户数据库，4 指定数据库
@SelectedDataBase NVARCHAR(1000)='', --指定的数据库
@SubDirectoryMode BIT = 1,--是否为每个数据库创建子目录
@ExtenName NVARCHAR(50)='bak',--备份文件扩展名(不要.)
--@CheckDB bit = 0, --验证备份完整性
@BackUpType TINYINT = 1, --1 完整备份 2 日志备份， 3 差异备份
@IsCompress  BIT = 0 --是否备份压缩
AS
BEGIN

--要备份的数据列表
DECLARE @dbname TABLE(
                DbName VARCHAR(100) ) 
--已经存在的数据库目录
DECLARE @DirExistName TABLE(
                DbName VARCHAR(100) ) 
declare @SQL nvarchar(500)
declare @ErrorInfo nvarchar(1000) 

--数据库的值是否合理
if(@DataBase not in(1,2,3,4))
begin
        SET @ErrorInfo = N'1 所有数据库，2 系统数据库，3 所有用户数据库，4 指定数据库 ，请选择要备份的数据库！'
        RAISERROR(@ErrorInfo,16,1)        
        RETURN;
end

--是否指定了数据库
if @DataBase=4 and isnull(@SelectedDataBase,'')=''
begin
        SET @ErrorInfo = N'要备份的数据库为指定数据库时，请输入数据库，多个数据库中间用[,]隔开！'
        RAISERROR(@ErrorInfo,16,2)        
        RETURN;
end

--把要备份的数据库，放到一个表里
--1 所有数据库
if @DataBase=1
begin
        insert into @dbname
        select name from master..sysdatabases where name <>'tempdb'
end
--2 系统数据库
if @DataBase=2
begin
        insert into @dbname
        select name from master..sysdatabases where  sid = 0x01 and name <>'tempdb'
end
--3 所有用户数据库
if @DataBase=3
begin
        insert into @dbname
        select name from master..sysdatabases where  sid <> 0x01 and name <>'tempdb'
end
--4 指定数据库
if @DataBase=4
begin
        insert into @dbname
        SELECT Id FROM [Fn_StringSplitToTable](@SelectedDataBase,',') 
end



--循环表,创建子目录
declare @name nvarchar(100)
declare cur   cursor for
        select DbName from @dbname
open cur
fetch next from cur into @name
while(@@fetch_status=0)
begin
        --完备
        declare @strDate varchar(30),@backupFile varchar(200),@currentDate datetime,@backName nvarchar(100)--@Day varchar(20),
        set @currentDate=getdate()
        set @strDate=format(getdate(),'yyyyMMdd_HHmmss')
        set @backName=@name+N'-完整 数据库 备份'

        set @backupFile = @BackupDirectoryPath+''+@name +'_'+@strDate+'.bak'
 
        --是否为每个数据库创建子目录
        if @SubDirectoryMode =1
        begin
                 
                set @SQL = 'xp_cmdshell ''dir '+@BackupDirectoryPath+' /b  /a:d'''
                insert into @DirExistName
                exec (@SQL)
                ----调试用-------------------------------------------------------------------------------------------------------------------
                --RAISERROR(@SQL,16,2)    ;RETURN;-----------------------------------------------------------------------------------
                if not exists(select 1 from @DirExistName where DBName=@name)
                begin
                        set @SQL='xp_cmdshell ''mkdir '+@BackupDirectoryPath +''+@name+''''        
                        exec ( @SQL    )
                end

                set @backupFile = @BackupDirectoryPath+''+@name+''+@name +'_'+@strDate+'.'+@ExtenName
        end

        IF(@BackUpType=1)--完整备份
        BEGIN
                --开始备份
                if @IsCompress=1
                begin
                        backup database @name to disk=@backupFile WITH  NOINIT,  NAME = @backName, COMPRESSION
                end
                else
                begin
                        backup database @name to disk=@backupFile WITH  NOINIT,  NAME = @backName,  NO_COMPRESSION
                end
        END
        IF(@BackUpType=2)--日志备份
        BEGIN
                --开始备份
                if @IsCompress=1
                begin
                        backup log @name to disk=@backupFile WITH  NOINIT,  NAME = @backName, COMPRESSION
                end
                else
                begin
                        backup log @name to disk=@backupFile WITH  NOINIT,  NAME = @backName,  NO_COMPRESSION
                end
        END

        IF(@BackUpType=3)--差异备份
        BEGIN
                --开始备份
                if @IsCompress=1
                begin
                        backup database @name to disk=@backupFile WITH differential ,NOINIT,  NAME = @backName, COMPRESSION
                end
                else
                begin
                        backup database @name to disk=@backupFile WITH  differential,NOINIT,  NAME = @backName,  NO_COMPRESSION
                end
        END

    

        fetch next from cur into @name
end
close cur
deallocate cur

print N'备份完成。';
return;

END