索引碎片整理

USE [DBA_Maintenance]
IF EXISTS(SELECT 1 FROM sysobjects WHERE  xtype='P'  AND name = 'USP_Auto_IndexDefrag')
BEGIN
    DROP PROCEDURE USP_Auto_IndexDefrag
END
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[USP_Auto_IndexDefrag]
@Db_name nvarchar(256)
    WITH ENCRYPTION
AS
    BEGIN
    SET NOCOUNT ON

    declare @dbname nvarchar(256)
        ,@dbname_cur nvarchar(256)
        ,@SchemaName nvarchar(256)
        ,@TableName Nvarchar(256)
        ,@IndexName Nvarchar(512)
        ,@PctFrag decimal
        ,@Defrag nvarchar(max)
    DECLARE @SQL_TMP_SUB NVARCHAR(MAX)
    DECLARE @SQL_TMP NVARCHAR(MAX)

    set @dbname=@Db_name
    set @Db_name=N'['+@Db_name+']'

        if exists(select 1 from sys.objects where object_id =object_id(N'#tmp')) Drop table #tmp;
        if exists(select 1 from sys.objects where object_id =object_id(N'#tmp_sub')) Drop table #tmp_sub;
    
    create table #tmp_sub(database_id int,dbname nvarchar(32),tablename nvarchar(128),index_type_desc nvarchar(128))
    create clustered index ix_sub_db_id_tb_name_indexname on #tmp_sub(database_id,tablename,index_type_desc)
    create table #tmp(database_id int,dbname nvarchar(256),tablename nvarchar(256),indexname nvarchar(256),type_desc nvarchar(128),schemaname nvarchar(256),avgfragment decimal)
    create clustered index ix_db_id_tb_name_indexname on #tmp(database_id,tablename,type_desc)    

    SET @SQL_TMP_SUB=N'USE' +@db_name+CHAR(13)+CHAR(10)+
    'insert into #tmp_sub(database_id,dbname,tablename,index_type_desc)
        select distinct c.database_id,c.name as dbname,b.name,''CLUSTERED''
         from 
            sys.dm_db_index_physical_stats(DB_ID('''+@dbname+'''),NULL,NULL,NULL,''SAMPLED'') as a
            join sys.tables as b on a.object_id=b.object_id 
            join sys.databases as c on a.database_id=c.database_id
            join sys.all_columns d on d.object_id =a.object_id 
            join sys.sysobjects e on d.object_id=e.id and e.xtype=''U''
            join sys.types f on d.user_type_id=f.user_type_id 
        where  b.type_desc=''USER_TABLE'' and b.is_ms_shipped=0 and (d.max_length =-1
            OR (f.name in (''image'',''text'',''ntext'',''xml'',''varbinary'',''binary'')))'+CHAR(13)+CHAR(10)+''
    EXEC SP_EXECUTESQL @SQL_TMP_SUB, N'@Db_name nvarchar(256),@dbname nvarchar(256)',@Db_name,@dbname

    SET @SQL_TMP=N' USE' +@db_name+CHAR(13)+CHAR(10)+
    'insert into #tmp(database_id,dbname,tablename,indexname,type_desc,schemaname,avgfragment)
        select  distinct d.database_id,d.name as dbname,c.name,b.name,b.type_desc,e.name,a.avg_fragmentation_in_percent 
        from sys.dm_db_index_physical_stats(DB_ID('''+@dbname+'''),NULL,NULL,NULL,''SAMPLED'') as a
            join sys.indexes as b on a.object_id=b.object_id and a.index_id=b.index_id 
            join sys.tables as c on a.object_id=c.object_id 
            join sys.databases as d on a.database_id=d.database_id
            join sys.schemas as e on c.schema_id=e.schema_id
            join sys.sysobjects f on c.object_id=f.id
            join sys.all_columns g on f.id=g.object_id
            join sys.types h on g.user_type_id=h.user_type_id
            where a.avg_fragmentation_in_percent >20
             and c.type=''U'' and f.xtype=''U'' 
             and c.is_ms_shipped=0 '+CHAR(13)+CHAR(10)+''
    EXEC SP_EXECUTESQL @SQL_TMP, N'@Db_name nvarchar(256),@dbname nvarchar(256)',@Db_name,@dbname
        ----------脱机重建索引
         declare @i_cur int=1
         declare @count int=0
            select @count=count(*)  from #tmp 
                where  exists (select 1 from #tmp_sub b where database_id=b.database_id and tablename=b.tablename and type_desc=b.index_type_desc)
        if @count>=1
        begin
            while @i_cur<@count
            begin
                select  @dbname_cur=dbname,@TableName=tablename,@IndexName=indexname,@SchemaName=schemaname,@PctFrag=avgfragment
                 from 
                    ( select row_number() over(order by indexname)rn,dbname,tablename,indexname,
                             schemaname,avgfragment 
                           from #tmp 
                           where  exists (select 1 from #tmp_sub b where database_id=b.database_id and tablename=b.tablename and type_desc=b.index_type_desc)
                    )ta where rn=@i_cur

                    if @PctFrag between 20.0 and 40.0
                         begin
                          set @Defrag=N' ALTER INDEX ['+@IndexName+'] ON ['+@dbname_cur+'].['+@SchemaName+'].['+ @TableName +'] REORGANIZE'--重新组织索引页不删除索引
                          EXEC SP_EXECUTESQL @Defrag
                         end
                         else if @PctFrag>40.0
                         begin
                          SET @Defrag=N' ALTER INDEX ['+@IndexName+'] ON ['+@dbname_cur+'].['+@SchemaName+'].['+ @TableName +'] REBUILD WITH (ONLINE = OFF )'--脱机重建索引。
                          EXEC SP_EXECUTESQL @Defrag
                         end
                    set @i_cur=@i_cur+1
            end
        end

        ----------联机重建索引
        declare @n_count int=0
        declare @n_i int=1

        select @count=count(*) from #tmp 
            where not exists (select 1 from #tmp_sub b where database_id=b.database_id and tablename=b.tablename and type_desc=b.index_type_desc)
        if @count>=1
            begin
                WHILE @n_i<@count
                    begin
                        select @dbname_cur=dbname,@TableName=tablename,@IndexName=indexname,@SchemaName=schemaname,@PctFrag=avgfragment
                            from (  select row_number() over(order by indexname)rn,dbname,tablename,indexname,
                                     schemaname,avgfragment 
                                   from #tmp 
                                   where not exists (select 1 from #tmp_sub b where database_id=b.database_id and tablename=b.tablename and type_desc=b.index_type_desc)
                                   )tb  where rn=@n_i
                            if @PctFrag between 20.0 and 40.0
                                 begin
                                  set @Defrag=N' ALTER INDEX ['+@IndexName+'] ON ['+@dbname_cur+'].['+@SchemaName+'].['+ @TableName +'] REORGANIZE'--重新组织索引页不删除索引
                                  EXEC SP_EXECUTESQL @Defrag
                                 end
                                 else if @PctFrag>40.0
                                 begin
                                  SET @Defrag=N' ALTER INDEX ['+@IndexName+'] ON ['+@dbname_cur+'].['+@SchemaName+'].['+ @TableName +'] REBUILD WITH (ONLINE = ON )'--联机重建索引。即不锁定表重新创建索引
                                  EXEC SP_EXECUTESQL @Defrag
                                 end
                    set @n_i=@n_i+1
                    end
            end

        truncate table #tmp
        truncate table #tmp_sub
        drop table #tmp
        drop table #tmp_sub
 
    SET NOCOUNT OFF

END