sql语句导入导出大全

时间:2020-12-04 13:26:03
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\aaaa.xls";User ID=Admin;Password=;Extended properties=Excel 11.0')...[Sheet1$]


 

/******* 导出到excel
  exec master..xp_cmdshell 'bcp settledb.dbo.shanghu out c:\temp1.xls -c -q -s"gnetdata/gnetdata" -u"sa" -p""'

  /*********** 导入excel
  select * 
  from opendatasource( 'microsoft.jet.oledb.4.0',
  'data source="c:\test.xls";user id=admin;password=;extended properties=excel 5.0')...xactions

  /*动态文件名
  declare @fn varchar(20),@s varchar(1000)
  set @fn = 'c:\test.xls'
  set @s ='''microsoft.jet.oledb.4.0'',
  ''data source="'+@fn+'";user id=admin;password=;extended properties=excel 5.0'''
  set @s = 'select * from opendatasource ('+@s+')...sheet1$'
  exec(@s)
  */

  select cast(cast(科目编号 as numeric(10,2)) as nvarchar(255))+' ' 转换后的别名
  from opendatasource( 'microsoft.jet.oledb.4.0',
  'data source="c:\test.xls";user id=admin;password=;extended properties=excel 5.0')...xactions

  /********************** excel导到远程sql
  insert opendatasource(
  'sqloledb',
  'data source=远程ip;user id=sa;password=密码'
  ).库名.dbo.表名 (列名1,列名2)
  select 列名1,列名2
  from opendatasource( 'microsoft.jet.oledb.4.0',
  'data source="c:\test.xls";user id=admin;password=;extended properties=excel 5.0')...xactions


  /** 导入文本文件
  exec master..xp_cmdshell 'bcp dbname..tablename in c:\dt.txt -c -sservername -usa -ppassword'

  /** 导出文本文件
  exec master..xp_cmdshell 'bcp dbname..tablename out c:\dt.txt -c -sservername -usa -ppassword'
  或
  exec master..xp_cmdshell 'bcp "select * from dbname..tablename" queryout c:\dt.txt -c -sservername -usa -ppassword'

  导出到txt文本,用逗号分开
  exec master..xp_cmdshell 'bcp "库名..表名" out "d:\tt.txt" -c -t ,-u sa -p password'


  bulk insert 库名..表名
  from 'c:\test.txt'
  with (
  fieldterminator = ';',
  rowterminator = '\n'
  )


  --/* dbase iv文件
  select * from 
  openrowset('microsoft.jet.oledb.4.0'
  ,'dbase iv;hdr=no;imex=2;database=c:\','select * from [客户资料4.dbf]')
  --*/

  --/* dbase iii文件
  select * from 
  openrowset('microsoft.jet.oledb.4.0'
  ,'dbase iii;hdr=no;imex=2;database=c:\','select * from [客户资料3.dbf]')
  --*/

  --/* foxpro 数据库
  select * from openrowset('msdasql',
  'driver=microsoft visual foxpro driver;sourcetype=dbf;sourcedb=c:\',
  'select * from [aa.dbf]')
  --*/

  **************导入dbf文件****************/
  select * from openrowset('msdasql',
  'driver=microsoft visual foxpro driver;
  sourcedb=e:\vfp98\data;
  sourcetype=dbf',
  'select * from customer where country != "usa" order by country')
  go
  /***************** 导出到dbf ***************/
  如果要导出数据到已经生成结构(即现存的)foxpro表中,可以直接用下面的sql语句

  insert into openrowset('msdasql',
  'driver=microsoft visual foxpro driver;sourcetype=dbf;sourcedb=c:\',
  'select * from [aa.dbf]')
  select * from 表

  说明:
  sourcedb=c:\ 指定foxpro表所在的文件夹
  aa.dbf 指定foxpro表的文件名.

  /*************导出到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=;')...产品

  ********************* 导入 xml 文件

  declare @idoc int
  declare @doc varchar(1000)
  --sample xml document
  set @doc ='
  <root>
  <customer cid= "c1" name="janine" city="issaquah">
  <order oid="o1" date="1/20/1996" amount="3.5" />
  <order oid="o2" date="4/30/1997" amount="13.4">customer was very satisfied
  </order>
  </customer>
  <customer cid="c2" name="ursula" city="oelde" >
  <order oid="o3" date="7/14/1999" amount="100" note="wrap it blue 
  white red">
  <urgency>important</urgency>
  happy customer.
  </order>
  <order oid="o4" date="1/20/1996" amount="10000"/>
  </customer>
  </root>
  '
  -- create an internal representation of the xml document.
  exec sp_xml_preparedocument @idoc output, @doc

  -- execute a select statement using openxml rowset provider.
  select *
  from openxml (@idoc, '/root/customer/order', 1)
  with (oid char(5), 
  amount float, 
  comment ntext 'text()')
  exec sp_xml_removedocument @idoc

  ???????
  /**********************excel导到txt****************************************/
  想用
  select * into opendatasource(...) from opendatasource(...)
  实现将一个excel文件内容导入到一个文本文件

  假设excel中有两列,第一列为姓名,第二列为很行帐号(16位)且银行帐号导出到文本文件后分两部分,前8位和后8位分开。


  邹健:
  如果要用你上面的语句插入的话,文本文件必须存在,而且有一行:姓名,银行账号1,银行账号2然后就可以用下面的语句进行插入
