参考:

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

/*--数据库数据复制

将一个数据库中的数据复制到另一个数据库

如果某列在目标数据库中为标识列,将不会被复制

适用范围:数据库结构发生了变化,想将旧数据库进行升级

这样就可以根据新的数据库结构创建一个空库,然后

将旧数据库的所有数据复制到新库中

--邹建 203.10--*/

/*--调用示例

exec p_copydb 'bns_aa','bns_new'

exec p_copydb 'acc_五医','acc_演示数据8'

--*/

create proc p_copydb

@o_dbname sysname,--要复制数据的数据库--源数据库

@n_dbname sysname--接收数据的数据库--目标数据库

--@cleardb bit=0--清空目标数据库

as

declare @sql nvarchar(4000)

--禁用约束/触发器,防止复制时的数据冲突

set @sql='declare #tbc cursor for select name

from '+@n_dbname+'..sysobjects where xtype=''U'' and status>=0' exec(@sql)

declare @tbname sysname

open #tbc

fetch next from #tbc into @tbname

while @@fetch_status=0

begin

set @sql='alter table '+@n_dbname+'..['+@tbname+'] NOCHECK CONSTRAINT ALL'

exec(@sql)

set @sql='alter table '+@n_dbname+'..['+@tbname+'] disable trigger ALL' exec(@sql)