转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 数据库 >> Sql Server >> 正文
T-SQL 存储过程创建 PDF 格式文件(报表)    热     

T-SQL 存储过程创建 PDF 格式文件(报表)

作者：闵涛 文章来源：闵涛的学习笔记 点击数：2323 更新时间：2007/11/14 12:01:11
'' '''' + @a2 + '''' /ProcSet [ /'''' + CHAR(80) + CHAR(68) + CHAR (70) + '''' /Text ]'''') INSERT INTO #pdf (code) VALUES (@a2) INSERT INTO #pdf (code) VALUES (@end) INSERT INTO #text(code) (SELECT code FROM psopdf) SELECT @x = COUNT(*) FROM #text SELECT @x = (@x / 60) + 1 WHILE @nopg < @x BEGIN DECLARE SysKursor INSENSITIVE SCROLL CURSOR FOR SELECT SUBSTRING((code + SPACE(81)), 1, 80) FROM #text WHERE idnumber BETWEEN ((@nopg * 60) + 1) AND ((@nopg + 1) * 60 ) FOR READ ONLY OPEN SysKursor FETCH NEXT FROM SysKursor INTO @trenutniRed SELECT @object = @object + 1 SELECT @page = @page + '''' '''' + CAST(@object AS VARCHAR) + @ad SELECT @len = LEN(@object) + LEN(@object + 1) INSERT INTO #pdf (code) VALUES (CAST(@object AS VARCHAR) + @beg) INSERT INTO #pdf (code) VALUES (@a1) INSERT INTO #pdf (code) VALUES (''''/Type /Page'''') INSERT INTO #pdf (code) VALUES (''''/Parent 3'''' + @ad) INSERT INTO #pdf (code) VALUES (''''/Resources 6'''' + @ad) SELECT @object = @object + 1 INSERT INTO #pdf (code) VALUES (''''/Contents '''' + CAST(@object AS VARCHAR) + @ad) INSERT INTO #pdf (code) VALUES (@a2) INSERT INTO #pdf (code) VALUES (@end) SELECT @ofset = @len + 86 + @ofset INSERT INTO #xref(code) (SELECT SUBSTRING(''''0000000000'''' + CAST(@ofset AS VARCHAR), LEN(''''0000000000'''' + CAST(@ofset AS VARCHAR)) - 9, LEN(''''0000000000'''' + CAST(@ofset AS VARCHAR))) + @xstr) INSERT INTO #pdf (code) VALUES (CAST(@object AS VARCHAR) + @beg) INSERT INTO #pdf (code) VALUES (@a1) SELECT @object = @object + 1 INSERT INTO #pdf (code) VALUES (''''/Length '''' + CAST(@object AS VARCHAR) + @ad) INSERT INTO #pdf (code) VALUES (@a2) INSERT INTO #pdf (code) VALUES (''''stream'''') INSERT INTO #pdf (code) VALUES (''''BT'''') INSERT INTO #pdf (code) VALUES (''''/F1 10 Tf'''') INSERT INTO #pdf (code) VALUES (''''1 0 0 1 50 802 Tm'''') INSERT INTO #pdf (code) VALUES (''''12 TL'''') WHILE @@Fetch_Status = 0 BEGIN INSERT INTO #pdf (code) VALUES (''''T* ('''' + @trenutniRed + '''') Tj'''') FETCH NEXT FROM SysKursor INTO @trenutniRed END INSERT INTO #pdf (code) VALUES (''''ET'''') INSERT INTO #pdf (code) VALUES (''''endstream'''') INSERT INTO #pdf (code) VALUES (@end) SELECT @rows = (SELECT COUNT(*) FROM #text WHERE idnumber BETWEEN ((@nopg * 60) + 1) AND ((@nopg + 1) * 60 ))* 90 + 45 SELECT @nopg = @nopg + 1 SELECT @len = LEN(@object) + LEN(@object - 1) SELECT @ofset = @len + 57 + @ofset + @rows INSERT INTO #xref(code) (SELECT SUBSTRING(''''0000000000'''' + CAST(@ofset AS VARCHAR), LEN(''''0000000000'''' + CAST(@ofset AS VARCHAR)) - 9, LEN(''''0000000000'''' + CAST(@ofset AS VARCHAR))) + @xstr) INSERT INTO #pdf (code) VALUES (CAST(@object AS VARCHAR) + @beg) INSERT INTO #pdf (code) VALUES (@rows) INSERT INTO #pdf (code) VALUES (@end) SELECT @len = LEN(@object) + LEN(@rows) SELECT @ofset = @len + 18 + @ofset INSERT INTO #xref(code) (SELECT SUBSTRING(''''0000000000'''' + CAST(@ofset AS VARCHAR), LEN(''''0000000000'''' + CAST(@ofset AS VARCHAR)) - 9, LEN(''''0000000000'''' + CAST(@ofset AS VARCHAR))) + @xstr) CLOSE SysKursor DEALLOCATE SysKursor END INSERT INTO #pdf (code) VALUES (''''2'''' + @beg) INSERT INTO #pdf (code) VALUES (@a1) INSERT INTO #pdf (code) VALUES (''''/Type /Catalog'''') INSERT INTO #pdf (code) VALUES (''''/Pages 3'''' + @ad) INSERT INTO #pdf (code) VALUES (''''/PageLayout /OneColumn'''') INSERT INTO #pdf (code) VALUES (@a2) INSERT INTO #pdf (code) VALUES (@end) UPDATE #xref SET code = (SELECT code FROM #xref WHERE idnumber = (SELECT MAX(idnumber) FROM #xref)) WHERE idnumber = 5 DELETE FROM #xref WHERE idnumber = (SELECT MAX(idnumber) FROM #xref) INSERT INTO #pdf (code) VALUES (''''3'''' + @beg) INSERT INTO #pdf (code) VALUES (@a1) INSERT INTO #pdf (code) VALUES (''''/Type /Pages'''') INSERT INTO #pdf (code) VALUES (''''/Count '''' + CAST(@nopg AS VARCHAR)) INSERT INTO #pdf (code) VALUES (''''/MediaBox [ 0 0 595 842 ]'''') INSERT INTO #pdf (code) VALUES (''''/Kids ['''' + @page + '''' ]'''') INSERT INTO #pdf (code) VALUES (@a2) INSERT INTO #pdf (code) VALUES (@end) SELECT @ofset = @ofset + 79 UPDATE #xref SET code =(SELECT SUBSTRING(''''0000000000'''' + CAST(@ofset AS VARCHAR), LEN(''''0000000000'''' + CAST(@ofset AS VARCHAR)) - 9, LEN(''''0000000000'''' + CAST(@ofset AS VARCHAR))) + @xstr) WHERE idnumber = 6 INSERT INTO #xref(code) VALUES (''''trailer'''') INSERT INTO #xref(code) VALUES (@a1) SELECT @object = @object + 1 UPDATE #xref SET code = ''''0 '''' + CAST(@object AS VARCHAR) WHERE idnumber = 2 INSERT INTO #xref(code) VALUES (''''/Size '''' + CAST(@object AS VARCHAR)) INSERT INTO #xref(code) VALUES (''''/Root 2'''' + @ad) INSERT INTO #xref(code) VALUES (''''/Info 1'''' + @ad) INSERT INTO #xref(code) VALUES (@a2) INSERT INTO #xref(code) VALUES (''''startxref'''') SELECT @len = LEN(@nopg) + LEN(@page) SELECT @ofset = @len + 86 + @ofset INSERT INTO #xref(code) VALUES (@ofset) INSERT INTO #xref(code) VALUES (''''%%'''' + CHAR(69) + CHAR (79) + CHAR(70)) INSERT INTO #pdf (code) (SELECT code FROM #xref) --SELECT code FROM #pdf SELECT @trenutniRed = ''''del ''''+ @pdf EXECUTE @ole = sp_OACreate ''''Scripting.FileSystemObject'''', @fs OUT EXEC master..xp_cmdshell @trenutniRed, NO_OUTPUT EXECUTE @ole = sp_OAMethod @fs, ''''OpenTextFile'''', @file OUT, @pdf, 8, 1 DECLARE SysKursor INSENSITIVE SCROLL CURSOR FOR SELECT code FROM #pdf ORDER BY idnumber FOR READ ONLY OPEN SysKursor FETCH NEXT FROM SysKursor INTO @trenutniRed WHILE @@Fetch_Status = 0 BEGIN EXECUTE @ole = sp_OAMethod @file, ''''WriteLine'''', Null, @trenutniRed FETCH NEXT FROM SysKursor INTO @trenutniRed END CLOSE SysKursor DEALLOCATE SysKursor DELETE FROM psopdf EXECUTE @ole = sp_OADestroy @file EXECUTE @ole = sp_OADestroy @fs

 

上一页  [1] [2] 


[聊天工具]遭Adobe反对 Office 2007被迫放弃PDF支持  [常用软件]AdobePDF存在危急漏洞殃及IE浏览器
[常用软件]CHM转换为PDF文件好轻松  [常用软件]ABC Amber CHM Converter：CHM转换PDF
[Delphi程序]Fastreport3.14的中文PDF输出  [JAVA开发]Java如何操作Word,Excel,PDF文档？
[JAVA开发]Java抽取Office、PDF的四件兵器  [电脑技术]简单小技巧教你把PDF文档看个清清楚楚
[电脑技术]编辑PDF文档得力工具Foxit PDF Editor  [Sql Server]求日期所属星座的 T-SQL UDF (用户自定义函数)
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Sql Server  · MySql
    · Access  · ORACLE
    · SyBase  · 其他
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台