sql导出excel:sql server 带列名导出至excel来源: 发布时间:星期六, 2008年12月20日 浏览:2次 评论:0
="t18">--sql语句就用下面
 存储过程/*--数据导出EXCEL 导出查询中 数据到Excel,包含字段名,文件为真正Excel文件,如果文件不存在,将自动创建文件 ,如果表不存在,将自动创建表 基于通用性考虑,仅支持导出标准数据类型 --邹建 2003.10--*/ /*--  举例p_exporttb @sqlstr='select * from 地区资料' ,@path='c:\',@fname='aa.xls',@sheetname='地区资料' --*/  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  ,@src nvarchar(255),@desc nvarchar(255),@out declare @obj ,@constr nvarchar(1000),@sql varchar(8000),@fdlist varchar(8000)--参数检测 isnull(@fname,'')=''  @fname='temp.xls' isnull(@sheetname,'')='' @sheetname=replace(@fname,'.','#')--检查文件是否已经存在 right(@path,1)<>'\' @path=@path+'\'create table #tb(a bit,b bit,c bit) @sql=@path+@fnameinsert o #tb exec master..xp_fileexist @sql--数据库创建语句 @sql=@path+@fname exists(select 1 from #tb where a=1) @constr='DRIVER={Microsoft Excel Driver (*.xls)};DSN='''';READONLY=FALSE'+';CREATE_DB="'+@sql+'";DBQ='+@sql  @constr='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 5.0;HDR=YES'+';DATABASE='+@sql+'"' --连接数据库 exec @err=sp_oacreate 'adodb.connection',@obj out @err<>0 goto lberrexec @err=sp_oamethod @obj,'open',null,@constr @err<>0 goto lberr--创建表 SQLdeclare @tbname sysname @tbname='##tmp_'+convert(varchar(38), id ) @sql='select * o ['+@tbname+'] from('+@sqlstr+') a'exec(@sql) select @sql='',@fdlist='' select @fdlist=@fdlist+','+a.name ,@sql=@sql+',['+a.name+'] ' +  when b.name in('char','nchar','varchar','nvarchar') then'text('+cast( when a.length>255 then 255 a.length end as varchar)+')'when b.name in('tyny ','','big','tiny') then ''when b.name in('smalldatetime','datetime') then 'datetime' when b.name in('money','smallmoney') then 'money' b.name endFROM tempdb..syscolumns a left join tempdb..systypes b _disibledevent='drop table ['+@tbname+']' exec(@sql)  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 0
相关文章读者评论
发表评论 |
 |
专注于互联网--专注于架构 |
最新标签 网站地图 文章索引 Rss订阅 |
