sql脚本：将一个数据库完整复制到另一个数据库（转）

 

 /*--将一个数据库完整复制成另一个数据库 

 --邹建 2003.10--*/  

 /*--调用示例 

 exec   p_CopyDb   @ddbname='test'  

 --*/  

 if   exists   (select   *   from   dbo.sysobjects   where   id   =   object_id(N'[dbo].[p_CopyDb]')   and   OBJECTPROPERTY(id,   N'IsProcedure')   =   1)  

 drop   procedure   [dbo].[p_CopyDb]  

 GO  

 create   proc   p_CopyDb  

 @sdbname   sysname='',       --定义要复制的数据库名,默认为当前数据库 

 @ddbname   sysname, --定义复制后生成的数据库名 

 @overexist   bit=1,             --是否覆盖已经存在的数据库 

 @killuser   bit=1       --是否关闭用户使用进程,仅@overexist=1时有效 

 as  

 declare   @sql   varchar(8000),@bpath   varchar(8000),@rpath   varchar(8000)  

   

 --得到要复制的数据库名 

 if   isnull(@sdbname,'')=''   set   @sdbname=db_name()  

   

 --得到临时备份数据目录及文件名 

 select   @bpath=rtrim(reverse(filename))   from   master..sysfiles   where   name='master'  

 select   @bpath=substring(@bpath,charindex('"',@bpath)+1,8000)  

 ,@bpath=reverse(substring(@bpath,charindex('"',@bpath),8000))+'BACKUP"'  

 +@sdbname+'_'+convert(varchar,getdate(),112)  

 +'_'+replace(convert(varchar,getdate(),108),':','')  

 +'.bak'  

   

 --生成数据库备份语句,进行数据库备份 

 set   @sql='backup   database   '+@sdbname  

 +'   to   disk='''+@bpath  

 +'''   with   NOINIT'  

 exec(@sql)  

   

 --根据备份文件恢复成新的数据库(完成复制工作)  

 set   @sql='restore   database   '+@ddbname  

 +'   from   disk='''+@bpath+''''  

 +'   with   file=1'  

 +case   when   @overexist=1   then   ',replace'   else   ''   end  

   

 --得到数据库存放的默认目录 

 --得到SQL安装时设置的数据文件路径 

 select   @rpath=rtrim(reverse(filename))   from   master..sysfiles   where   name='master'  

 select   @rpath=reverse(substring(@rpath,charindex('"',@rpath),8000))  

   

 --添加移动逻辑文件的处理 

 --从备份文件中获取逻辑文件名 

 declare   @lfn   nvarchar(128),@tp   char(1),@i   int  

   

 --创建临时表,保存获取的信息 

 create   table   #tb(ln   nvarchar(128),pn   nvarchar(260),tp   char(1),fgn   nvarchar(128),sz   numeric(20,0),Msz   numeric(20,0))  

 --从备份文件中获取信息 

 insert   into   #tb   exec('restore   filelistonly   from   disk='''+@bpath+'''')  

 declare   #f   cursor   for   select   ln,tp   from   #tb  

 open   #f  

 fetch   next   from   #f   into   @lfn,@tp  

 set   @i=0  

 while   @@fetch_status=0  

 begin  

 select   @sql=@sql+',move   '''+@lfn+'''   to   '''+@rpath+@ddbname+cast(@i   as   varchar)  

 +case   @tp   when   'D'   then   '.mdf'''   else   '.ldf'''   end  

 ,@i=@i+1  

 fetch   next   from   #f   into   @lfn,@tp  

 end  

 close   #f  

 deallocate   #f  

   

 --关闭用户进程处理 

 if   @overexist=1   and   @killuser=1  

 begin  

 declare   @spid   varchar(20)  

 declare   #spid   cursor   for  

 select   spid=cast(spid   as   varchar(20))   from   master..sysprocesses   where   dbid=db_id(@ddbname)  

 open   #spid  

 fetch   next   from   #spid   into   @spid  

 while   @@fetch_status=0  

 begin      

 exec('kill   '+@spid)  

 fetch   next   from   #spid   into   @spid  

 end      

 close   #spid  

 deallocate   #spid  

 end  

   

 --恢复数据库 

 exec(@sql)  

   

 --删除备份的临时文件 

 set   @sql='del   "'+@bpath+'"'  

 exec   master..xp_cmdshell   @sql,no_output  

 select   @sql,@bpath,@rpath  

 go

文章来源：http://topic.csdn.net/t/20031217/17/2574348.html