表数据导出到excel并进行分页处理

表数据导出到excel并进行分页处理

ID:19893814

大小:42.00 KB

页数:6页

时间:2018-10-07

表数据导出到excel并进行分页处理_第1页
表数据导出到excel并进行分页处理_第2页
表数据导出到excel并进行分页处理_第3页
表数据导出到excel并进行分页处理_第4页
表数据导出到excel并进行分页处理_第5页
资源描述:

《表数据导出到excel并进行分页处理》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、USE[DBNAME]GO/******Object:StoredProcedure[dbo].[ExportToExcel]ScriptDate:03/18/201113:16:39******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGO/*********************************************************************************************************************导出数据到EXCEL中且每页为65535条数据,包

2、含字段名,文件为真正的Excel文件格式。如果文件不存在,将自动创建文件,存在将不导出。如果表不存在,将自动创建表。基于通用性考虑,仅支持导出标准数据类型。--Creatorbyzoujian2003.10--增加分页功能,每页65000条。--Addbyxiexiaoman--修改分页功能,每页65535条。--Addbyliujunxiong2011.03.18--1、修改在SQL2005/2008下配置项没有打开,解决权限的问题;--2、修改表带自增列导出报错的问题。--调用示例execExportToExcel@ExcSql='select*from[

3、TABLENAME]',@SavePath='D:',@FileName='Test.xls',@SheetName='[TABLENAME]'--存在的问题:--1、文件只能导出到服务器进行保存。***********************************************************************************************************************/CREATEproc[dbo].[ExportToExcel]@ExcSqlvarchar(8000),--查询语句,如果查询

4、语句中使用了orderby,请加上top100percent@SavePathnvarchar(1000),--文件存放目录@FileNamenvarchar(250),--文件名@SheetNamevarchar(250)=''--要创建的工作表名,默认为文件名asdeclare@errint,@srcnvarchar(255),@descnvarchar(255),@outintdeclare@objint,@constrnvarchar(1000),@sqlvarchar(8000),@fdlistvarchar(8000),@tmpsqlvarchar

5、(8000)declare@sheetcountint,@sheetnowint,@recordcountint,@recordnowintdeclare@sheetsqlvarchar(8000)--创建页的sqldeclare@pagesizeintset@pagesize=65535--Sheet分页的大小--参数检测ifisnull(@FileName,'')=''set@FileName='temp.xls'ifisnull(@SheetName,'')=''set@SheetName=replace(@FileName,'.','#')--检查文件

6、是否已经存在ifright(@SavePath,1)<>''set@SavePath=@SavePath+''createtable#tb(abit,bbit,cbit)set@sql=@SavePath+@FileNameinsertinto#tbexecmaster..xp_fileexist@sql--数据库创建语句set@sql=@SavePath+@FileNameifexists(select1from#tbwherea=1)set@constr='DRIVER={MicrosoftExcelDriver(*.xls)};DSN='''';RE

7、ADONLY=FALSE'+';CREATE_DB="'+@sql+'";DBQ='+@sqlelseset@constr='Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties="Excel8.0;HDR=YES'+';DATABASE='+@sql+'"'--打开配置项execsp_configure'showadvancedoptions',1;reconfigure;execsp_configure'OleAutomationProcedures',1;reconfigure;execsp_config

8、ure'AdHocDistribute

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。