存储过程的创建问题，急

5I5Q 2007-06-20 04:06:07
大家好，我在网上查到一个oracle的分页存储过程，但是在sql plus中创建的时候，报错，错误如下：PLS-00201:必须说明标识符'REFCURSORTYPE'
然后，我看到那个存储过程前面还有一句话，是create or replace type refCursorType is REF CURSOR; --游标类型定义，用于返回数据集
由于我对oracle不是很熟悉，现在遇到了好几百万的数据量，希望大伙帮帮忙。
告诉我如何正确创建这个存储过程，谢谢
create or replace procedure sp_Page(p_PageSize int, --每页记录数
p_PageNo int, --当前页码,从 1 开始
p_SqlSelect varchar2, --查询语句,含排序部分
p_SqlCount varchar2, --获取记录总数的查询语句
p_OutRecordCount out int,--返回总记录数
p_OutCursor out refCursorType)
as
v_sql varchar2(3000);
v_count int;
v_heiRownum int;
v_lowRownum int;
begin
----取记录总数
execute immediate p_SqlCount into v_count;
p_OutRecordCount := v_count;
----执行分页查询
v_heiRownum := p_PageNo * p_PageSize;
v_lowRownum := v_heiRownum - p_PageSize + 1;

v_sql := 'SELECT *
FROM (
SELECT A.*, rownum rn
FROM ('|| p_SqlSelect ||') A
WHERE rownum <= '|| to_char(v_heiRownum) || '
) B
WHERE rn >= ' || to_char(v_lowRownum) ;
--注意对rownum别名的使用,第一次直接用rownum,第二次一定要用别名rn

OPEN p_OutCursor FOR v_sql;

end sp_Page;

...全文
594 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
BrillianZhang 2007-07-11
  • 打赏
  • 举报
 回复
http://www.itpub.net/443352.html
wuqing5220 2007-06-23
  • 打赏
  • 举报
 回复
这个分页 使用了 会带来很大麻烦
对数据库 CPU 使用 压力比较大 忘个位 使用谨慎
tvray 2007-06-23
  • 打赏
  • 举报
 回复
俺也来顶一下！！！
5I5Q 2007-06-20
  • 打赏
  • 举报
 回复
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_PageSize",adInteger,1,4,20)
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_PageNo",adInteger,1,4,PageNO)
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_SqlSelect",advarchar,1,1000,"select * from ClientInfo")
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_SqlCount",advarchar,1,1000,"select count (CI_ID) as C_CI_ID from ClientInfo")
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_OutRecordCount",adInteger,1,4,MaxRecords)


Set SqlRs1 = SqlCmd1.Execute()

if SqlRs1.state=0 then '未取到数据，SqlRs1关闭
MaxRecords=0
else
SqlRs1.Close() '注意：若要取得参数值，需先关闭记录集对象
MaxRecords = SqlCmd1(4)
end if

Set SqlCmd1 = Nothing

Response.Write(MaxRecords)

我已经写了啊，还是报刚才那个错误
hongqi162 2007-06-20
  • 打赏
  • 举报
 回复
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_OutRecordCount",adInteger,1,4,p_OutRecordCount);这个参数的输入输出类型，返回给那个变量都要写全
5I5Q 2007-06-20
  • 打赏
  • 举报
 回复
我加上了PKG_Tools.
依然报错
OraOLEDB 错误 '80040e14'

ORA-06550: 第 1 行, 第 7 列: PLS-00306: 调用 'SP_PAGE' 时参数个数或类型错误 ORA-06550: 第 1 行, 第 7 列: PL/SQL: Statement ignored

/tpbx/AMoK/test.asp，行 29
5I5Q 2007-06-20
  • 打赏
  • 举报
 回复
我是这样调用的，报错，如下
OraOLEDB 错误 '80040e14'

