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

在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
END

CLOSE tbl_cur
DEALLOCATE tbl_Cur