一段删除某个数据库下所有数据的好脚本

在SQL SERVER 2000/2005中，有时要删除某个数据库下的所有数据，如果数据库下很多
表，也挺麻烦的，于是可以用一段SQL来实现
Declare @t varchar (1024)
Declare tbl_cur cursor for  
select TABLE_NAME from INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE'OPEN tbl_cur
FETCH NEXT  from tbl_cur INTO @t
WHILE @@FETCH_STATUS = 0
BEGIN
EXEC ('TRUNCATE TABLE '+ @t)
FETCH NEXT  from tbl_cur INTO @t
ENDCLOSE tbl_cur
DEALLOCATE tbl_Cur