刪除數據庫中全部表，存儲過程

use 數據庫名稱
declare @tname varchar(8000)
set @tname=''
select @tname=@tname + Name + ',' from sysobjects where xtype='U'
select @tname='drop table ' + left(@tname,len(@tname)-1)

print @tname
exec(@tname)
go

use 數據庫名稱
declare @tname varchar(8000)
set @tname=''
select @tname=@tname + Name + ',' from sysobjects where xtype='P'
select @tname='drop Procedure ' + left(@tname,len(@tname)-1)

print @tname
exec(@tname)
go