DB2通用翻页存储过程_DB2_数据库_程序员俱乐部

中国优秀的程序员网站程序员频道CXYCLUB技术地图
热搜:
更多>>
 
您所在的位置: 程序员俱乐部 > 数据库 > DB2 > DB2通用翻页存储过程

DB2通用翻页存储过程

 2013/8/9 17:20:19    程序员俱乐部  我要评论(0)
  • 摘要:在网上众多翻页存储过程中,选择了一个通用的存储过程,以下是改成DB2中的翻页存储过程:CREATEPROCEDUREKYJT.USP_A_FY(INPTBLNAMEVARCHAR(1000),--表名INPSHOWNAMEVARCHAR(1000),--需要显示字段名INPFLDNAMEVARCHAR(1000),--字段名(主表主键,不可重复)INPPAGESIZEINTEGER,--页尺寸如果为0默认返回前一千万条数据可以认为是返回所有数据INPPAGEINDEXINTEGER,-
  • 标签:过程 存储过程

在网上众多翻页存储过程中,选择了一个通用的存储过程,以下是改成DB2中的翻页存储过程:

    class="dp-sql">
  1. CREATE PROCEDURE KYJT.USP_A_FY(IN PTBLNAME VARCHAR(1000), --表名  
  2. IN PSHOWNAME VARCHAR(1000), -- 需要显示字段名  
  3. IN PFLDNAME VARCHAR(1000), --字段名(主表主键,不可重复)  
  4. IN PPAGESIZE INTEGER-- 页尺寸 如果为0 默认返回前一千万条数据 可以认为是返回所有数据  
  5. IN PPAGEINDEX INTEGER,--页码  
  6. IN PORDERTYPE INTEGER--设置排序类型, 非 0 值则降序(按主键排序)  
  7. IN PSTRWHERE VARCHAR(1000) --查询条件 (注意: 不要加 WHERE)  
  8. )  
  9. MODIFIES SQL DATA  
  10. DETERMINISTIC  
  11. LANGUAGE SQL  
  12. BEGIN 
  13. /**//*----------------------------------------------------------------  
  14. * Copyright (C) 2006 笑疯  
  15. * 版权所有。   
  16. *   
  17. * 过程功能描述:  
  18. * 多功能通用翻页查询语句(DB2)   
  19. *   
  20. * 创建标识:longping520@126.com(2006-5-1修改)  
  21. *   
  22. //-----------------------------------------------------------------------*/  
  23.  
  24. DECLARE C_STRSQL VARCHAR(6000); -- 主语句  
  25. DECLARE C_STRTMP VARCHAR(100); -- 临时变量  
  26. DECLARE C_STRORDER VARCHAR(400); -- 排序类型  
  27.  
  28. DECLARE bill_task CURSOR WITH RETURN TO CALLER FOR S1;  
  29.  
  30. --SET PSHOWNAME = PSHOWNAME || ',' || PFLDNAME;  
  31.  
  32. IF (PPAGEINDEX=0) THEN 
  33. SET PPAGEINDEX = 1;  
  34. END IF;  
  35.  
  36. IF (PPAGESIZE=0) THEN 
  37. SET PPAGESIZE = 10000000;  
  38. END IF;  
  39.  
  40. -- 设置排序规则  
  41. IF (PORDERTYPE<>0) THEN 
  42. SET C_STRTMP = '<(SELECT MIN';  
  43. SET C_STRORDER = ' ORDER BY ' || PFLDNAME || ' DESC';  
  44. ELSE 
  45. SET C_STRTMP = '>(SELECT MAX';  
  46. SET C_STRORDER = ' ORDER BY ' || PFLDNAME || ' ASC';  
  47. END IF;  
  48.  
  49. --  
  50. SET C_STRSQL = 'SELECT ' || PSHOWNAME || ' FROM '|| PTBLNAME || ' WHERE ' || PFLDNAME || ' ' || C_STRTMP || '( '|| 'TBLTMP.TTT ) FROM (SELECT ' || PFLDNAME || ' AS TTT FROM ' || PTBLNAME || ' ' || C_STRORDER || ' FETCH FIRST ' || CHAR((PPAGEINDEX-1)*PPAGESIZE) || ' ROWS ONLY) AS TBLTMP)' || C_STRORDER || ' FETCH FIRST ' || CHAR(PPAGESIZE) || ' ROWS ONLY';  
  51. --  
  52. IF (PSTRWHERE <> ''THEN 
  53. SET C_STRSQL = 'SELECT ' || PSHOWNAME || ' FROM '|| PTBLNAME || ' WHERE ' || PFLDNAME || ' ' || C_STRTMP || '( '|| 'TBLTMP.TTT ) FROM (SELECT ' || PFLDNAME || ' AS TTT FROM ' || PTBLNAME || ' WHERE ' || PSTRWHERE || ' '|| C_STRORDER || ' FETCH FIRST ' || CHAR((PPAGEINDEX-1)*PPAGESIZE) || ' ROWS ONLY) AS TBLTMP) AND ' || PSTRWHERE || ' ' || C_STRORDER || ' FETCH FIRST ' || CHAR(PPAGESIZE) || ' ROWS ONLY';  
  54. END IF;  
  55. --  
  56. IF (PPAGEINDEX=1) THEN 
  57.  
  58. SET C_STRTMP = '';  
  59.  
  60. IF (PSTRWHERE <> ''THEN 
  61. SET C_STRTMP = ' WHERE ' || PSTRWHERE;  
  62. END IF;  
  63.  
  64. SET C_STRSQL = 'SELECT ' || PSHOWNAME || ' FROM '|| PTBLNAME || ' ' || C_STRTMP || ' ' || C_STRORDER || ' FETCH FIRST ' || CHAR(PPAGESIZE) || ' ROWS ONLY';  
  65. END IF;  
  66.  
  67. PREPARE S1 FROM C_STRSQL;  
  68. --OPEN C_STRSQL;  
  69. --EXECUTE S1;  
  70. OPEN bill_task;  
  71.  
  72. END 
发表评论
用户名: 匿名