注意文件名和目录根据你的实际情况进行修改.

  insert into
  opendatasource('microsoft.jet.oledb.4.0'
  ,'text;hdr=yes;database=c:\'
  )...[aa#txt]
  --,aa#txt)
  --*/
  select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8) 
  from 
  opendatasource('microsoft.jet.oledb.4.0'
  ,'excel 5.0;hdr=yes;imex=2;database=c:\a.xls'
  --,sheet1$)
  )...[sheet1$]


  如果你想直接插入并生成文本文件,就要用bcp declare @sql varchar(8000),@tbname varchar(50)

  --首先将excel表内容导入到一个全局临时表
  select @tbname='[##temp'+cast(newid() as varchar(40))+']',@sql='select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8) 
  into '+@tbname+' from 
  opendatasource(''microsoft.jet.oledb.4.0''
  ,''excel 5.0;hdr=yes;imex=2;database=c:\a.xls''
  )...[sheet1$]'
  exec(@sql)

  --然后用bcp从全局临时表导出到文本文件
  set @sql='bcp "'+@tbname+'" out "c:\aa.txt" /s"(local)" /p"" /c'
  exec master..xp_cmdshell @sql

  --删除临时表
  exec('drop table '+@tbname)


6 个解决方案

#1


學習~~

#2


UP 

#3


#4



********************导整个数据库*********************************************/
  用bcp实现的存储过程
  /*
  实现数据导入/导出的存储过程
  根据不同的参数,可以实现导入/导出整个数据库/单个表调用示例:
  --导出调用示例
  ----导出单个表
  exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',1
  ----导出整个数据库
  exec file2table 'zj','','','xzkh_sa','c:\docman',1

  --导入调用示例
  ----导入单个表
  exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',0
  ----导入整个数据库
  exec file2table 'zj','','','xzkh_sa','c:\docman',0

  */
  if exists(select 1 from sysobjects where name='file2table' and objectproperty(id,'isprocedure')=1)
  drop procedure file2table
  go
  create procedure file2table
  @servername varchar(200) --服务器名
  ,@username varchar(200) --用户名,如果用nt验证方式,则为空''
  ,@password varchar(200) --密码
  ,@tbname varchar(500) --数据库.dbo.表名,如果不指定:.dbo.表名,则导出数据库的所有用户表
  ,@filename varchar(1000) --导入/导出路径/文件名,如果@tbname参数指明是导出整个数据库,则这个参数是文件存放路径,文件名自动用表名.txt
  ,@isout bit --1为导出,0为导入
  as
  declare @sql varchar(8000)

  if @tbname like '%.%.%' --如果指定了表名,则直接导出单个表
  begin
  set @sql='bcp '+@tbname
  +case when @isout=1 then ' out ' else ' in ' end
  +' "'+@filename+'" /w'
  +' /s '+@servername
  +case when isnull(@username,'')='' then '' else ' /u '+@username end
  +' /p '+isnull(@password,'')
  exec master..xp_cmdshell @sql
  end
  else
  begin --导出整个数据库,定义游标,取出所有的用户表
  declare @m_tbname varchar(250)
  if right(@filename,1)<>'\' set @filename=@filename+'\'

  set @m_tbname='declare #tb cursor for select name from '+@tbname+'..sysobjects where xtype=''u'''
  exec(@m_tbname)
  open #tb
  fetch next from #tb into @m_tbname
  while @@fetch_status=0
  begin
  set @sql='bcp '+@tbname+'..'+@m_tbname
  +case when @isout=1 then ' out ' else ' in ' end
  +' "'+@filename+@m_tbname+'.txt " /w'
  +' /s '+@servername
  +case when isnull(@username,'')='' then '' else ' /u '+@username end
  +' /p '+isnull(@password,'')
  exec master..xp_cmdshell @sql
  fetch next from #tb into @m_tbname
  end
  close #tb
  deallocate #tb 
  end
  go

  /************* oracle **************/
  exec sp_addlinkedserver 'oraclesvr', 
  'oracle 7.3', 
  'msdaora', 
  'orcldb'
  go

  delete from openquery(mailser,'select * from yulin')

  select * from openquery(mailser,'select * from yulin')

  update openquery(mailser,'select * from yulin where id=15')set disorder=555,catago=888

  insert into openquery(mailser,'select disorder,catago from yulin')values(333,777)

  补充:

  对于用bcp导出,是没有字段名的.

  用openrowset导出,需要事先建好表.

  用openrowset导入,除access及excel外,均不支持非本机数据导入



