[SQL Server] Script para deletar todos os registros de um database

use DBTest
GO
SET NOCOUNT ON;
DECLARE @sql varchar(4000);
-- 0 - Recuperar a lista de constraints
DECLARE @tbl Table ( tabela varchar(500), restricao varchar(500) );
-- 1 - Desabilitar constraints
insert INTO @tbl
SELECT
    t.name, k.name
FROM sys.foreign_keys k
JOIN sys.tables t ON k.parent_object_id = t.object_id;
WHILE (select count(*) from @tbl) > 0
begin
 select top 1 @sql = 'ALTER TABLE dbo.' + t.tabela + ' nocheck constraint ' + t.restricao + ';'
    from @tbl t;
 delete TOP(1) FROM @tbl;
 EXEC(@sql);
END;   
-- 2 - Truncar
EXEC sys.sp_MSforeachtable 'DELETE FROM ?';
-- 3 - Reabilita as constraints
insert INTO @tbl
SELECT
    t.name, k.name
FROM sys.foreign_keys k
JOIN sys.tables t ON k.parent_object_id = t.object_id;
WHILE (select count(*) from @tbl) > 0
begin
 select top 1 @sql = 'ALTER TABLE dbo.' + t.tabela + ' check constraint ' + t.restricao + ';'
    from @tbl t;
 delete TOP(1) FROM @tbl;
 --print @sql;
 EXEC(@sql);
END;