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

深碍√TFBOYSˉ_ 2022-04-10 08:58 129阅读 0赞

This article explains how to create a a stored procedure that will in turn create a simple column based report in PDF without using any external tools or libraries (and their associated licensing costs!).  
　　  
　　SQL2PDF makes a PDF report from text inserted in the table psopdf ( nvarchar(80) ). First a table named psopdf should be created.  
　　  
　　CREATE TABLE psopdf (code NVARCHAR(80))  
　　After that create the stored procedure SQL2PDF.  
　　  
　　SQL2PDF.TXT  
　　  
　　And table psopdf has to be filled with your data as shown in examples below.  
　　At the end the stored procedure is called using the file name only (not extension).  
　　  
　　EXEC sql2pdf 'fileName'  
　　The result is in your C:\\ directory.  
　　  
　　EXAMPLE 1:

INSERT psopdf(code) SELECT SPACE(60) + 'COMPANY LTD'
    　　INSERT psopdf(code) SELECT SPACE(60) + 'COMPANY ADDRESS'
    　　INSERT psopdf(code) SELECT SPACE(60) + 'STREET NAME & No'
    　　INSERT psopdf(code) SELECT ' '
    　　INSERT psopdf(code) SELECT SPACE(34) + 'BILL OF SALE'
    　　INSERT psopdf(code) SELECT ' '
    　　INSERT psopdf(code) SELECT 'Product' + SPACE(10) + 'Quantity'+ SPACE(10) + 'Price' + SPACE(10) + 'Total'
    　　INSERT psopdf(code) SELECT REPLACE(SPACE(56), ' ', '_')
    　　INSERT psopdf(code) SELECT 'Product1' + SPACE(9) + '10.00 '+ SPACE(10) + '52.30' + SPACE(10) + '5230.0'
    　　INSERT psopdf(code) SELECT 'Product2' + SPACE(9) + '2.00 '　+ SPACE(10) + '10.00' + SPACE(10) + ' 20.0'
    　　INSERT psopdf(code) SELECT REPLACE(SPACE(56), ' ', '_')
    　　INSERT psopdf(code) SELECT SPACE(50) + '5250.0'

After INSERT call the stored procedure with file name demo2.  
　　  
　　EXEC sql2pdf 'demo2'  
　　The result is in your C:\\ directory.

![25113844-80a4814094404f53a57ec8c1ade97bda.gif][]

EXAMPLE 2:  
　　Second example uses a database pubs.  
　　  
　　USE pubs

INSERT psopdf(code) SELECT t1.au_lname + ' ' + t1.au_fname + ' ' + t1.phone
    　　+
    　　' ' + t1.address + ' ' + t1.city + ' ' + t1.state + ' ' + t1.zip FROM
    　　authors t1, authors t2

After INSERT call the stored procedure with file name demo1.  
　　  
　　EXEC sql2pdf 'demo1'  
　　>The result is in your C:\\ directory.

![25113944-ce0f2714d0aa41cb895566a23af33a16.gif][]

sql2pdf.txt