从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句: 

/*===================================================================*/ 
--如果接受数据导入的表已经存在 
insert into 表 select * from 
OPENROWSET('MICROSOFT.JET.OLEDB.4.0' 
,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) 

--如果导入数据并生成表 
select * into 表 from 
OPENROWSET('MICROSOFT.JET.OLEDB.4.0' 
,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) 


/*===================================================================*/ 
--如果从SQL数据库中,导出数据到Excel,如果Excel文件已经存在,而且已经按照要接收的数据创建好表头,就可以简单的用: 
insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0' 
,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) 
select * from 表 


--如果Excel文件不存在,也可以用BCP来导成类Excel的文件,注意大小写: 
--导出表的情况 
EXEC master..xp_cmdshell 'bcp 数据库名.dbo.表名 out "c:\test.xls" /c -/S"服务器名" /U"用户名" -P"密码"' 

--导出查询的情况 
EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout "c:\test.xls" /c -/S"服务器名" /U"用户名" -P"密码"' 

说明. 

c:\test.xls 为导入/导出的Excel文件名. 
sheet1$ 为Excel文件的工作表名,一般要加上$才能正常使用. 



下面是导出真正Excel文件的方法: 


/*--数据导出EXCEL 

导出表中的数据到Excel,包含字段名,文件为真正的Excel文件 
,如果文件不存在,将自动创建文件 
,如果表不存在,将自动创建表 
基于通用性考虑,仅支持导出标准数据类型 
---*/ 

/*--调用示例 

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] 
GO 

create 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 lberr 

exec @err=sp_oamethod @obj,'open',null,@constr 
if @err<>0 goto lberr 

--创建表的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 lberr 

exec @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) 

return 

lberr: 
exec sp_oageterrorinfo 0,@src out,@desc out 
lbexit: 
select cast(@err as varbinary(4)) as 错误号 
,@src as 错误源,@desc as 错误描述 
select @sql,@constr,@fdlist 
go 

#5



*--数据导出EXCEL 

导出查询中的数据到Excel,包含字段名,文件为真正的Excel文件 
,如果文件不存在,将自动创建文件 
,如果表不存在,将自动创建表 
基于通用性考虑,仅支持导出标准数据类型 
--*/ 

/*--调用示例 

p_exporttb @sqlstr='select * from 地区资料' 
,@path='c:\',@fname='aa.xls',@sheetname='地区资料' 
--*/ 
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] 
GO 

