===========标准存储过程========================
1.首先定义包
2.定义存储过程
3.执行存储过程
在PL/SQL右键存储过程“测试”执行存储过程;
参与资料:http://blog.csdn.net/edcvf3/article/details/8477932
============分页存储过程====================
1.首先定义包
2.定义存储过程
1.首先定义包
create or replace package pak_fks
as
type fks_cursor is ref cursor;
end;
2.定义存储过程
create or replace procedure proc_test(fks_cursor OUT pak_fks.fks_cursor) AS
begin
open fks_cursor for 执行的SQL语句;
end proc_test;
3.执行存储过程
在PL/SQL右键存储过程“测试”执行存储过程;
参与资料:http://blog.csdn.net/edcvf3/article/details/8477932
============分页存储过程====================
1.首先定义包
create or replace package Pak_Page
as
type ref_Cur is ref cursor;
end;
2.定义存储过程
CREATE OR REPLACE
PROCEDURE Sp_FksPage
(p_tableName in varchar2, --表名
p_fileds in varchar2, --显示的字段
p_curPage in Number, --当前页
p_pageSize in Number, --每页显示记录条数
p_strWhere in varchar2, --查询条件
p_strOrder in varchar2, --排序的列
p_totalRecords out Number, --总记录数
v_cur out PAK_PAGE.ref_Cur) --返回的结果集
IS
v_sql VARCHAR2(1000) := ''; --sql语句
v_startRecord Number(4); --开始显示的记录条数
v_endRecord Number(4); --结束显示的记录条数
v_totalPages Number(4); --总页数
v_pageSize Number(4); --每页记录数
v_curPage Number(4); --当前页
BEGIN
--记录中总记录条数
v_sql := 'SELECT TO_NUMBER(COUNT(*)) FROM ' || p_tableName;
IF p_strWhere IS NOT NULL or p_strWhere <> '' THEN
v_sql := v_sql || ' ' || p_strWhere;
END IF;
EXECUTE IMMEDIATE v_sql INTO p_totalRecords;
--验证页面记录大小
IF p_pageSize < 0 THEN
v_pageSize := 0;
ELSE
v_pageSize :=p_pageSize;
END IF;
--根据页大小计算总页数
IF MOD(p_totalRecords,p_pageSize) = 0 THEN
v_totalPages := p_totalRecords / p_pageSize;
ELSE
v_totalPages := p_totalRecords / p_pageSize + 1;
END IF;
--验证页号
IF p_curPage < 1 THEN
v_curPage := 1;
ELSE
v_curPage :=p_curPage;
END IF;
IF p_curPage > v_totalPages THEN
v_curPage := v_totalPages;
ELSE
v_curPage := p_curPage;
END IF;
--实现分页查询
v_startRecord := (v_curPage - 1) * v_pageSize + 1;
v_endRecord := v_curPage * v_pageSize;
v_sql := 'SELECT * FROM (SELECT A.*, rownum r FROM ' ||
'(SELECT '||p_fileds||' FROM ' || p_tableName;
IF p_strWhere IS NOT NULL or p_strWhere <> '' THEN
v_sql := v_sql || ' ' || p_strWhere;
END IF;
IF p_strOrder IS NOT NULL or p_strOrder <> '' THEN
v_sql := v_sql || ' ' || p_strOrder;
END IF;
v_sql := v_sql || ') A WHERE rownum <= ' || v_endRecord || ') B WHERE r >= '
|| v_startRecord;
DBMS_OUTPUT.put_line(v_sql);
OPEN v_cur FOR v_sql;
END Sp_FksPage;