重写系统存储过程：sp_spaceused

重写系统存储过程：sp_spaceused

 存储过程脚本：

Use  master
Go
If   Object_id ( ' sp_TableSpace ' )  Is   Not   null
     Drop   Proc  sp_TableSpace
Go
/*
查询数据库中的表、索引视图或SQL Server2005 Service Broker队列所使用的磁盘空间

Andy 2008-10-28 
*/
Create   Proc  sp_TableSpace
(
     @dbname  sysname = null ,
     @objectname  sysname = null
)
As
     Declare  
         @object_id   int ,
         @type   char ( 2 ),
         @sql   nvarchar ( 4000 )

     Set  Nocount  On

     Set   @dbname = Isnull ( @dbname , db_name ())
     If   @dbname   Is   Null
     Begin     
         Raiserror   50001  N ' 无效的数据库名! '
         Return   1
     End
    
     If   @objectname   Is   Not   Null
     Begin
         Set   @sql = N ' Use  ' + @dbname + ' ;
        Select @object_id = object_id, @type = type From sys.objects Where object_id = object_id(@objectname)
        If @type =  '' SQ ''
            Select @object_id = object_id From sys.internal_tables Where parent_id = @object_id and internal_type = 201
         '
         Exec  sp_executesql  @sql ,N ' @objectname sysname,@object_id int Output,@type char(2) Output ' , @objectname , @object_id  Output, @type  Output
        
         If   @object_id   Is   Null
         Begin
             Raiserror ( 15009 , - 1 , - 1 , @objectname , @dbname )
             Return   1
         End
    
         IF   @type   NOT   IN  ( ' U  ' , ' S  ' , ' V  ' , ' SQ ' , ' IT ' )
         Begin
             Raiserror ( 15234 , - 1 , - 1 )
             Return   1
         End
     End
     Set   @sql = N ' Use  ' + @dbname + ' ;
    ;With t1 As
    (
        Select    c.name As object_name,
                Sum(b.total_pages) As Reservedpages,
                Sum(b.used_pages) As usedpages,
                Sum(Case When b.type <> 1 Then b.used_pages When a.index_id < 2 Then b.data_pages Else 0 End) As pages,
                Sum(Case When a.index_id < 2 And b.type = 1 Then a.rows Else 0 End) As [rowCount]
            From sys.partitions As a
                Inner Join sys.allocation_units As b On b.container_id=a.partition_id
                Inner Join sys.objects As c On c.object_id=a.object_id
            Where c.type In ( '' U  '' , '' S  '' , '' V  '' , '' IT '' ) And
                (c.name=@objectname Or @objectname Is null)
            Group By c.name
        Union All
        Select    d.name As object_name,
                Sum(b.total_pages) As Reservedpages,
                Sum(b.used_pages) As usedpages,
                0 As pages,    
                0 As [rowCount]
            From sys.partitions As a
                Inner Join sys.allocation_units As b On b.container_id=a.partition_id
                Inner Join sys.internal_tables c On c.object_id=a.object_id And c.internal_type In (202,204)
                Inner Join sys.objects d On d.object_id=c.parent_id And d.type= '' SQ ''
            Where d.name=@objectname Or @objectname Is null
            Group By d.name
    )
    ,t2 As
    (Select    object_name,Sum(Reservedpages) As Reservedpages,Sum(usedpages) As usedpages,Sum(pages) As pages,Sum([rowCount]) As [rowCount] From t1 Group By object_name)
    Select    object_name,
            [rowCount] As rows,
            Rtrim(str(reservedpages * 8192 / 1024.,15,0) +  ''  KB '' ) As reserved,
            Rtrim(str(pages * 8192 / 1024.,15,0) +  ''  KB '' ) As data,
            Rtrim(str((usedpages - pages) * 8192 / 1024.,15,0) +  ''  KB '' ) As index_size,
            Rtrim(str((reservedpages - usedpages) * 8192 / 1024.,15,0) +  ''  KB '' ) As unused
        From t2
     '
     Exec  sp_executesql  @sql ,N ' @objectname sysname ' , @objectname

GO

 

 

 

调用方法：

 

Use  Test
Go

Exec  sp_TableSpace  null , ' test1 '
Exec  sp_TableSpace  null