DTS导出这些表的数据到EXECL或文本文件,再用DTS导入.

解决方案 »

  1.   

    将这几个表导出到Execl中,然后考到另一台机子中,导入就可以了。
      

  2.   

    DTS拷贝数据到access里。在DTS到另外的一个数据库里。我常常这么做的。处理很大的数据量比导到excel中好。
      

  3.   

    --BCP就行啦,导出文本文件,再在另一台电脑导入:
    /*--实现数据导入/导出的存储过程 可以实现导入/导出 整个数据库/指定表 到文本文件邹建 2003.07-----------------*//*--调用示例
    导出调用示例
    --导出指定表,这里指定导出表:地区资料 和 基本信息,文件名前缀为:zj
    exec file2table 'zj','','','d:\','xzkh_sa','地区资料,基本信息'
    --导出整个数据库到c:\docman目录下,无文件前缀
    exec file2table 'zj','','','d:\txt\','xzkh_sa'导入调用示例
    --导入指定表,这里指定导出表:地区资料 和 基本信息,文件名前缀为:zj
    exec file2table 'zj','','','c:\zj','xzkh_sa','地区资料,基本信息',0
    --导入整个数据库从c:\docman目录下,无文件前缀
    exec file2table 'zj','','','C:\docman\','xzkh_sa','',0
    --*/if exists(select 1 from sysobjects where name='File2Table' and objectproperty(id,'IsProcedure')=1)
    drop procedure File2Table
    gocreate procedure File2Table
    @servername varchar(200) --服务器名
    ,@username varchar(200) --用户名,如果用NT验证方式,则为空''
    ,@password varchar(200) --密码
    ,@path varchar(1000) --目录名+文件前缀,目录名必须以'\'结束,文件名自动用表名.txt
    ,@dbname varchar(500) --数据库名
    ,@tbname varchar(8000)='' --表名列表,如果不指定,则表示所有用户表
    ,@isout bit=1 --1为导出(默认),0为导入
    as
    declare @sql varchar(8000),@sql1 varchar(8000)
    declare @tbstation int,@filestation int--初始化数据处理语句
    select @sql='bcp "'+@dbname+'..'
    ,@tbstation=len(@sql)+1
    ,@sql=@sql
    +case when @isout=1 then '" out' else '" in' end
    +' "'+@path
    ,@filestation=len(@sql)+1
    ,@sql=@sql
    +'.txt" /c' +' /S"'+@servername
    +case when isnull(@username,'')='' then '' 
    else '" /U"'+@username end
    +'" /P"'+isnull(@password,'')+'"'--数据导入/导出处理
    --定义数据处理的游标
    set @sql1='declare #tb cursor for select name from '
    +@dbname+'..sysobjects where xtype=''U'''
    +case when isnull(@tbname,'')='' then ''
    else ' and name in ('''+replace(@tbname,',',''',''')+''')' end
    exec(@sql1)
    open #tb
    fetch next from #tb into @tbname
    while @@fetch_status=0
    begin
    select @sql1=stuff(@sql,@tbstation,0,@tbname)
    ,@sql1=stuff(@sql1,@filestation+len(@tbname),0,@tbname)
    exec master..xp_cmdshell @sql1,no_output
    fetch next from #tb into @tbname
    end
    close #tb
    deallocate #tb
    go
      

  4.   

    --也可以备份成Excel/*--数据导出EXCEL

    导出表中的数据到Excel,包含字段名,文件为真正的Excel文件
    ,如果文件不存在,将自动创建文件
    ,如果表不存在,将自动创建表
    基于通用性考虑,仅支持导出标准数据类型
    --邹建 2003.10--*//*--调用示例 p_exporttb @tbname='地区资料',@path='c:\',@fname='aa.xls'
    --*/
    if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exporttb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
    drop procedure [dbo].[p_exporttb]
    GOcreate proc p_exporttb
    @tbname sysname, --要导出的表名
    @path nvarchar(1000), --文件存放目录
    @fname nvarchar(250)='' --文件名,默认为表名
    as
    declare @err int,@src nvarchar(255),@desc nvarchar(255),@out int
    declare @obj int,@constr nvarchar(1000),@sql varchar(8000),@fdlist varchar(8000)--参数检测
    if isnull(@fname,'')='' set @fname=@tbname+'.xls'--检查文件是否已经存在
    if right(@path,1)<>'\' set @path=@path+'\'
    create table #tb(a bit,b bit,c bit)
    set @sql=@path+@fname
    insert into #tb exec master..xp_fileexist @sql--数据库创建语句
    set @sql=@path+@fname
    if exists(select 1 from #tb where a=1)
    set @constr='DRIVER={Microsoft Excel Driver (*.xls)};DSN='''';READONLY=FALSE'
         +';CREATE_DB="'+@sql+'";DBQ='+@sql
    else
    set @constr='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 5.0;HDR=YES'
    +';DATABASE='+@sql+'"'
    --连接数据库
    exec @err=sp_oacreate 'adodb.connection',@obj out
    if @err<>0 goto lberrexec @err=sp_oamethod @obj,'open',null,@constr
    if @err<>0 goto lberr/*--如果覆盖已经存在的表,就加上下面的语句
    --创建之前先删除表/如果存在的话
    select @sql='drop table ['+@tbname+']'
    exec @err=sp_oamethod @obj,'execute',@out out,@sql
    --*/--创建表的SQL
    select @sql='',@fdlist=''
    select @fdlist=@fdlist+','+a.name
    ,@sql=@sql+',['+a.name+'] '
    +case when b.name in('char','nchar','varchar','nvarchar') then
     'text('+cast(case when a.length>255 then 255 else a.length end as varchar)+')'
    when b.name in('tynyint','int','bigint','tinyint') then 'int'
    when b.name in('smalldatetime','datetime') then 'datetime'
    when b.name in('money','smallmoney') then 'money'
    else b.name end
    FROM syscolumns a left join systypes b on a.xtype=b.xusertype
    where b.name not in('image','text','uniqueidentifier','sql_variant','ntext','varbinary','binary','timestamp')
    and object_id(@tbname)=id
    select @sql='create table ['+@tbname
    +']('+substring(@sql,2,8000)+')'
    ,@fdlist=substring(@fdlist,2,8000)
    exec @err=sp_oamethod @obj,'execute',@out out,@sql
    if @err<>0 goto lberrexec @err=sp_oadestroy @obj--导入数据
    set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES
    ;DATABASE='+@path+@fname+''',['+@tbname+'$])'exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from '+@tbname)returnlberr:
    exec sp_oageterrorinfo 0,@src out,@desc out
    lbexit:
    select cast(@err as varbinary(4)) as 错误号
    ,@src as 错误源,@desc as 错误描述
    select @sql,@constr,@fdlistgo
      

  5.   

    更多的参考我的贴子:导入/导出Excel
    http://expert.csdn.net/Expert/topic/2461/2461899.xml?temp=.5647547
    更多的参考我的贴子:导入/导出dBase
    http://expert.csdn.net/Expert/topic/2495/2495545.xml?temp=.6065637