DB2中翻页存储过程实例

使用DB2数据库的过程中，存储过程是一定会遇到的问题，本文将为您详细解疑DB2数据库中翻页存储过程，供您参考，希望能对您有所启迪。

创新互联建站专注为客户提供全方位的互联网综合服务，包含不限于成都网站建设、成都网站制作、双桥网络推广、微信平台小程序开发、双桥网络营销、双桥企业策划、双桥品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联建站为所有大学生创业者提供双桥建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com

CREATE PROCEDURE KYJT.USP_A_FY(IN PTBLNAME VARCHAR(1000),      --表名
                               IN PSHOWNAME VARCHAR(1000),       -- 需要显示字段名
                               IN PFLDNAME VARCHAR(1000),           --字段名(主表主键，不可重复)
                               IN PPAGESIZE INTEGER,                -- 页尺寸 如果为0 默认返回前一千万条数据 可以认为是返回所有数据
          IN PPAGEINDEX INTEGER,--页码
                               IN PORDERTYPE INTEGER,         --设置排序类型, 非 0 值则降序（按主键排序）
          IN PSTRWHERE VARCHAR(1000)               --查询条件 (注意: 不要加 WHERE)
                               )
    MODIFIES SQL DATA
    DETERMINISTIC
    LANGUAGE SQL
BEGIN
/**//*----------------------------------------------------------------
 * Copyright (C) 2006  笑疯
 * 版权所有。
 *
     * 过程功能描述：
 * 多功能通用翻页查询语句(DB2)
 *
 * 创建标识：longping520@126.com(2006-5-1修改)
 *   #p#
//-----------------------------------------------------------------------*/

  DECLARE C_STRSQL   VARCHAR(6000);       -- 主语句
  DECLARE C_STRTMP   VARCHAR(100);        -- 临时变量
  DECLARE C_STRORDER VARCHAR(400);        -- 排序类型

  DECLARE bill_task CURSOR WITH RETURN TO CALLER FOR S1;

  --SET PSHOWNAME = PSHOWNAME || ',' || PFLDNAME;

  IF (PPAGEINDEX=0) THEN
    SET PPAGEINDEX = 1;
  END IF;

  IF (PPAGESIZE=0) THEN
    SET PPAGESIZE = 10000000;
  END IF;

-- 设置排序规则
IF (PORDERTYPE<>0) THEN
    SET C_STRTMP = '<(SELECT MIN';
    SET C_STRORDER = ' ORDER BY  ' || PFLDNAME || '  DESC';
ELSE
    SET C_STRTMP = '>(SELECT MAX';
    SET C_STRORDER = ' ORDER BY  ' || PFLDNAME || '  ASC';
END IF;#p#

--
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';
--
IF (PSTRWHERE <> '') THEN
    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';
END IF;
--
IF (PPAGEINDEX=1) THEN

    SET C_STRTMP = '';

    IF (PSTRWHERE <> '') THEN
        SET C_STRTMP = ' WHERE ' || PSTRWHERE;
    END IF;

    SET C_STRSQL = 'SELECT '  || PSHOWNAME ||  ' FROM  '|| PTBLNAME || ' ' || C_STRTMP || ' ' || C_STRORDER || ' FETCH FIRST ' || CHAR(PPAGESIZE) || ' ROWS ONLY';
END IF;

 PREPARE S1 FROM C_STRSQL;
 --OPEN  C_STRSQL;
 --EXECUTE S1;
 OPEN bill_task;

END
 

网站栏目：DB2中翻页存储过程实例
本文路径：http://www.csdahua.cn/qtweb/news18/262668.html

成都网站优化推广公司_创新互联，为您提供自适应网站、云服务器、小程序开发、用户体验、App设计、域名注册

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 快上网