请问如何用sql语句实现sql中的一个表导出到access中去

Question

/*************导出到Access********************/
insert into openrowset('Microsoft.Jet.OLEDB.4.0', 
   'x:\A.mdb';'admin';'',A表) select * from 数据库名..B表/*************导入Access********************/
insert into B表 selet * from openrowset('Microsoft.Jet.OLEDB.4.0', 
   'x:\A.mdb';'admin';'',A表)文件名为参数
declare @fname varchar(20)
set @fname = 'd:\test.mdb'
exec('SELECT a.* FROM opendatasource(''Microsoft.Jet.OLEDB.4.0'',
    '''+@fname+''';''admin'';'''', topics) as a ')SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="f:\northwind.mdb";Jet OLEDB:Database Password=123;User ID=Admin;Password=;')...产品

Answer 1

CREATE proc Sp_ExportDB
@CashID nvarchar(10),
@path nvarchar(1000) --文件存放目录
as declare @fname nvarchar(250) --文件名
declare @password varchar(20) --ACCESS数据库的密码
declare @s_user sysname --如果提示连接错误,则需要提供登陆sql服务器的用户名及密码
declare @s_password varchar(50)
set @S_User='SA'
set @password='ICCARD'
set @s_Password='123456'
SET  @fname=@CashID+Convert(char(8),Getdate(),112)+'1.mdb' set nocount on
declare @err int,@src nvarchar(255),@desc nvarchar(255),@out int
declare @obj int,@constr nvarchar(1000),@sql varchar(8000),@fdlist varchar(8000)
declare @tb_exists bit
declare @temp nvarchar(100)
--检查文件是否已经存在
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--数据库创建
select @sql=@path+@fname
,@constr='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+@sql
+case isnull(@password,'') when '' then '' 
else ';Jet OLEDB:Database Password='+@password endset @tb_exists=0
if  exists(select 1 from #tb where a=1)
BEGIN
  set @temp='del '+@sql
  exec master..xp_cmdshell @temp
end
exec @err=sp_oacreate 'ADOX.Catalog',@obj out
if @err<>0 goto lberrexec @err=sp_oamethod @obj,'Create',@out out,@constr
if @err<>0 goto lberr              --连接数据库
exec @err=sp_oacreate 'adodb.connection',@obj out
if @err<>0 goto lberrexec @err=sp_oamethod @obj,'open',null,@constr
if @err<>0 goto lberrset @tb_exists=0
--导出用户表
set @sql=case 
when @tb_exists=0
then 'SELECT * into [Users]'
else  'insert into [Users] select *'
end+' FROM [ODBC;Driver=SQL Server;Server='+ @@servername
+';Uid='+@s_user+';Pwd='+isnull(@s_password,'')
+';database='+db_name()+'].['+@CashId+'_Users]'

exec @err=sp_oamethod @obj,'execute',@out out,@sql
if @err<>0 goto lberr
--导出分户表
set @sql=case 
when @tb_exists=0
then 'SELECT * into [AdvanceLedger]'
else  'insert into [AdvanceLedger] select *'
end+' FROM [ODBC;Driver=SQL Server;Server='+ @@servername
+';Uid='+@s_user+';Pwd='+isnull(@s_password,'')
+';database='+db_name()+'].['+@CashId+'_AdvanceLedger]'

exec @err=sp_oamethod @obj,'execute',@out out,@sql
if @err<>0 goto lberr--导入明细表
 set @sql=case 
when @tb_exists=0
then 'SELECT * into [AdvanceList]'
else  'insert into [AdvanceList] select *'
end+' FROM [ODBC;Driver=SQL Server;Server='+ @@servername
+';Uid='+@s_user+';Pwd='+isnull(@s_password,'')
+';database='+db_name()+'].['+@CashId+'_AdvanceList]'

exec @err=sp_oamethod @obj,'execute',@out out,@sql
if @err<>0 goto lberr
exec @err=sp_oadestroy @obj
if @err<>0 goto lberr
return 0
lberr:
exec sp_oageterrorinfo 0,@src out,@desc out
if @obj<>0 exec @err=sp_oadestroy @obj
lbexit:
select cast(@err as varbinary(4)) as 错误号
,@src as 错误源,@desc as 错误描述
select @sql,@constr,@fdlist
return 1
GO