ORA-06550: 第 1 行, 第 7 列: PLS-00201: 必须说明标识符 'SP_PAGE' ORA-06550: 第 1 行, 第 7 列: PL/SQL: Statement ignored

/tpbx/AMoK/test.asp，行 29

test.asp行29是，Set SqlRs1 = SqlCmd1.Execute()

这种调用方法，是我以前调用sqlserver分页存储过程的


<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../const.asp" -->
<!--#include file="../function.asp" -->
<!--#include file="../Connections/TPBX.asp" -->
<!--#include file="../md5.asp" -->
<!--#include file="../inc/adovbs.inc" -->
<%
set SqlCmd1 = Server.CreateObject("ADODB.Command")
SqlCmd1.ActiveConnection = MM_TPBX_STRING
SqlCmd1.CommandType = 4
SqlCmd1.CommandTimeout = 0
SqlCmd1.Prepared = true

if ChkInfo(1,6,"","","",2,Request.QueryString("PageNo"),"")=0 then
PageNO = 1
else
PageNO = Request.QueryString("PageNo")
end if

SqlCmd1.CommandText = "sp_Page"

SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_PageSize",adInteger,1,4,20)
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_PageNo",adInteger,1,4,PageNO)
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_SqlSelect",advarchar,1,1000,"select * from ClientInfo")
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_SqlCount",advarchar,1,1000,"select count (CI_ID) as C_CI_ID from ClientInfo")
SqlCmd1.Parameters.append SqlCmd1.CreateParameter("@p_OutRecordCount",adInteger,4)


Set SqlRs1 = SqlCmd1.Execute()

if SqlRs1.state=0 then '未取到数据，SqlRs1关闭
MaxRecords=0
else
SqlRs1.Close() '注意：若要取得参数值，需先关闭记录集对象
MaxRecords = SqlCmd1(4)
end if

Set SqlCmd1 = Nothing

Response.Write(MaxRecords)
%>
hongqi162 2007-06-20
  • 打赏
  • 举报
 回复
ado中没有对应的类型，它是输出参数可以不用赋值
5I5Q 2007-06-20
  • 打赏
  • 举报
 回复
好的，我看看，谢谢您
p_OutCursor的注释是什么呢，有什么用呢？
hongqi162 2007-06-20
  • 打赏
  • 举报
 回复
--在vb中应该是这样

dim p_OutRecordCount as long
Set cnDb = New ADODB.Connection
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset
cnDb.CursorLocation = adUseClient
cnDb.ConnectionString = "Provider=MSDAORA.1;Password=pwd;User ID=system;Data Source=orcl;Persist Security Info=True"
cnDb.Open
cmd.ActiveConnection = cnDb
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "PKG_Tools.sp_Page"
cmd.Parameters.Append cmd.CreateParameter("p_PageSize", adInteger, adParamInputOutput, 4, 50)
cmd.Parameters.Append cmd.CreateParameter("p_PageNo", adInteger, adParamInputOutput, 30, 1)
cmd.Parameters.Append cmd.CreateParameter("p_SqlSelect", adLongVarChar, adParamInputOutput, 1000, "select * from table1")
cmd.Parameters.Append cmd.CreateParameter("p_SqlCount", adLongVarChar, adParamInputOutput, 1000, "select count(*) from table1")

cmd.Parameters.Append cmd.CreateParameter("p_OutRecordCount", adInteger, adParamInputOutput, 4, p_OutRecordCount)
Set rst = cmd.Execute
5I5Q 2007-06-20
  • 打赏
  • 举报
 回复
能不能给一个使用asp实现分页调用的例子呢？
5I5Q 2007-06-20
  • 打赏
  • 举报
 回复
谢谢，楼上的

能不能问一下，使用asp如何调用呢？
hongqi162 2007-06-20
  • 打赏
  • 举报
 回复
