目前主要提到了三種辦法，一種在程序中調用DTS，二種使用SQL SERVER帶的BCP功能，三種使用
openrowset。
具體看下面：
這是利用BCP來做的，
導出整張表：
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的鄒建大大
具體看下面：
這是利用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
'
[dbo].[p_exporttb]
'
)
and
OBJECTPROPERTY
(id, N
'
IsProcedure
'
)
=
1
)
drop procedure [ dbo ] . [ p_exporttb ]
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 ) = '' -- 要創建的工作表名,默認為文件名
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 8.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 like ' %char '
then case when a.length > 255 then ' memo '
else ' text( ' + cast (a.length as varchar ) + ' ) ' end
when b.name like ' %int ' or b.name = ' bit ' then ' int '
when b.name like ' %datetime ' then ' datetime '
when b.name like ' %money ' then ' money '
when b.name like ' %text ' then ' memo '
else b.name end
FROM tempdb..syscolumns a left join tempdb..systypes b on a.xtype = b.xusertype
where b.name not in ( ' image ' , ' uniqueidentifier ' , ' sql_variant ' , ' varbinary ' , ' binary ' , ' timestamp ' )
and a.id = ( select id from tempdb..sysobjects where name = @tbname )
if @@rowcount = 0 return
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 8.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
drop procedure [ dbo ] . [ p_exporttb ]
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 ) = '' -- 要創建的工作表名,默認為文件名
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 8.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 like ' %char '
then case when a.length > 255 then ' memo '
else ' text( ' + cast (a.length as varchar ) + ' ) ' end
when b.name like ' %int ' or b.name = ' bit ' then ' int '
when b.name like ' %datetime ' then ' datetime '
when b.name like ' %money ' then ' money '
when b.name like ' %text ' then ' memo '
else b.name end
FROM tempdb..syscolumns a left join tempdb..systypes b on a.xtype = b.xusertype
where b.name not in ( ' image ' , ' uniqueidentifier ' , ' sql_variant ' , ' varbinary ' , ' binary ' , ' timestamp ' )
and a.id = ( select id from tempdb..sysobjects where name = @tbname )
if @@rowcount = 0 return
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 8.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