臭廉鴻御利

炎籾: T-SQL 贋刈狛殻幹秀 PDF 鯉塀猟周烏燕 [嬉咫云匈]

恬宀: 幎悟    扮寂: 2009-1-18 17:16
炎籾: T-SQL 贋刈狛殻幹秀 PDF 鯉塀猟周烏燕
  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.       

鞠村/廣過朔辛心寄夕
  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.   

鞠村/廣過朔辛心寄夕
  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 @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://bbs.jxadw.com/) Powered by Discuz! X3.2