create proc p_exporttb 
@sqlstr sysname, --查询语句,如果查询语句中使用了order by ,请加上top 100 percent,注意,如果导出表/视图,用上面的存储过程 
@path nvarchar(1000), --文件存放目录 
@fname nvarchar(250), --文件名 
@sheetname varchar(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='temp.xls' 
if isnull(@sheetname,'')='' set @sheetname=replace(@fname,'.','#') 

--检查文件是否已经存在 
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 lberr 

exec @err=sp_oamethod @obj,'open',null,@constr 
if @err<>0 goto lberr 

--创建表的SQL 
declare @tbname sysname 
set @tbname='##tmp_'+convert(varchar(38),newid()) 
set @sql='select * into ['+@tbname+'] from('+@sqlstr+') a' 
exec(@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 tempdb..syscolumns a left join tempdb..systypes b on a.xtype=b.xusertype 
where b.name not in('image','text','uniqueidentifier','sql_variant','ntext','varbinary','binary','timestamp') 
and a.id=(select id from tempdb..sysobjects where name=@tbname) 
select @sql='create table ['+@sheetname 
+']('+substring(@sql,2,8000)+')' 
,@fdlist=substring(@fdlist,2,8000) 

exec @err=sp_oamethod @obj,'execute',@out out,@sql 
if @err<>0 goto lberr 

exec @err=sp_oadestroy @obj 

--导入数据 
set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES 
;DATABASE='+@path+@fname+''',['+@sheetname+'$])' 

exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from ['+@tbname+']') 

set @sql='drop table ['+@tbname+']' 
exec(@sql) 
return 

lberr: 
exec sp_oageterrorinfo 0,@src out,@desc out 
lbexit: 
select cast(@err as varbinary(4)) as 错误号 
,@src as 错误源,@desc as 错误描述 
select @sql,@constr,@fdlist 
go 


SQL Server 阻止了对组件 \'Ad Hoc Distributed Queries\' 的访问 

    在Sql Server中查询一下Excel文件的时候出现问题:
SELECT *  FROM OPENROWSET( 'MICROSOFT.JET.OLEDB.4.0','Excel 8.0;IMEX=1;HDR=YES;DATABASE=D:\a.xls',[sheet1$])
    结果提示:
    SQL Server 阻止了对组件 'Ad Hoc Distributed Queries' 的 STATEMENT'OpenRowset/OpenDatasource' 的访问,因为此组件已作为此服务器安全配置的一部分而被关闭。系统管理员可以通过使用 sp_configure 启用 'Ad Hoc Distributed Queries'。有关启用 'Ad Hoc Distributed Queries' 的详细信息,请参阅 SQL Server 联机丛书中的 "外围应用配置器"。
查询相关资料,找到解决方法:

    启用Ad Hoc Distributed Queries:
exec sp_configure 'show advanced options',1
reconfigure
exec sp_configure 'Ad Hoc Distributed Queries',1
reconfigure
    使用完成后,关闭Ad Hoc Distributed Queries:
exec sp_configure 'Ad Hoc Distributed Queries',0
reconfigure
exec sp_configure 'show advanced options',0
reconfigure 


#6



熟悉SQL SERVER 2000的数据库管理员都知道,其DTS可以进行数据的导入导出,其实,我们也可以使用Transact-SQL语句进行导入导出操作。在Transact-SQL语句中,我们主要使用OpenDataSource函数、OPENROWSET 函数,关于函数的详细说明,请参考SQL联机帮助。利用下述方法,可以十分容易地实现SQL SERVER、ACCESS、EXCEL数据转换,详细说明如下:

一、SQL SERVER 和ACCESS的数据导入导出
常规的数据导入导出:
使用DTS向导迁移你的Access数据到SQL Server,你可以使用这些步骤: 
  ○1在SQL SERVER企业管理器中的Tools(工具)菜单上,选择Data Transformation 
  ○2Services(数据转换服务),然后选择  czdImport Data(导入数据)。 
  ○3在Choose a Data Source(选择数据源)对话框中选择Microsoft Access as the Source,然后键入你的.mdb数据库(.mdb文件扩展名)的文件名或通过浏览寻找该文件。 
  ○4在Choose a Destination(选择目标)对话框中,选择Microsoft OLE DB Prov ider for SQL Server,选择数据库服务器,然后单击必要的验证方式。 
  ○5在Specify Table Copy(指定表格复制)或Query(查询)对话框中,单击Copy tables(复制表格)。 
    ○6在Select Source Tables(选择源表格)对话框中,单击Select All(全部选定)。下一步,完成。

Transact-SQL语句进行导入导出:
1.在SQL SERVER里查询access数据:

SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\DB.mdb";User ID=Admin;Password=')...表名

2.将access导入SQL server
在SQL SERVER 里运行:
SELECT *
INTO newtable
FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0', 
      'Data Source="c:\DB.mdb";User ID=Admin;Password=' )...表名

3.将SQL SERVER表里的数据插入到Access表中
在SQL SERVER 里运行:
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source=" c:\DB.mdb";User ID=Admin;Password=')...表名 
(列名1,列名2)
select 列名1,列名2  from  sql表

