清空数据库中所有表的方法

有时要删除一个数据库所有表里的数据，表少的话就一个一个的删吧，
但成百上千个表的话，可能要累死牛了噢，我是用下面的方法来删的。
但总觉得不是很好！如果能写个存储过程岂不是更好......好，完了想一下

你有更的好办法吗，别忘记告诉我一下啊！！

DECLARE @oatabel_name varchar(40)
declare delete_cursor CURSOR FOR
SELECT table_name
FROM Information_Schema.tables
where table_type = 'base table'
ORDER BY table_type
OPEN delete_cursor
FETCH NEXT FROM delete_cursor
INTO @oatabel_name
WHILE @@FETCH_STATUS = 0
BEGIN

print 'delete from '+ @oatabel_name

FETCH NEXT FROM delete_cursor
INTO @oatabel_name
END
CLOSE delete_cursor
DEALLOCATE delete_cursor
GO