create or replace package PKG_Tools
is
type ResultData is ref cursor;
procedure sp_Page(p_PageSize int, --每页记录数
p_PageNo int, --当前页码,从 1 开始
p_SqlSelect varchar2, --查询语句,含排序部分
p_SqlCount varchar2, --获取记录总数的查询语句
p_OutRecordCount out int,--返回总记录数
p_OutCursor out ResultData);


end PKG_Tools;
/
create or replace package body PKG_Tools
is
procedure sp_Page(p_PageSize int, --每页记录数
p_PageNo int, --当前页码,从 1 开始
p_SqlSelect varchar2, --查询语句,含排序部分
p_SqlCount varchar2, --获取记录总数的查询语句
p_OutRecordCount out int,--返回总记录数
p_OutCursor out ResultData)
as
v_sql varchar2(3000);
v_count int;
v_heiRownum int;
v_lowRownum int;
begin
----取记录总数
execute immediate p_SqlCount into v_count;
p_OutRecordCount := v_count;
----执行分页查询
v_heiRownum := p_PageNo * p_PageSize;
v_lowRownum := v_heiRownum - p_PageSize +1;

v_sql := 'SELECT *
FROM (
SELECT A.*, rownum rn
FROM ('|| p_SqlSelect ||') A
WHERE rownum <= '|| to_char(v_heiRownum) || '
) B
WHERE rn >= ' || to_char(v_lowRownum) ;
--注意对rownum别名的使用,第一次直接用rownum,第二次一定要用别名rn

OPEN p_OutCursor FOR v_sql;

end sp_Page;

end PKG_Tools;
/
MySQL 存储过程（创建海量数据实验环境）
Re： MySQL 存储过程（创建海量数据实验环境）  ================================ # 存储过程概念 存储过程是数据库管理中常用的技术之一，可以很方便的做些创建数据、统计数据、分析数据等工作，当前的主流...
mysql 存储过程总结
目录 存储过程简介 创建语法 delimiter 创建存储过程 调用存储过程 删除存储过程 区块定义 条件语句 if else case 循环语句 while loop repeat LABLES标号 ITERATE迭代 ITERATE MySQL需要注意的问题 存储过程简介 迄今为止，我们学过的大多数SQL语句都是针对一个或多个表的单条语句。但是并不是所有的操作都是可以用一条语句来完的，经常有一些操作是需要多条语句配合才能完成。我们引入的存储过程（Stored...
SQL Server 2000基础教程——创建存储过程
在MS SQL Server 2000 中，创建一个存储过程有两种方法：一种是使用Transaction-SQL 命令Create Procedure， 另一种是使用图形化管理工具Enterprise Manager。 用Transaction- SQL 创建存储过程是一种较为快速的方法，但对于初学者，使用Enterprise Manager 更易理解，更为简单。当创建存储过程时，需要确定存储过程
MySQL存储过程--存储过程结构介绍
在实际开发过程中，一般写程序的工作人员不会对存储过程有太多的关注，但是有些比较复杂的数据库操作，如果使用存储过程，会在很大程度上节省开发成本，运行效率，网络开销等问题，下面就简单的介绍一下MySQL的存储过程。 1.创建存储过程 使用命令创建存储过程如下： delimiter $$ create procedure example_procedure() begin declare...
MySQL——存储过程
在我们的开发过程中，经常会遇到重复使用某一功能的情况，为此，MySQL引入了存储过程，存储过程就是一条或多条SQL语句的集合，当对数据库进行一系列复杂操作时，存储过程可以将这些复杂的操作封装成一个代码块，一便重复使用，大大减少了数据库开发人员的工作量， 创建存储过程 创建存储过程，需要使用CREATE PROCEDURE 语句， CREATE PROCEDURE sp_name(proc_parameter) routine_body 上述语法中，create procedure 为用来创建存储过程的关键
Oracle

17,086

社区成员

55,238

社区内容

发帖
与我相关
我的任务
社区描述
Oracle开发相关技术讨论
社区管理员
  • 开发
  • Lucifer三思而后行
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章