Oracle
存储过程学习
目录
Oracle
存储过程 1
Oracle存储过程基础知识 1
Oracle存储过程的基本语法 2
关于Oracle存储过程的若干问题备忘
4
1.
在Oracle中，数据表别名不能加as。 4
2.
在存储过程中，select某一字段时，后面必须紧跟into，如果select整个记录，利用游标的话就另当别论了。
5
3.
在利用select...into...语法时，必须先确保数据库中有该条记录，否则会报出"no data found"异常。
5
4.
在存储过程中，别名不能和字段名称相同，否则虽然编译可以通过，但在运行阶段会报错 5
5.
在存储过程中，关于出现null的问题 5
6.
Hibernate调用Oracle存储过程 6
用Java调用Oracle存储过程总结
6
一、
无返回值的存储过程 6
二、
有返回值的存储过程（非列表） 8
三、
返回列表 9
在存储过程中做简单动态查询 11
一、
本地动态SQL 12
二、
使用DBMS_SQL包 13
Oracle存储过程调用Java方法
16
Oracle高效分页存储过程实例 17
Oracle存储过程基础知识
商业规则和业务逻辑可以通过程序存储在Oracle中，这个程序就是存储过程。
存储过程是SQL, PL/SQL, Java
语句的组合，它使你能将执行商业规则的代码从你的应用程序中移动到数据库。这样的结果就是，代码存储一次但是能够被多个程序使用。
要创建一个过程对象（procedural object），必须有
CREATE PROCEDURE 系统权限。如果这个过程对象需要被其他的用户schema
使用，那么你必须有 CREATE ANY PROCEDURE
权限。执行 procedure
的时候，可能需要excute权限。或者EXCUTE ANY PROCEDURE
权限。如果单独赋予权限，如下例所示：
grant execute on MY_PROCEDURE to Jelly
调用一个存储过程的例子：
execute MY_PROCEDURE( ‘ONE PARAMETER‘);
存储过程(PROCEDURE)和函数(FUNCTION)的区别。
function有返回值，并且可以直接在Query中引用function和或者使用function的返回值。
本质上没有区别,都是
PL/SQL 程序,都可以有返回值。最根本的区别是： 存储过程是命令, 而函数是表达式的一部分。比如：
select max(NAME) FROM
但是不能
exec max(NAME) 如果此时max是函数。
PACKAGE是function，procedure，variables
和sql
语句的组合。package允许多个procedure使用同一个变量和游标。
创建
procedure的语法：
|
CREATE [ OR REPLACE ] PROCEDURE [ schema.]procedure [(argument [IN | OUT | IN OUT ] [NO COPY] datatype [, argument [IN | OUT | IN OUT ] [NO COPY] datatype]... )] [ authid { current_user | definer }] { is | as } { pl/sql_subprogram_body | language { java name ‘String‘ | c [ name, name] library lib_name }] |
Sql
代码：
|
CREATE PROCEDURE sam.credit (acc_no IN NUMBER, amount IN NUMBER) AS BEGIN UPDATE accounts SET balance = balance + amount WHERE account_id = acc_no; END; |
可以使用
create or replace procedure 语句， 这个语句的用处在于，你之前赋予的execute权限都将被保留。
IN, OUT, IN OUT用来修饰参数。
IN
表示这个变量必须被调用者赋值然后传入到PROCEDURE进行处理。
OUT
表示PROCEDURE
通过这个变量将值传回给调用者。
IN OUT
则是这两种的组合。
authid代表两种权限：
定义者权限（difiner right
默认），执行者权限（invoker right）。
定义者权限说明这个procedure中涉及的表，视图等对象所需要的权限只要定义者拥有权限的话就可以访问。
执行者权限则需要调用这个
procedure的用户拥有相关表和对象的权限。
Oracle存储过程的基本语法
1. 基本结构
|
CREATE OR REPLACE PROCEDURE 存储过程名字 ( 参数1 IN NUMBER, 参数2 IN NUMBER ) AS 变量1 INTEGER :=0; 变量2 DATE; BEGIN END |
2. SELECT INTO STATEMENT
将select查询的结果存入到变量中，可以同时将多个列存储多个变量中，必须有一条
记录，否则抛出异常(如果没有记录抛出NO_DATA_FOUND)
例子：
|
BEGIN SELECT col1,col2 into 变量1,变量2 FROM typestruct where xxx; EXCEPTION WHEN NO_DATA_FOUND THEN xxxx; END; ... |
3. IF
判断
|
IF V_TEST=1 THEN BEGIN do something END; END IF; |
4. while
循环
|
WHILE V_TEST=1 LOOP BEGIN XXXX END; END LOOP; |
5. 变量赋值
|
V_TEST := 123; |
6. 用for in
使用cursor
|
... IS CURSOR cur IS SELECT * FROM xxx; BEGIN FOR cur_result in cur LOOP BEGIN V_SUM :=cur_result.列名1+cur_result.列名2 END; END LOOP; END; |
7. 带参数的cursor
|
CURSOR C_USER(C_ID NUMBER) IS SELECT NAME FROM USER WHERE TYPEID=C_ID; OPEN C_USER(变量值); LOOP FETCH C_USER INTO V_NAME; EXIT FETCH C_USER%NOTFOUND; do something END LOOP; CLOSE C_USER; |
8. 用pl/sql developer debug
连接数据库后建立一个Test WINDOW
在窗口输入调用SP的代码,F9开始debug,CTRL+N单步调试
9. Pl/Sql中执行存储过程
在sql*plus中：
|
declare --必要的变量声明，视你的过程而定 begin execute yourprocudure(parameter1,parameter2,...); end / |
在SQL/PLUS中调用存储过程，显示结果：
|
SQL>set serveoutput on --打开输出 SQL>var info1 number; --输出1 SQL>var info2 number; --输出2 SQL>declare var1 varchar2(20); --输入1 var2 varchar2(20); --输入2 var3 varchar2(20); --输入2 BEGIN pro(var1,var2,var3,:info1,:info2); END; / SQL>print info1; SQL>print info2; |
注：在EXECUTE IMMEDIATE STR语句是SQLPLUS中动态执行语句，它在执行中会自动提交，类似于DP中FORMS_DDL语句，在此语句中str是不能换行的,只能通过连接字符"||"，或着在在换行时加上"-"连接字符。
关于Oracle存储过程的若干问题备忘
1. 在Oracle中，数据表别名不能加as。
如：
select a.appname from appinfo a;--
正确
select a.appname from appinfo as a;-- 错误
也许，是怕和Oracle中的存储过程中的关键字as冲突的问题吧
2. 在存储过程中，select某一字段时，后面必须紧跟into，如果select整个记录，利用游标的话就另当别论了。
select af.keynode into kn
from APPFOUNDATION af
where af.appid=aid and af.foundationid=fid; -- 有into，正确编译
select af.keynode
from APPFOUNDATION af
where af.appid=aid and af.foundationid=fid;-- 没有into，编译报错，提示：Compilation Error: PLS-00428: an INTO clause is expected in this SELECT statement
3. 在利用select...into...语法时，必须先确保数据库中有该条记录，否则会报出"no
data found"异常。
可以在该语法之前，先利用select count(*) from
查看数据库中是否存在该记录，如果存在，再利用select...into...
4. 在存储过程中，别名不能和字段名称相同，否则虽然编译可以通过，但在运行阶段会报错
select keynode into kn from APPFOUNDATION where appid=aid and foundationid=fid;
-- 正确运行
select af.keynode into kn from APPFOUNDATION af where af.appid=appid and af.foundationid=foundationid;
-- 运行阶段报错，提示：
ORA-01422:exact fetch returns more than requested number of rows
5. 在存储过程中，关于出现null的问题
假设有一个表A，定义如下：
|
create table A( id varchar2(50) primary key not null, vcount number(8) not null, bid varchar2(50) not null -- 外键 ); |
如果在存储过程中，使用如下语句：
select sum(vcount) into fcount from A where bid=‘xxxxxx‘;
如果A表中不存在bid="xxxxxx"的记录，则fcount=null(即使fcount定义时设置了默认值，如：fcount
number(8):=0依然无效，fcount还是会变成null)，这样以后使用fcount时就可能有问题，所以在这里最好先判断一下：
if fcount is null then
fcount:=0;
end if;
这样就一切ok了。
6. Hibernate调用Oracle存储过程
|
this.pnumberManager.getHibernateTemplate().execute( new HibernateCallback() ...{ public Object doInHibernate(Session session) throws HibernateException, SQLException ...{ CallableStatement cs = session .connection() .prepareCall("{call modifyapppnumber_remain(?)}"); cs.setString(1, foundationid); cs.execute(); return null; } }); |
用Java调用Oracle存储过程总结
一、 无返回值的存储过程
测试表:
|
-- Create table create table TESTTB ( ID VARCHAR2(30), NAME VARCHAR2(30) ) tablespace BOM pctfree 10 initrans 1 maxtrans 255 storage ( initial 64K minextents 1 maxextents unlimited ); |
例:
存储过程为(当然了，这就先要求要建张表TESTTB,里面两个字段（I_ID，I_NAME）。
)：
|
CREATE OR REPLACE PROCEDURE TESTA(PARA1 IN VARCHAR2, PARA2 IN VARCHAR2) AS BEGIN INSERT INTO BOM.TESTTB(ID, NAME) VALUES (PARA1, PARA2); END TESTA; |
在Java里调用时就用下面的代码：
|
package com.yiming.procedure.test; import java.sql.CallableStatement; import java.sql.Connection; import java.sql.DriverManager; import java.sql.ResultSet; import java.sql.SQLException; import java.sql.Statement; public class TestProcedureDemo1 { public TestProcedureDemo1() { } public static void main(String[] args) { String driver = "Oracle.jdbc.driver.OracleDriver"; String strUrl = "jdbc:Oracle:thin:@10.20.30.30:1521:vasms"; Statement stmt = null; ResultSet rs = null; Connection conn = null; CallableStatement proc = null; try { Class.forName(driver); conn = DriverManager.getConnection(strUrl, "bom", "bom"); proc = conn.prepareCall("{ call BOM.TESTA(?,?) }"); proc.setString(1, "100"); proc.setString(2, "TestOne"); proc.execute(); } catch (SQLException ex2) { ex2.printStackTrace(); } catch (Exception ex2) { ex2.printStackTrace(); } finally { try { if (rs != null) { rs.close(); if (stmt != null) { stmt.close(); } if (conn != null) { conn.close(); } } } catch (SQLException ex1) { } } } } |
二、 有返回值的存储过程（非列表）
例：存储过程为：
|
CREATE OR REPLACE PROCEDURE TESTB(PARA1 IN VARCHAR2, PARA2 OUT VARCHAR2) AS BEGIN SELECT NAME INTO PARA2 FROM TESTTB WHERE ID = PARA1; END TESTB; |
在Java里调用时就用下面的代码：
|
package com.yiming.procedure.test; import java.sql.CallableStatement; import java.sql.Connection; import java.sql.DriverManager; import java.sql.ResultSet; import java.sql.SQLException; import java.sql.Statement; import java.sql.Types; public class TestProcedureDemo2 { public static void main(String[] args) { String driver = "Oracle.jdbc.driver.OracleDriver"; String strUrl = "jdbc:Oracle:thin:@10.20.30.30:1521:vasms"; Statement stmt = null; ResultSet rs = null; Connection conn = null; CallableStatement proc = null; try { Class.forName(driver); conn = DriverManager.getConnection(strUrl, "bom", "bom"); proc = conn.prepareCall("{ call BOM.TESTB(?,?) }"); proc.setString(1, "100"); proc.registerOutParameter(2, Types.VARCHAR); proc.execute(); String testPrint = proc.getString(2); System.out.println("=testPrint=is=" + testPrint); } catch (SQLException ex2) { ex2.printStackTrace(); } catch (Exception ex2) { ex2.printStackTrace(); } finally { try { if (rs != null) { rs.close(); if (stmt != null) { stmt.close(); } if (conn != null) { conn.close(); } } } catch (SQLException ex1) { } } } } |
注意，这里的proc.getString(2)中的数值2并非任意的，而是和存储过程中的out列对应的，如果out是在第一个位置，那就是proc.getString(1)，如果是第三个位置，就是proc.getString(3)，当然也可以同时有多个返回值，那就是再多加几个out参数了。
三、 返回列表
由于Oracle存储过程没有返回值，它的所有返回值都是通过out参数来替代的，列表同样也不例外，但由于是集合，所以不能用一般的参数，必须要用pagkage了.所以要分两部分，
1. 建一个程序包。如下：
|
CREATE OR REPLACE PACKAGE TESTPACKAGE AS TYPE TEST_CURSOR IS REF CURSOR; end TESTPACKAGE; |
2. 建立存储过程，存储过程为：
|
CREATE OR REPLACE PROCEDURE TESTC(P_CURSOR out TESTPACKAGE.TEST_CURSOR) IS BEGIN OPEN P_CURSOR FOR SELECT * FROM BOM.TESTTB; END TESTC; |
可以看到，它是把游标（可以理解为一个指针），作为一个out 参数来返回值的。
在Java里调用时就用下面的代码：
在这里要注意，在执行前一定要先把Oracle的驱动包放到class路径里，否则会报错的。
|
package com.yiming.procedure.test; import java.sql.CallableStatement; import java.sql.Connection; import java.sql.DriverManager; import java.sql.ResultSet; import java.sql.SQLException; import java.sql.Statement; public class TestProcedureDemo3 { public static void main(String[] args) { String driver = "Oracle.jdbc.driver.OracleDriver"; String strUrl = "jdbc:Oracle:thin:@10.20.30.30:1521:vasms"; Statement stmt = null; ResultSet rs = null; Connection conn = null; CallableStatement proc = null; try { Class.forName(driver); conn = DriverManager.getConnection(strUrl, "bom", "bom"); proc = conn.prepareCall("{ call bom.testc(?) }"); proc.registerOutParameter(1, Oracle.jdbc.OracleTypes.CURSOR); proc.execute(); rs = (ResultSet) proc.getObject(1); while (rs.next()) { System.out.println("<tr><td>" + rs.getString(1) + "</td><td>" + rs.getString(2) + "</td></tr>"); } } catch (SQLException ex2) { ex2.printStackTrace(); } catch (Exception ex2) { ex2.printStackTrace(); } finally { try { if (rs != null) { rs.close(); if (stmt != null) { stmt.close(); } if (conn != null) { conn.close(); } } } catch (SQLException ex1) { } } } } |
在存储过程中做简单动态查询
|
在存储过程中做简单动态查询代码 ,例如: |
|
|
一般的PL/SQL程序设计中，在DML和事务控制的语句中可以直接使用SQL，但是DDL语句及系统控制语句却不能在PL/SQL中直接使用，要想实现在PL/SQL中使用DDL语句及系统控制语句，可以通过使用动态SQL来实现。
首先我们应该了解什么是动态SQL，在Oracle数据库开发PL/SQL块中我们使用的SQL分为：静态SQL语句和动态SQL语句。所谓静态SQL指在PL/SQL块中使用的SQL语句在编译时是明确的，执行的是确定对象。而动态SQL是指在PL/SQL块编译时SQL语句是不确定的，如根据用户输入的参数的不同而执行不同的操作。编译程序对动态语句部分不进行处理，只是在程序运行时动态地创建语句、对语句进行语法分析并执行该语句。
Oracle中动态SQL可以通过本地动态SQL来执行，也可以通过DBMS_SQL包来执行。下面就这两种情况分别进行说明：
一、 本地动态SQL
本地动态SQL是使用EXECUTE IMMEDIATE语句来实现的。
1、 本地动态SQL执行DDL语句：
需求：根据用户输入的表名及字段名等参数动态建表。
|
create or replace procedure proc_test ( table_name in varchar2, --表名 field1 in varchar2, --字段名 datatype1 in varchar2, --字段类型 field2 in varchar2, --字段名 datatype2 in varchar2 --字段类型 ) as str_sql varchar2(500); begin str_sql:=’create table ’||table_name||’(’||field1||’ ’||datatype1||’,’||field2||’ ’||datatype2||’)’; execute immediate str_sql; --动态执行DDL语句 exception when others then null; end ; |
以上是编译通过的存储过程代码。下面执行存储过程动态建表。
|
SQL> execute proc_test(’dinya_test’,’id’,’number(8) not null’,’name’,’varchar2(100)’); PL/SQL procedure successfully completed SQL> desc dinya_test; Name Type Nullable Default Comments ---- ------------- -------- ------- -------- ID NUMBER(8) NAME VARCHAR2(100) Y SQL> |
到这里，就实现了我们的需求，使用本地动态SQL根据用户输入的表名及字段名、字段类型等参数来实现动态执行DDL语句。
2、 本地动态SQL执行DML语句。
需求：将用户输入的值插入到上例中建好的dinya_test表中。
|
create or replace procedure proc_insert ( id in number, --输入序号 name in varchar2 --输入姓名 ) as str_sql varchar2(500); begin str_sql:=’insert into dinya_test values(:1,:2)’; execute immediate str_sql using id,name; --动态执行插入操作 exception when others then null; end ; |
执行存储过程，插入数据到测试表中。
|
SQL> execute proc_insert(1,’dinya’); PL/SQL procedure successfully completed SQL> select * from dinya_test; ID NAME 1 dinya |
在上例中，本地动态SQL执行DML语句时使用了using子句，按顺序将输入的值绑定到变量，如果需要输出参数，可以在执行动态SQL的时候，使用RETURNING
INTO 子句，如：
|
declare p_id number:=1; v_count number; begin v_string:=’select count(*) from table_name a where a.id=:id’; execute immediate v_string into v_count using p_id; end ; |
二、 使用DBMS_SQL包
使用DBMS_SQL包实现动态SQL的步骤如下：
A、先将要执行的SQL语句或一个语句块放到一个字符串变量中。
B、使用DBMS_SQL包的parse过程来分析该字符串。
C、使用DBMS_SQL包的bind_variable过程来绑定变量。
D、使用DBMS_SQL包的execute函数来执行语句。
1、使用DBMS_SQL包执行DDL语句
需求：使用DBMS_SQL包根据用户输入的表名、字段名及字段类型建表。
|
create or replace procedure proc_dbms_sql ( table_name in varchar2, --表名 field_name1 in varchar2, --字段名 datatype1 in varchar2, --字段类型 field_name2 in varchar2, --字段名 datatype2 in varchar2 --字段类型 )as v_cursor number; --定义光标 v_string varchar2(200); --定义字符串变量 v_row number; --行数 begin v_cursor:=dbms_sql.open_cursor; --为处理打开光标 v_string:=’create table ’||table_name||’(’||field_name1||’ ’||datatype1||’,’||field_name2||’ ’||datatype2||’)’; dbms_sql.parse(v_cursor,v_string,dbms_sql.native); --分析语句 v_row:=dbms_sql.execute(v_cursor); --执行语句 dbms_sql.close_cursor(v_cursor); --关闭光标 exception when others then dbms_sql.close_cursor(v_cursor); --关闭光标 raise; end; |
以上过程编译通过后，执行过程创建表结构：
|
SQL> execute proc_dbms_sql(’dinya_test2’,’id’,’number(8) not null’,’name’,’varchar2(100)’); PL/SQL procedure successfully completed SQL> desc dinya_test2; Name Type Nullable Default Comments ---- ------------- -------- ------- -------- ID NUMBER(8) NAME VARCHAR2(100) Y SQL> |
2、 使用DBMS_SQL包执行DML语句
需求：使用DBMS_SQL包根据用户输入的值更新表中相对应的记录。
查看表中已有记录：
|
SQL> select * from dinya_test2; ID NAME 1 Oracle 2 CSDN 3 ERP SQL> |
建存储过程，并编译通过：
|
create or replace procedure proc_dbms_sql_update ( id number, name varchar2 )as v_cursor number; --定义光标 v_string varchar2(200); --字符串变量 v_row number; --行数 begin v_cursor:=dbms_sql.open_cursor; --为处理打开光标 v_string:=’update dinya_test2 a set a.name=:p_name where a.id=:p_id’; dbms_sql.parse(v_cursor,v_string,dbms_sql.native); --分析语句 dbms_sql.bind_variable(v_cursor,’:p_name’,name); --绑定变量 dbms_sql.bind_variable(v_cursor,’:p_id’,id); --绑定变量 v_row:=dbms_sql.execute(v_cursor);--执行动态ＳＱＬ dbms_sql.close_cursor(v_cursor); --关闭光标 exception when others then dbms_sql.close_cursor(v_cursor); --关闭光标 raise; end; |
执行过程，根据用户输入的参数更新表中的数据：
|
SQL> execute proc_dbms_sql_update(2,’csdn_dinya’); PL/SQL procedure successfully completed SQL> select * from dinya_test2; ID NAME 1 Oracle 2 csdn_dinya 3 ERP SQL> |
执行过程后将第二条的name字段的数据更新为新值csdn_dinya。这样就完成了使用dbms_sql包来执行DML语句的功能。
使用DBMS_SQL中，如果要执行的动态语句不是查询语句，使用DBMS_SQL.Execute或DBMS_SQL.Variable_Value来执行，如果要执行动态语句是查询语句，则要使用DBMS_SQL.define_column定义输出变量，然后使用DBMS_SQL.Execute,
DBMS_SQL.Fetch_Rows, DBMS_SQL.Column_Value及DBMS_SQL.Variable_Value来执行查询并得到结果。
总结说明：
在Oracle开发过程中，我们可以使用动态SQL来执行DDL语句、DML语句、事务控制语句及系统控制语句。但是需要注意的是，PL/SQL块中使用动态SQL执行DDL语句的时候与别的不同，在DDL中使用绑定变量是非法的（bind_variable(v_cursor,’:p_name’,name)），分析后不需要执行DBMS_SQL.Bind_Variable，直接将输入的变量加到字符串中即可。另外，DDL是在调用DBMS_SQL.PARSE时执行的，所以DBMS_SQL.EXECUTE也可以不用，即在上例中的v_row:=dbms_sql.execute(v_cursor)部分可以不要。
Oracle存储过程调用Java方法
存储过程中调用Java程序段
软件环境：
1、 操作系统：Windows 2000 Server
2、 数 据 库：Oracle 8i R2 (8.1.7) for NT 企业版
3、 安装路径：C:\ORACLE
实现方法：
1、 创建一个文件为Test.java
|
public class Test { public static void main(String args[]) { System.out.println("HELLO THIS iS A Java PROCEDURE"); } } |
2、 javac Test.java
3、 java Test
4、 SQL> conn system/manager
SQL> grant create any directory to scott;
SQL> conn scott/tiger
SQL> create or replace directory test_dir as ‘d:\‘;
目录已创建。
SQL> create or replace java class using bfile(test_dir,‘TEST.CLASS‘)
2 /
Java 已创建。
SQL> select object_name,object_type,STATUS from user_objects;
SQL> create or replace procedure test_java
as language java
name ‘TEST.main(java.lang.String[])‘;
/
过程已创建。
SQL> set serveroutput on size 5000
SQL> call dbms_java.set_output(5000);
调用完成。
SQL> execute test_java;
HELLO THIS iS A Java PROCEDURE
PL/SQL 过程已成功完成。
SQL> call test_java();
HELLO THIS iS A Java PROCEDURE
调用完成。
Oracle 8I 9I都测试通过。
Oracle高效分页存储过程实例
|
create or replace package p_page is -- Author : PHARAOHS -- Created : 2006-4-30 14:14:14 -- Purpose : 分页过程 TYPE type_cur IS REF CURSOR; --定义游标变量用于返回记录集 PROCEDURE Pagination( Pindex in number, --分页索引 Psql in varchar2, --产生dataset的sql语句 Psize in number, --页面大小 Pcount out number, --返回分页总数 v_cur out type_cur --返回当前页数据记录 ); procedure PageRecordsCount( Psqlcount in varchar2, --产生dataset的sql语句 Prcount out number --返回记录总数 ); end p_page; / create or replace package body p_page is PROCEDURE Pagination( Pindex in number, Psql in varchar2, Psize in number, Pcount out number, v_cur out type_cur ) AS v_sql VARCHAR2(1000); v_count number; v_Plow number; v_Phei number; Begin ------------------------------------------------------------取分页总数 v_sql := ‘select count(*) from (‘ || Psql || ‘)‘; execute immediate v_sql into v_count; Pcount := ceil(v_count/Psize); ------------------------------------------------------------显示任意页内容 v_Phei := Pindex * Psize + Psize; v_Plow := v_Phei - Psize + 1; --Psql := ‘select rownum rn,t.* from zzda t‘ ; --要求必须包含rownum字段 v_sql := ‘select * from (‘ || Psql || ‘) where rn between ‘ || v_Plow || ‘ and ‘ || v_Phei ; open v_cur for v_sql; End Pagination; --************************************************************************************** procedure PageRecordsCount( Psqlcount in varchar2, Prcount out number ) as v_sql varchar2(1000); v_prcount number; begin v_sql := ‘select count(*) from (‘ || Psqlcount || ‘)‘; execute immediate v_sql into v_prcount; Prcount := v_prcount; --返回记录总数 end PageRecordsCount; --************************************************************************************** end p_page; / |