实例:
insert into  OPENROWSET('Microsoft.Jet.OLEDB.4.0', 
   'C:\db.mdb';'admin';'', Test) 
select id,name from Test


INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'c:\trade.mdb'; 'admin'; '', 表名)
SELECT *
FROM sqltablename

二、SQL SERVER 和EXCEL的数据导入导出

1、在SQL SERVER里查询Excel数据:

SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

下面是个查询的示例,它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。
SELECT * 
FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

2、将Excel的数据导入SQL server :
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

实例:
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

3、将SQL SERVER中查询到的数据导成一个Excel文件
T-SQL代码:
EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'
参数:S 是SQL服务器名;U是用户;P是密码
说明:还可以导出文本文件等多种格式

实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'

 EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'

在VB6中应用ADO导出EXCEL文件代码: 
Dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"


4、在SQL SERVER里往Excel插入数据:

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)

T-SQL代码:
INSERT INTO  
 OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',  
 'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]  
 (bestand, produkt) VALUES (20, 'Test')  

总结:利用以上语句,我们可以方便地将SQL SERVER、ACCESS和EXCEL电子表格软件中的数据进行转换,为我们提供了极大方便!



#1


學習~~

#2


UP 

#3


#4



********************导整个数据库*********************************************/
  用bcp实现的存储过程
  /*
  实现数据导入/导出的存储过程
  根据不同的参数,可以实现导入/导出整个数据库/单个表调用示例:
  --导出调用示例
  ----导出单个表
  exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',1
  ----导出整个数据库
  exec file2table 'zj','','','xzkh_sa','c:\docman',1

  --导入调用示例
  ----导入单个表
  exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',0
  ----导入整个数据库
  exec file2table 'zj','','','xzkh_sa','c:\docman',0

  */
  if exists(select 1 from sysobjects where name='file2table' and objectproperty(id,'isprocedure')=1)
  drop procedure file2table
  go
  create procedure file2table
  @servername varchar(200) --服务器名
  ,@username varchar(200) --用户名,如果用nt验证方式,则为空''
  ,@password varchar(200) --密码
  ,@tbname varchar(500) --数据库.dbo.表名,如果不指定:.dbo.表名,则导出数据库的所有用户表
  ,@filename varchar(1000) --导入/导出路径/文件名,如果@tbname参数指明是导出整个数据库,则这个参数是文件存放路径,文件名自动用表名.txt
  ,@isout bit --1为导出,0为导入
  as
  declare @sql varchar(8000)

  if @tbname like '%.%.%' --如果指定了表名,则直接导出单个表
  begin
  set @sql='bcp '+@tbname
  +case when @isout=1 then ' out ' else ' in ' end
  +' "'+@filename+'" /w'
  +' /s '+@servername
  +case when isnull(@username,'')='' then '' else ' /u '+@username end
  +' /p '+isnull(@password,'')
  exec master..xp_cmdshell @sql
  end
  else
  begin --导出整个数据库,定义游标,取出所有的用户表
  declare @m_tbname varchar(250)
  if right(@filename,1)<>'\' set @filename=@filename+'\'

  set @m_tbname='declare #tb cursor for select name from '+@tbname+'..sysobjects where xtype=''u'''
  exec(@m_tbname)
  open #tb
  fetch next from #tb into @m_tbname
  while @@fetch_status=0
  begin
  set @sql='bcp '+@tbname+'..'+@m_tbname
  +case when @isout=1 then ' out ' else ' in ' end
  +' "'+@filename+@m_tbname+'.txt " /w'
  +' /s '+@servername
  +case when isnull(@username,'')='' then '' else ' /u '+@username end
  +' /p '+isnull(@password,'')
  exec master..xp_cmdshell @sql
  fetch next from #tb into @m_tbname
  end
  close #tb
  deallocate #tb 
  end
  go

  /************* oracle **************/
  exec sp_addlinkedserver 'oraclesvr', 
  'oracle 7.3', 
  'msdaora', 
  'orcldb'
  go

  delete from openquery(mailser,'select * from yulin')

  select * from openquery(mailser,'select * from yulin')

  update openquery(mailser,'select * from yulin where id=15')set disorder=555,catago=888

  insert into openquery(mailser,'select disorder,catago from yulin')values(333,777)

  补充:

  对于用bcp导出,是没有字段名的.

  用openrowset导出,需要事先建好表.

  用openrowset导入,除access及excel外,均不支持非本机数据导入



