代碼如下:

--******************************************************* 
--* 清空所有表中的數據 * 
--* 撒哈拉大森林 * 
--* 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' --禁用約束 
EXEC sp_MSForEachTable 'ALTER TABLE ? DISABLE TRIGGER ALL' --禁用觸發器 
EXEC sp_MSForEachTable 'DELETE FROM ?' --刪除所有表中的數據 
EXEC sp_MSForEachTable 'ALTER TABLE ? CHECK CONSTRAINT ALL' --啟用約束 
EXEC sp_MSForEachTable 'ALTER TABLE ? ENABLE TRIGGER ALL' --啟用觸發器 
go 

--執行存儲過程 
--exec P_DeleteAllData --執行