如何不删除数据可而将数据库里面的数据清空

查询分析器当前数据库下，执行
declare   @sql   varchar(8000)
set  @sql='' select   @sql=@sql+' delete  from  '   +   name + ' DBCC CHECKIDENT (' +name+ ',reseed,0)'  from   sysobjects  where  xtype   =   'U'   
execute (@sql)