从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句: 

/*===================================================================*/ 
--如果接受数据导入的表已经存在 
insert into 表 select * from 
OPENROWSET('MICROSOFT.JET.OLEDB.4.0' 
,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) 

--如果导入数据并生成表 
select * into 表 from 
OPENROWSET('MICROSOFT.JET.OLEDB.4.0' 
,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) 


/*===================================================================*/ 
--如果从SQL数据库中,导出数据到Excel,如果Excel文件已经存在,而且已经按照要接收的数据创建好表头,就可以简单的用: 
insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0' 
,'Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$) 
select * from 表 


--如果Excel文件不存在,也可以用BCP来导成类Excel的文件,注意大小写: 
--导出表的情况 
EXEC master..xp_cmdshell 'bcp 数据库名.dbo.表名 out "c:\test.xls" /c -/S"服务器名" /U"用户名" -P"密码"' 

--导出查询的情况 
EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout "c:\test.xls" /c -/S"服务器名" /U"用户名" -P"密码"' 

说明. 

c:\test.xls 为导入/导出的Excel文件名. 
sheet1$ 为Excel文件的工作表名,一般要加上$才能正常使用. 



下面是导出真正Excel文件的方法: 


/*--数据导出EXCEL 

导出表中的数据到Excel,包含字段名,文件为真正的Excel文件 
,如果文件不存在,将自动创建文件 
,如果表不存在,将自动创建表 
基于通用性考虑,仅支持导出标准数据类型 
---*/ 

/*--调用示例 

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] 
GO 

create 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 lberr 

exec @err=sp_oamethod @obj,'open',null,@constr 
if @err<>0 goto lberr 

--创建表的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 lberr 

exec @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) 

return 

lberr: 
exec sp_oageterrorinfo 0,@src out,@desc out 
lbexit: 
select cast(@err as varbinary(4)) as 错误号 
,@src as 错误源,@desc as 错误描述 
select @sql,@constr,@fdlist 
go 

#5



*--数据导出EXCEL 

导出查询中的数据到Excel,包含字段名,文件为真正的Excel文件 
,如果文件不存在,将自动创建文件 
,如果表不存在,将自动创建表 
基于通用性考虑,仅支持导出标准数据类型 
--*/ 

/*--调用示例 

p_exporttb @sqlstr='select * from 地区资料' 
,@path='c:\',@fname='aa.xls',@sheetname='地区资料' 
--*/ 
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] 
GO 

