不同数据库之间复制表的数据的方法

不同数据库之间复制表的数据的方法：

当表目标表存在时：

insert into 目的数据库..表 select * from 源数据库..表

当目标表不存在时：

select * into 目的数据库..表 from 源数据库..表

--如果在不同的SQL之间:

insert into openrowset('sqloledb','目的服务器名';'sa';'',目的数据库.dbo.表)
select * from 源数据库..表

--或用链接服务器:
----------------------------------------创建链接服务器------------------------------------
exec sp_addlinkedserver 'srv_lnk','','SQLOLEDB','远程服务器名'
exec sp_addlinkedsrvlogin 'srv_lnk','false',null,'sa','密码'
exec sp_serveroption 'srv_lnk','rpc out','true' --这个允许调用链接服务器上的存储过程
go

--查询示例
select * from srv_lnk.数据库名.dbo.表名

--导入示例
select * into 表 from srv_lnk.数据库名.dbo.表名

go
--后删除链接服务器
exec sp_dropserver 'srv_lnk','droplogins'

--如果是将一个数据库中的数据全部复制到另一个数据库,而且两个库结构完全一样的话,就用备份/恢复的方式:
/*--将一个数据库完整复制成另一个数据库 --*/
/*--调用示例
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\'
mailto:+@sdbname+%20_%20+convert(varchar,getdate(),112)
+'_'+replace(convert(varchar,getdate(),108),':','')
+'.bak'

--生成数据库备份语句,进行数据库备份
set @sql='backup database mailto:%20+@sdbname
+' to mailto:disk=%20%20%20+@bpath
+''' with NOINIT'
exec(@sql)

--根据备份文件恢复成新的数据库(完成复制工作)
set @sql='restore database mailto:%20+@ddbname
+' from mailto:disk=%20%20%20+@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 mailto:disk=%20%20%20+@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 mailto:%20%20%20+@lfn+ to mailto:%20%20%20+@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 mailto:%20+@spid)
fetch next from #spid into @spid
end
close #spid
deallocate #spid
end

--恢复数据库
exec(@sql)

--删除备份的临时文件
set @sql='del "mailto:%20+@bpath+%20%22
exec master..xp_cmdshell @sql,no_output
select @sql,@bpath,@rpath
go

--如果一定要逐个表复制,用:
use 源库
go
exec sp_msforeachtable 'select * into 目标库..? from ?'

最好的办法是用DTS(导入导出工具)做好DTS包。

--如果两个库的结构有些不同,就用:

/*--数据库数据复制
将一个数据库中的数据复制到另一个数据库
如果某列在目标数据库中为标识列,将不会被复制
适用范围:数据库结构发生了变化,想将旧数据库进行升级
这样就可以根据新的数据库结构创建一个空库,然后
将旧数据库的所有数据复制到新库中 --*/

/*--调用示例

exec p_copydb '源数据库','目标数据库'
exec p_copydb 'acc_五医','acc_演示数据8'
--*/

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
@o_dbname sysname, --要复制数据的数据库--源数据库
@n_dbname sysname, --接收数据的数据库--目标数据库
@cleardb bit=0 --清空目标数据库
as
declare @sql nvarchar(4000)

--禁用约束,防止复制时的数据冲突
set @sql='declare #tbc cursor for select name,tbname=object_name(parent_obj)
from mailto:%20+@n_dbname+%20..sysobjects where xtype in(''C'',''F'')'
exec(@sql)
declare @name sysname,@tbname sysname
open #tbc
fetch next from #tbc into @name,@tbname
while @@fetch_status=0
begin
set @sql='alter table mailto:%20+@n_dbname+%20..[%20+@tbname+] NOCHECK CONSTRAINT ['+@name+']'
exec(@sql)
fetch next from #tbc into @name,@tbname
end
close #tbc

--复制数据
declare @sql1 varchar(8000)
set @sql='declare #tb cursor for select a.name from '
mailto:+@o_dbname+%20..sysobjects a inner join '
mailto:+@n_dbname+%20..sysobjects b on a.name=b.name
where a.xtype=''U'' and b.xtype=''U'''
exec(@sql)
open #tb
fetch next from #tb into @tbname
while @@fetch_status=0
begin
select @sql1=''
,@sql='select @sql1=@sql1+'',[''+a.name+'']'' from(
select name from mailto:%20+@o_dbname+%20..syscolumns where id in
(select id from mailto:%20+@o_dbname+%20..sysobjects where mailto:name=%20%20%20+@tbname+)
) a inner join (
select name from mailto:%20+@n_dbname+%20..syscolumns where status<>0x80 and id in
(select id from mailto:%20+@n_dbname+%20..sysobjects where mailto:name=%20%20%20+@tbname+)
) b on a.name=b.name'
exec sp_executesql @sql,N'@sql1 nvarchar(4000) out',@sql1 out

select @sql1=substring(@sql1,2,8000)
exec('insert into mailto:%20+@n_dbname+%20..[%20+@tbname+%20](%20+@sql1
+') select mailto:%20+@sql1+ from mailto:%20+@o_dbname+%20..[%20+@tbname+%20])
if @@error<>0
print('insert into mailto:%20+@n_dbname+%20..[%20+@tbname+%20](%20+@sql1
+') select mailto:%20+@sql1+ from mailto:%20+@o_dbname+%20..[%20+@tbname+%20])
fetch next from #tb into @tbname
end
close #tb
deallocate #tb

--数据复制完成后启用约束
open #tbc
fetch next from #tbc into @name,@tbname
while @@fetch_status=0
begin
set @sql='alter table mailto:%20+@n_dbname+%20..[%20+@tbname+] CHECK CONSTRAINT ['+@name+']'
exec(@sql)
fetch next from #tbc into @name,@tbname
end
close #tbc
deallocate #tbc
go