oracle 分頁 很棒的sql語句
2020-07-26 14:34:15
供稿：網友
CREATE OR REPLACE PROCEDURE PROC6338196642095312503719(輸入新聞主題 Varchar2,輸入新聞內容 Varchar2,輸入發布時間 Varchar2,輸入當前頁碼 Number,輸入每頁行數 Number,輸出當前頁碼 OUT Number,輸出總行行數 OUT Number,輸出總頁頁數 OUT Number,輸入是否下頁 Number,輸入新聞編號 Varchar2,RETURN_CURSOR OUT CUSTOMTYPE.MYRCTYPE)
--功能描述:
--編寫人:
--編寫日期:
--如果返回結果集，必須使用自定義游標Return_Cursor
IS --OR AS
--變量定義區
v_cPageCount integer; -- 要顯示的數據總行數
v_cPage integer; -- 要顯示數據的當前頁
BEGIN
--存儲過程主體
if 輸入新聞編號 is null then
begin
--- 輸出總行行數
select max(rownum) into 輸出總行行數 from(
select * from xtnews where 1=1
and 輸入新聞主題 is null or (輸入新聞主題 is not null and V_XWZT like '%'||輸入新聞主題||'%')
and 輸入發布時間 is null or (輸入發布時間 is not null and D_FBSJ = to_date(輸入發布時間,'yyyy-mm-dd'))
)where 輸入新聞內容 is null or (輸入新聞內容 is not null and V_XWNR like '%'||輸入新聞內容||'%');
-- 輸出總頁頁數
select ceil(輸出總行行數/輸入每頁行數) into 輸出總頁頁數 from dual;
exception when no_data_found then
null;
end;
-- 計算 輸入當前頁碼 要顯示的數據總行數
if 輸入當前頁碼 is not null then
-- xia一頁
if 輸入是否下頁 = 1 then
-- 計算 獲取數據的當前頁
v_cPage := (輸入當前頁碼 + 1);
-- 最后一頁
if v_cPage > 輸出總頁頁數 then
v_cPage := 輸出總頁頁數;
end if;
end if;
-- shang一頁
if 輸入是否下頁 = 0 then
-- 計算 獲取數據的當前頁
v_cPage := (輸入當前頁碼 - 1);
-- 最前一頁
if v_cPage = 0 then
v_cPage := 1;
end if;
end if;
-- 要顯示的數據總行數
v_cPageCount := v_cPage * 輸入每頁行數;
end if;
end if;
-- 執行查詢 獲取 要顯示的數據
begin
open return_cursor for
select nts.* from(
select nt.* from (
select rownum 序號,n.* from(
select * from(
select * from(
select
I_ID 新聞編號,
V_XWZT 新聞主題,
V_XWNR 新聞內容,
D_FBSJ 發布時間,
D_YXSJ 有效時間,
V_FBBM 發布部門
from xtnews
where 1=1 and 輸入新聞主題 is null or (輸入新聞主題 is not null and V_XWZT like '%'||輸入新聞主題||'%')
)where 輸入新聞內容 is null or (輸入新聞內容 is not null and 新聞內容 like '%'||輸入新聞內容||'%')
)where 輸入發布時間 is null or (輸入發布時間 is not null and 發布時間 = to_date(輸入發布時間,'yyyy-mm-dd'))
)n where 輸入新聞編號 is null or (輸入新聞編號 is not null and 新聞編號 = 輸入新聞編號)
order by rownum
)nt where nt.序號 <= v_cPageCount order by 序號 desc
)nts where nts.序號 > (v_cPageCount-輸入每頁行數) order by 序號;
exception when no_data_found then
null;
end;
-- 輸出最后計算的當前頁碼
if 輸入新聞編號 is null and v_cPage is not null then
輸出當前頁碼 := v_cPage;
end if;
END;