-- DROP PROCEDURE sql2pdf
    　　CREATE PROCEDURE sql2pdf
    　　@filename VARCHAR(100)
    　　AS
    　　CREATE TABLE #pdf (idnumber INT IDENTITY(1,1),code NVARCHAR(200))
    　　CREATE TABLE #xref (idnumber INT IDENTITY(1,1),code VARCHAR(30))
    　　CREATE TABLE #text (idnumber INT IDENTITY(1,1),code VARCHAR(200))
    　　
    　　DECLARE @end VARCHAR(7),
    　　@beg　 VARCHAR(7),
    　　@a1　　VARCHAR(3),
    　　@a2　　VARCHAR(3),
    　　@ad　　VARCHAR(5),
    　　@cr　　VARCHAR(8),
    　　@pr　　VARCHAR(9),
    　　@ti　　VARCHAR(6),
    　　@xstr　VARCHAR(10),
    　　@page　VARCHAR(8000),
    　　@pdf　 VARCHAR(100),
    　　@trenutniRed NVARCHAR(200),
    　　@rows　 INT,
    　　@ofset　INT,
    　　@len　　INT,
    　　@nopg　 INT,
    　　@fs INT,
    　　@ole　　INT,
    　　@x INT,
    　　@file　 INT,
    　　@object INT
    　　SELECT @pdf = 'C:\' + @filename + '.pdf'
    　　SET @page = ''
    　　SET @nopg = 0
    　　SET @object = 6
    　　SET @end = 'endobj'
    　　SET @beg = ' 0 obj'
    　　SET @a1 = '<<'
    　　SET @a2 = '>>'
    　　SET @ad = ' 0 R'
    　　SET @cr = CHAR(67) + CHAR(114) + CHAR (101) + CHAR(97) + CHAR(116) + CHAR (111) + CHAR(114)
    　　SET @pr = CHAR(80) + CHAR(114) + CHAR (111) + CHAR(100) + CHAR(117) + CHAR (99 ) + CHAR(101) + CHAR(114)
    　　SET @ti = CHAR(84) + CHAR(105) + CHAR (116) + CHAR(108) + CHAR(101)
    　　SET @xstr = ' 00000 n'
    　　SET @ofset = 396
    　　INSERT INTO #xref(code) VALUES ('xref')
    　　INSERT INTO #xref(code) VALUES ('0 10')
    　　INSERT INTO #xref(code) VALUES ('0000000000 65535 f')
    　　INSERT INTO #xref(code) VALUES ('0000000017' + @xstr)
    　　INSERT INTO #xref(code) VALUES ('0000000790' + @xstr)
    　　INSERT INTO #xref(code) VALUES ('0000000869' + @xstr)
    　　INSERT INTO #xref(code) VALUES ('0000000144' + @xstr)
    　　INSERT INTO #xref(code) VALUES ('0000000247' + @xstr)
    　　INSERT INTO #xref(code) VALUES ('0000000321' + @xstr)
    　　INSERT INTO #xref(code) VALUES ('0000000396' + @xstr)
    　　INSERT INTO #pdf (code) VALUES ('%' + CHAR(80) + CHAR(68) + CHAR (70) + '-1.2')
    　　INSERT INTO #pdf (code) VALUES ('%佑佑')
    　　INSERT INTO #pdf (code) VALUES ('1' + @beg)
    　　INSERT INTO #pdf (code) VALUES (@a1)
    　　INSERT INTO #pdf (code) VALUES ('/' + @cr + ' (Ivica Masar ' + CHAR(80) + CHAR(83) + CHAR (79) + CHAR(80) + CHAR(68) + CHAR (70) + ')')
    　　INSERT INTO #pdf (code) VALUES ('/' + @pr + ' (stored procedure for ms sql　pso@vip.hr)')
    　　INSERT INTO #pdf (code) VALUES ('/' + @ti + ' (SQL2' + CHAR(80) + CHAR(68) + CHAR (70) + ')')
    　　INSERT INTO #pdf (code) VALUES (@a2)
    　　INSERT INTO #pdf (code) VALUES (@end)
    　　INSERT INTO #pdf (code) VALUES ('4' + @beg)
    　　INSERT INTO #pdf (code) VALUES (@a1)
    　　INSERT INTO #pdf (code) VALUES ('/Type /Font')
    　　INSERT INTO #pdf (code) VALUES ('/Subtype /Type1')
    　　INSERT INTO #pdf (code) VALUES ('/Name /F1')
    　　INSERT INTO #pdf (code) VALUES ('/Encoding 5' + @ad)
    　　INSERT INTO #pdf (code) VALUES ('/BaseFont /Courier')
    　　INSERT INTO #pdf (code) VALUES (@a2)
    　　INSERT INTO #pdf (code) VALUES (@end)
    　　INSERT INTO #pdf (code) VALUES ('5' + @beg)
    　　INSERT INTO #pdf (code) VALUES (@a1)
    　　INSERT INTO #pdf (code) VALUES ('/Type /Encoding')
    　　INSERT INTO #pdf (code) VALUES ('/BaseEncoding /WinAnsiEncoding')
    　　INSERT INTO #pdf (code) VALUES (@a2)
    　　INSERT INTO #pdf (code) VALUES (@end)
    　　INSERT INTO #pdf (code) VALUES ('6' + @beg)
    　　INSERT INTO #pdf (code) VALUES (@a1)
    　　INSERT INTO #pdf (code) VALUES ('　/Font ' + @a1 + ' /F1 4' + @ad + ' ' + @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

转：http://edu.xvna.com/html/20982.html

[25113844-80a4814094404f53a57ec8c1ade97bda.gif]: /images/20220401/c76e907bb4394d198a21f458926ba99f.png
[25113944-ce0f2714d0aa41cb895566a23af33a16.gif]: /images/20220401/f1e21ce45af24d0fa075dac83d48ddbb.png