导出SQLServer数据到Excel文件中

概述目前主要提到了三种办法，一种在程序中调用DTS，二种使用SQL SERVER带的BCP功能，三种使用openrowset。 具体看下面： 这是利用BCP来做的， 使用SQLServer自带的bcp命令—— bcp 数据库名.dbo.表名 out 文件名 –c –q –S”服务器名” –U”用户名” –P”密码” bcp ”select 语句” queryout 文件名 –c –q –S”服务器名”

目前主要提到了三种办法，一种在程序中调用DTS，二种使用sql SERVER带的BCP功能，三种使用openrowset。
具体看下面：
这是利用BCP来做的，

使用sqlServer自带的bcp命令——
bcp 数据库名.dbo.表名 out 文件名 –c –q –S”服务器名” –U”用户名” –P”密码”

bcp ”select 语句” queryout 文件名 –c –q –S”服务器名” –U”用户名” –P”密码”

导出整张表：
EXEC master..xp_cmdshell 'bcp "inter_custom.dbo.out_ck1" out c:\Temp.xls -c -q -S"PETER" -U"sa" -P"davey@citiz.net"'

根据query语句导出：
EXEC master..xp_cmdshell 'bcp "select * from inter_custom.dbo.out_ck1" queryout c:\Temp.xls -c -q -S"PETER" -U"sa" -P"davey@citiz.net"'
利用bcp要求数据库的服务器名，数据库用户名和密码，这些必须传到程序中。方法可以有很多中，大概的例子，可以看：
http://www.cnblogs.com/kevin/archive/2004/09/21/45351.html

利用openrowset可以写存储过程，可以看下面的例子
引自CSDN的邹建大大

 

if   exists  ( select   *   from  dbo.sysobjects  where  ID  =   object_ID (N @H_502_122@' @H_502_122@[dbo].[p_exporttb] @H_502_122@' )  and   OBJECTPROPERTY (ID, N @H_502_122@' @H_502_122@IsProcedure @H_502_122@' )  =   1 )
drop   procedure   @H_502_122@[ @H_502_122@dbo @H_502_122@] . @H_502_122@[ @H_502_122@p_exporttb @H_502_122@]
GO

/* --数据导出EXCEL

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

--邹建 2003.10(引用请保留此信息)-- */

/* --调用示例

p_exporttb @sqlstr='select * from 地区资料'
,@path='c:\',@fname='aa.xls',@sheetname='地区资料'
-- */
create   proc  p_exporttb
@sqlstr   varchar ( 8000 ), -- 查询语句,如果查询语句中使用了order by ,请加上top 100 percent
@path   nvarchar ( 1000 ), -- 文件存放目录
@fname   nvarchar ( 250 ), -- 文件名
@sheetname   varchar ( 250 ) = @H_502_122@'' -- 要创建的工作表名,默认为文件名
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 , @H_502_122@'' ) = @H_502_122@'' set   @fname = @H_502_122@' @H_502_122@temp.xls @H_502_122@'
if   isnull ( @sheetname , @H_502_122@'' ) = @H_502_122@''   set   @sheetname = replace ( @fname , @H_502_122@' @H_502_122@. @H_502_122@' , @H_502_122@' @H_502_122@# @H_502_122@' )