create proc p_exporttb 
@sqlstr sysname, --查询语句,如果查询语句中使用了order by ,请加上top 100 percent,注意,如果导出表/视图,用上面的存储过程 
@path nvarchar(1000), --文件存放目录 
@fname nvarchar(250), --文件名 
@sheetname varchar(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='temp.xls' 
if isnull(@sheetname,'')='' set @sheetname=replace(@fname,'.','#') 

--检查文件是否已经存在 
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 lberr 

exec @err=sp_oamethod @obj,'open',null,@constr 
if @err<>0 goto lberr 

--创建表的SQL 
declare @tbname sysname 
set @tbname='##tmp_'+convert(varchar(38),newid()) 
set @sql='select * into ['+@tbname+'] from('+@sqlstr+') a' 
exec(@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 tempdb..syscolumns a left join tempdb..systypes b on a.xtype=b.xusertype 
where b.name not in('image','text','uniqueidentifier','sql_variant','ntext','varbinary','binary','timestamp') 
and a.id=(select id from tempdb..sysobjects where name=@tbname) 
select @sql='create table ['+@sheetname 
+']('+substring(@sql,2,8000)+')' 
,@fdlist=substring(@fdlist,2,8000) 

exec @err=sp_oamethod @obj,'execute',@out out,@sql 
if @err<>0 goto lberr 

exec @err=sp_oadestroy @obj 

--导入数据 
set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES 
;DATABASE='+@path+@fname+''',['+@sheetname+'$])' 

exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from ['+@tbname+']') 

set @sql='drop table ['+@tbname+']' 
exec(@sql) 
return 

lberr: 
exec sp_oageterrorinfo 0,@src out,@desc out 
lbexit: 
select cast(@err as varbinary(4)) as 错误号 
,@src as 错误源,@desc as 错误描述 
select @sql,@constr,@fdlist 
go 


SQL Server 阻止了对组件 \'Ad Hoc Distributed Queries\' 的访问 

    在Sql Server中查询一下Excel文件的时候出现问题:
SELECT *  FROM OPENROWSET( 'MICROSOFT.JET.OLEDB.4.0','Excel 8.0;IMEX=1;HDR=YES;DATABASE=D:\a.xls',[sheet1$])
    结果提示:
    SQL Server 阻止了对组件 'Ad Hoc Distributed Queries' 的 STATEMENT'OpenRowset/OpenDatasource' 的访问,因为此组件已作为此服务器安全配置的一部分而被关闭。系统管理员可以通过使用 sp_configure 启用 'Ad Hoc Distributed Queries'。有关启用 'Ad Hoc Distributed Queries' 的详细信息,请参阅 SQL Server 联机丛书中的 "外围应用配置器"。
查询相关资料,找到解决方法:

    启用Ad Hoc Distributed Queries:
exec sp_configure 'show advanced options',1
reconfigure
exec sp_configure 'Ad Hoc Distributed Queries',1
reconfigure
    使用完成后,关闭Ad Hoc Distributed Queries:
exec sp_configure 'Ad Hoc Distributed Queries',0
reconfigure
exec sp_configure 'show advanced options',0
reconfigure 


#6



熟悉SQL SERVER 2000的数据库管理员都知道,其DTS可以进行数据的导入导出,其实,我们也可以使用Transact-SQL语句进行导入导出操作。在Transact-SQL语句中,我们主要使用OpenDataSource函数、OPENROWSET 函数,关于函数的详细说明,请参考SQL联机帮助。利用下述方法,可以十分容易地实现SQL SERVER、ACCESS、EXCEL数据转换,详细说明如下:

一、SQL SERVER 和ACCESS的数据导入导出
常规的数据导入导出:
使用DTS向导迁移你的Access数据到SQL Server,你可以使用这些步骤: 
  ○1在SQL SERVER企业管理器中的Tools(工具)菜单上,选择Data Transformation 
  ○2Services(数据转换服务),然后选择  czdImport Data(导入数据)。 
  ○3在Choose a Data Source(选择数据源)对话框中选择Microsoft Access as the Source,然后键入你的.mdb数据库(.mdb文件扩展名)的文件名或通过浏览寻找该文件。 
  ○4在Choose a Destination(选择目标)对话框中,选择Microsoft OLE DB Prov ider for SQL Server,选择数据库服务器,然后单击必要的验证方式。 
  ○5在Specify Table Copy(指定表格复制)或Query(查询)对话框中,单击Copy tables(复制表格)。 
    ○6在Select Source Tables(选择源表格)对话框中,单击Select All(全部选定)。下一步,完成。

Transact-SQL语句进行导入导出:
1.在SQL SERVER里查询access数据:

SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\DB.mdb";User ID=Admin;Password=')...表名

2.将access导入SQL server
在SQL SERVER 里运行:
SELECT *
INTO newtable
FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0', 
      'Data Source="c:\DB.mdb";User ID=Admin;Password=' )...表名

3.将SQL SERVER表里的数据插入到Access表中
在SQL SERVER 里运行:
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source=" c:\DB.mdb";User ID=Admin;Password=')...表名 
(列名1,列名2)
select 列名1,列名2  from  sql表

实例:
insert into  OPENROWSET('Microsoft.Jet.OLEDB.4.0', 
   'C:\db.mdb';'admin';'', Test) 
select id,name from Test


INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'c:\trade.mdb'; 'admin'; '', 表名)
SELECT *
FROM sqltablename

二、SQL SERVER 和EXCEL的数据导入导出

1、在SQL SERVER里查询Excel数据:

SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

下面是个查询的示例,它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。
SELECT * 
FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

2、将Excel的数据导入SQL server :
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

实例:
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

3、将SQL SERVER中查询到的数据导成一个Excel文件
T-SQL代码:
EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'
参数:S 是SQL服务器名;U是用户;P是密码
说明:还可以导出文本文件等多种格式

实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'

 EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'

在VB6中应用ADO导出EXCEL文件代码: 
Dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"


4、在SQL SERVER里往Excel插入数据:

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)

T-SQL代码:
INSERT INTO  
 OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',  
 'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]  
 (bestand, produkt) VALUES (20, 'Test')  

总结:利用以上语句,我们可以方便地将SQL SERVER、ACCESS和EXCEL电子表格软件中的数据进行转换,为我们提供了极大方便!