删除数据库中所有表的数据

create  PROC   P_DelAllUserTableData
as
Begin
declare   @name   varchar(50)
Declare   Cur   Cursor   For
select   Name   from   sysobjects   where   xtype='u'   and   status>=0   and   Name   like   '%Test%'  --数据库名字
declare   @SQL   Varchar(300)
Open   Cur
Fetch   Cur   Into   @name
While   @@FETCH_STATUS=0
BEGIN
Set   @sql='DELETE   '+@name+''
Exec(@sql)
Fetch   Cur   Into   @name
End
Close   Cur
Deallocate   cur
End
GO

exec   P_DelAllUserTableData