create proc dbcopy as
begin
declare @a table (id int identity,name varchar(100))
declare
@count int,
@i int,
@sql varchar(1000),
@name varchar(100)
set @sql=''
set @i=1
set @count=0
insert into @a select name
from sysobjects
where xtype='U'
select @count=count(*)
from @a
while (@i<=@count)
begin
select @name=name from @a where id=@i
set @sql='use db select * into '+@name+' from dbo.db.'+@name
exec (@sql)
set @i=@i+1
end
end