MS SQLServer 批量附加数据库

 ************************************************************
 * 标题：MS SQLServer 批量附加数据库
 * 说明：请根据下面的注释使用此脚本
 * 时间: 2015/7/13 11:16:41
 ************************************************************/

USE MASTER
GO

IF OBJECT_ID('[sp_AttchDataBase]') IS NOT NULL
    DROP PROCEDURE [sp_AttchDataBase]
GO

/*附加数据库(V2.0) Andy 2011-7-8 */
CREATE PROCEDURE sp_AttchDataBase(
    @Path       NVARCHAR(1024),@DataFiles  NVARCHAR(MAX) = NULL,@SplitStr   NVARCHAR(50) = ','
)
AS
	SET NOCOUNT ON
	
	/*
	V2.0 版本，在V1.0基础上，处理文件路径不规范原則，e.g. @DataFiles='E:"my data DB""Hello RT"'
	
	@Path		文件路径
	@DataFiles	文件名列表
	@SplitStr	文件名列表中的文件分隔符
	
	1.必须把要附加的数据库文件(*.mdf和*.ldf)放到@Path下，
	2.当@DataFiles Is Null 会附加@Path文件夹下的所有数据库文件.
	
	e.g:
	Exec sp_AttchDataBase 'D:SQL2005DE2'
	*/
	
	
	--检查文件路径是否正确
	DECLARE @Dir  NVARCHAR(1024),@i    INT,@x    XML
	
	IF RIGHT(@Path,1) <> ''
	    SET @Path = @Path + ''
	
	IF CHARINDEX('',@Path) > 0
	BEGIN
	    RAISERROR 50001 N'文件路径中不能包含有"",@Path设置错误.'
	    RETURN(1)
	END
	
	SET @Dir = 'Dir ' + @Path
	EXEC @i = xp_cmdshell @Dir,no_output
	
	IF @i <> 0
	BEGIN
	    RAISERROR 50001 N'无效的文件路径,@Path设置错误.'
	    RETURN(1)
	END
	
	SET @Path = REPLACE(@Path,'"','') /*处理文件路径不规范原則*/
	
	DECLARE @Files               TABLE(NAME NVARCHAR(512))
	DECLARE @filetmpfin          TABLE(
	            NAME NVARCHAR(255) NOT NULL,depth INT NULL,IsFile BIT NULL
	        )
	
	DECLARE @SmoPrimayChildren   TABLE(
	            STATUS INT,fileid INT,NAME SYSNAME,FILENAME NVARCHAR(512)
	        )
	
	DECLARE @smoPrimaryFileProp  TABLE(PROPERTY SQL_VARIANT NULL,VALUE SQL_VARIANT NULL)
	
	SET @DataFiles = REPLACE(
	        REPLACE(REPLACE(@DataFiles,CHAR(13) + CHAR(10),''),CHAR(13),CHAR(10),''
	    )
	
	SET @x = N'<Root><File>' + REPLACE(@DataFiles,@SplitStr,N'</File><File>') + 
	    N'</File></Root>'
	
	
	INSERT INTO @Files
	SELECT t.v.value('.[1]','nvarchar(512)') AS NAME
	FROM   @x.nodes('Root/File') t(v)
	WHERE  t.v.value('.[1]','nvarchar(512)') > ''
	
	
	INSERT INTO @filetmpfin
	EXEC MASTER.dbo.xp_dirtree @Path,1,1
	
	DECLARE @File      NVARCHAR(255),@sql       NVARCHAR(4000),@DataBase  SYSNAME
	
	
	
	DECLARE cur_File   CURSOR  
	FOR
	    SELECT NAME
	    FROM   @filetmpfin AS a
	    WHERE  IsFile = 1
	           AND NAME LIKE '%.mdf'
	           AND (
	                   EXISTS(
	                       SELECT 1
	                       FROM   @Files
	                       WHERE  NAME = a.Name
	                   )
	                   OR @DataFiles IS NULL
	               )
	           AND NOT EXISTS(
	                   SELECT 1
	                   FROM   MASTER.sys.master_files
	                   WHERE  physical_name = @Path + a.Name
	               )
	
	OPEN cur_File
	
	BEGIN TRY
		FETCH NEXT FROM cur_File INTO @File
		WHILE @@Fetch_Status = 0
		BEGIN
		    SET @sql = 'dbcc checkprimaryfile (N''' + @Path + @File + ''
		        ',2) With No_Infomsgs'
		    
		    INSERT INTO @smoPrimaryFileProp
		    EXEC (@sql)
		    
		    SET @sql = 'dbcc checkprimaryfile (N''' + @Path + @File + ''
		        ',3) With No_Infomsgs'
		    
		    INSERT INTO @SmoPrimayChildren
		    EXEC (@sql)
		    
		    SELECT @DataBase = QUOTENAME(CONVERT(NVARCHAR(255),VALUE)),@sql = NULL
		    FROM   @smoPrimaryFileProp
		    WHERE  CONVERT(NVARCHAR(255),PROPERTY) = 'Database name'
		    
		    SELECT @sql = ISNULL(
		               @sql + ',' + CHAR(13) + CHAR(10),'Create DataBase ' + @DataBase + ' On' + CHAR(13) + CHAR(10)
		           ) +
		           '(FileName=N''' + @Path + RIGHT(
		               RTRIM(FILENAME),CHARINDEX('',REVERSE(RTRIM(FILENAME))) -1
		           ) + ''')'
		    FROM   @SmoPrimayChildren
		    
		    EXEC (@sql + ' For Attach')
		    
		    PRINT N'成功附加数据库: ' + @DataBase
		    
		    DELETE 
		    FROM   @SmoPrimayChildren
		    
		    DELETE 
		    FROM   @smoPrimaryFileProp
		    
		    FETCH NEXT FROM cur_File INTO @File
		END
	END TRY
	BEGIN CATCH
		DECLARE @Error NVARCHAR(2047)
		SET @Error = ERROR_MESSAGE()
		RAISERROR 50001 @Error
	END CATCH
	
	
	CLOSE cur_File
	DEALLOCATE cur_File
GO

/************************************************************
 * 调用方式
 ************************************************************/
--use master
--Go
 
--Exec sp_AttchDataBase 
--        @Path = 'E:100.其他测试',-- nvarchar(1024)
--        @DataFiles = NULL,-- nvarchar(max)
--        @SplitStr = NULL -- nvarchar(50)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!