Procedure for clearing data in all tables

Copy codeThe Code is as follows:
--*************************************** ****************
-- * Clear data in all tables *
-- * Sahara Forest *
-- * 2010-6-28 *
--*************************************** ****************

If exists (select * from sysobjects where type = 'p' and name = n' P _ DeleteAllData ')
Drop procedure P_DeleteAllData
Go

Create procedure P_DeleteAllData
As
EXEC sp_MSForEachTable 'alter TABLE? Nocheck constraint all '-- disable Constraints
EXEC sp_MSForEachTable 'alter TABLE? Disable trigger all' -- DISABLE a TRIGGER
EXEC sp_MSForEachTable 'delete FROM? '-- Delete data from all tables
EXEC sp_MSForEachTable 'alter TABLE? Check constraint all' -- enable constraints
EXEC sp_MSForEachTable 'alter TABLE? Enable trigger all' -- ENABLE TRIGGER
Go

-- Execute the Stored Procedure
-- Exec P_DeleteAllData -- execute