use   master
go

if   exists   (select   *   from   dbo.sysobjects   where   id   =   object_id(N '[dbo].[sp_copyProce] ')   and  

OBJECTPROPERTY(id,   N 'IsProcedure ')   =   1)
drop   procedure   [dbo].[sp_copyProce]
GO

/*--生成表資料指令碼的通用儲存過程,

功能:將一個數據庫中的儲存過程,複製到另一資料庫中
目標資料庫中已經有的儲存過程不覆蓋 

   2005.01(引用請保留此資訊)--*/

/*--呼叫示例

exec   master.dbo.sp_copyProce   'a ', 'b '
--*/

create   proc   sp_copyProce
@s_dbname   sysname,   --要複製儲存過程的源資料庫名
@d_dbname   sysname     --目標資料庫名
as
set   nocount   on
if   db_id(@s_dbname)   is   null
begin
raiserror( '資料庫 "%s "不存在 ',1,16,@s_dbname)
return
end
if   db_id(@d_dbname)   is   null
begin
raiserror( '資料庫 "%s "不存在 ',1,16,@d_dbname)
return
end
select   @s_dbname= '[ '+replace(@s_dbname, '] ', ']] ')+ '] '
,@d_dbname= '[ '+replace(@d_dbname, '] ', ']] ')+ '] '

--複製儲存過程資訊到臨時表
create   table   #sys_syscomments_bak(name   sysname,xtype   char(2),number   smallint,colid  

smallint,status   smallint,ctext   varbinary(8000))
exec( '
insert   #sys_syscomments_bak
(name,xtype,number,colid,status,ctext)
select   o.name,o.xtype,c.number,c.colid,c.status,c.ctext
from   '

[email protected]_dbname+ '.dbo.syscomments   c, '[email protected]_dbname+ '.dbo.sysobjects   o
where   c.id=o.id  
and   o.status> =0
and   o.xtype= ' 'P ' '
and   not   exists(
select   *   from   '[email protected]_dbname+ '.dbo.sysobjects   where   name=o.name)
')

--建立儲存過程
declare   tb   cursor   local   for
select   'use   '

[email protected]_dbname+ '   exec( ' 'create   proc   dbo.[ '+replace(name,N '] ',N ']] ')+ ']   as   -- ' ')    

exec   sp_recompile   [ '+replace(name,N '] ',N ']] ')+ '] '
from   #sys_syscomments_bak
declare   @s   nvarchar(4000)
open   tb
fetch   tb   into   @s
while   @@fetch_status=0
begin
exec(@s)
fetch   tb   into   @s
end
close   tb
deallocate   tb

--複製儲存過程結構
exec   sp_configure   'allow   updates ',1   reconfigure   with   override
begin   tran
exec( '
delete   c
from   '

[email protected]_dbname+ '.dbo.syscomments   c, '[email protected]_dbname+ '.dbo.sysobjects  

o,#sys_syscomments_bak   ob
where   c.id=o.id   and   o.name=ob.name   and   o.xtype=ob.xtype
insert   '[email protected]_dbname+ '.dbo.syscomments([id],[number],[colid],[status],[ctext])
select   o.[id],ob.[number],ob.[colid],ob.[status],ob.[ctext]
from   '[email protected]_dbname+ '.dbo.sysobjects   o,#sys_syscomments_bak   ob
where   o.name=ob.name   and   o.xtype=ob.xtype ')
commit   tran
exec   sp_configure   'allow   updates ',0   reconfigure   with   override
go


--使用測試
create   database   a
go
use   a
go
create   proc   p_test1
as
select   'test1 '
go


create   proc   p_test2
as
select   'test2 '
go

create   database   b
go

exec   master.dbo.sp_copyProce   'a ', 'b '
go
select   *   from   b.dbo.sysobjects   where   xtype= 'P '

exec   b.dbo.p_test1
exec   b.dbo.p_test2
go

use   master
go

drop   database   a,b
drop   proc   sp_copyProce