-- 检查文件是否已经存在
if   right ( @path , 1 ) <> @H_502_122@' @H_502_122@\ @H_502_122@'   set   @path = @path + @H_502_122@' @H_502_122@\ @H_502_122@'
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 = @H_502_122@' @H_502_122@DRIVER={Microsoft Excel Driver (*.xls)};DSN= @H_502_122@'''' @H_502_122@;Readonly=FALSE @H_502_122@'
+ @H_502_122@' @H_502_122@;CREATE_DB=" @H_502_122@' + @sql + @H_502_122@' @H_502_122@";DBQ= @H_502_122@' + @sql
else
set   @constr = @H_502_122@' @H_502_122@ProvIDer=Microsoft.Jet.olEDB.4.0;Extended PropertIEs="Excel 8.0;HDR=YES @H_502_122@'
+ @H_502_122@' @H_502_122@;DATABASE= @H_502_122@' + @sql + @H_502_122@' @H_502_122@" @H_502_122@'

-- 连接数据库
exec   @err = sp_oacreate  @H_502_122@' @H_502_122@adodb.connection @H_502_122@' , @obj  out
if   @err <> 0   goto  lberr

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

-- 创建表的sql
declare   @tbname  sysname
set   @tbname = @H_502_122@' @H_502_122@##tmp_ @H_502_122@' + convert ( varchar ( 38 ), newID ())
set   @sql = @H_502_122@' @H_502_122@select * into [ @H_502_122@' + @tbname + @H_502_122@' @H_502_122@] from( @H_502_122@' + @sqlstr + @H_502_122@' @H_502_122@) a @H_502_122@'
exec ( @sql )

select   @sql = @H_502_122@'' , @fdList = @H_502_122@''
select   @fdList = @fdList + @H_502_122@' @H_502_122@,[ @H_502_122@' + a.name + @H_502_122@' @H_502_122@] @H_502_122@'
, @sql = @sql + @H_502_122@' @H_502_122@,[ @H_502_122@' + a.name + @H_502_122@' @H_502_122@]  @H_502_122@'
+ case
when  b.name  like   @H_502_122@' @H_502_122@%char @H_502_122@'
then   case   when  a.length > 255   then   @H_502_122@' @H_502_122@memo @H_502_122@'
else   @H_502_122@' @H_502_122@text( @H_502_122@' + cast (a.length  as   varchar ) + @H_502_122@' @H_502_122@) @H_502_122@'   end
when  b.name  like   @H_502_122@' @H_502_122@%int @H_502_122@'   or  b.name = @H_502_122@' @H_502_122@bit @H_502_122@'   then   @H_502_122@' @H_502_122@int @H_502_122@'
when  b.name  like   @H_502_122@' @H_502_122@%datetime @H_502_122@'   then   @H_502_122@' @H_502_122@datetime @H_502_122@'
when  b.name  like   @H_502_122@' @H_502_122@%money @H_502_122@'   then   @H_502_122@' @H_502_122@money @H_502_122@'
when  b.name  like   @H_502_122@' @H_502_122@%text @H_502_122@'   then   @H_502_122@' @H_502_122@memo @H_502_122@'
else  b.name  end
FROM  tempdb..syscolumns a  left   join  tempdb..systypes b  on  a.xtype = b.xusertype
where  b.name  not   in ( @H_502_122@' @H_502_122@image @H_502_122@' , @H_502_122@' @H_502_122@uniqueIDentifIEr @H_502_122@' , @H_502_122@' @H_502_122@sql_variant @H_502_122@' , @H_502_122@' @H_502_122@varbinary @H_502_122@' , @H_502_122@' @H_502_122@binary @H_502_122@' , @H_502_122@' @H_502_122@timestamp @H_502_122@' )
and  a.ID = ( select  ID  from  tempdb..sysobjects  where  name = @tbname )

if   @@rowcount = 0   return

select   @sql = @H_502_122@' @H_502_122@create table [ @H_502_122@' + @sheetname
+ @H_502_122@' @H_502_122@]( @H_502_122@' + substring ( @sql , 2 , 8000 ) + @H_502_122@' @H_502_122@) @H_502_122@'
, @fdList = substring ( @fdList , 8000 )

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

exec   @err = sp_oadestroy  @obj

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

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

set   @sql = @H_502_122@' @H_502_122@drop table [ @H_502_122@' + @tbname + @H_502_122@' @H_502_122@] @H_502_122@'
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

从DataGrids中导出数据到Excel

DataSet结果导出到Excel

Export DataSets to Excel...

导出到Excel的四种方法

关于从net程序如何导出到excel微软的msdn有专门的讲述，在上面可以搜到

总结

以上是内存溢出为你收集整理的导出SQLServer数据到Excel文件中全部内容，希望文章能够帮你解决导出SQLServer数据到Excel文件中所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。