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

  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