MSSQL 刪除數據庫表數據

--刪除數據庫表數據  慎用
create PROCEDURE sp_DeleteAllData
AS  
  declare @tblName nvarchar(50)
  declare @sNOCHECKCONSTRAINT nvarchar(500)
  declare @sDISABLETRIGGER nvarchar(500)
  declare @sDeleteTable nvarchar(500)
  declare @sCHECKCONSTRAINT nvarchar(500)
  declare @sENABLETRIGGER nvarchar(500)
  
  begin try  
    begin tran 
      -- 失效索引,觸發器
      declare tb cursor for select name from sys.sysobjects where xtype='U' and category=0
      open tb 
      fetch next from tb into @tblName 
      while @@fetch_status=0
      begin
        set @sNOCHECKCONSTRAINT ='ALTER TABLE ' + @tblName+ ' nocheck CONSTRAINT ALL'
        set @sDISABLETRIGGER    ='ALTER TABLE ' + @tblName+ ' DISABLE TRIGGER ALL'
        EXEC sp_MSForEachTable @sNOCHECKCONSTRAINT
        EXEC sp_MSForEachTable @sDISABLETRIGGER
        fetch next from tb into @tblName
      end
      close tb
      deallocate tb      
      -- 刪除數據
      declare tb1 cursor for select name from sys.sysobjects where xtype='U' and category=0
      open tb1 
      fetch next from tb1 into @tblName 
      while @@fetch_status=0
      begin
        set @sDeleteTable       ='delete from ' + @tblName
        EXEC sp_MSForEachTable @sDeleteTable
        print '刪除數據表'+@tblName +'完成'
        fetch next from tb1 into @tblName
      end
      close tb1
      deallocate tb1
      --恢復索引,觸發器
      declare tb2 cursor for select name from sys.sysobjects where xtype='U' and category=0
      open tb2 
      fetch next from tb2 into @tblName 
      while @@fetch_status=0
      begin
        set @sCHECKCONSTRAINT   ='ALTER TABLE ' + @tblName+ ' check CONSTRAINT ALL'
        set @sENABLETRIGGER     ='ALTER TABLE ' + @tblName+ ' ENABLE TRIGGER ALL'
        EXEC sp_MSForEachTable @sCHECKCONSTRAINT
        EXEC sp_MSForEachTable @sENABLETRIGGER
        fetch next from tb2 into @tblName
      end
      close tb2
      deallocate tb2
    commit tran
  end try
  begin catch
    rollback
  end catch
GO