exec运用分页oracle存储过程,delphi中用ODAC5.10控件调用Oracle存储过程参数的问题(一个分页的包)...

delphi中用ODAC5.10控件调用Oracle存储过程参数的问题(一个分页的包)

先看我在orace9.2中定义的过程:

---**********oracle中实现的分页存储过程_包头(这里我省略包体不影响问题的说明)

create or replace Package Div_Page is

TYPE type_cur IS REF CURSOR;         --定义游标变量用于返回记录集

procedure implement(

Page_Index in number,                --分页索引

Page_Size in number,                 --页面大小

Page_Count out number,               --返回分页总数

Records_Count out number,            --返回记录总数

Str_Sql in varchar2,                 --产生dataset的sql语句

v_cur out type_cur                   --返回当前页数据记录,v_cur是游标变量

);

end Div_Page;

如果是静态调用的话可以成功返回数据,但是要是动态调用就出现问题!看看我在delphi中的调用:

procedure TForm1.Button1Click(Sender: TObject);

var

Page_Count,Records_Count:integer;//?这里到底该用什么类型呢,delphi用什么类型来对应oracle中的number类型呢?

Str_Sql:string;

begin

Str_Sql:='select * from dc_qzcsb t';

OraStoredProc1.Close;

OraStoredProc1.Params.Clear;

//给过程名赋值并调用

OraStoredProc1.StoredProcName:='jczhxxgl.DIV_PAGE.IMPLEMENT';

OraStoredProc1.SQL.Add('begin jczhxxgl.DIV_PAGE.IMPLEMENT(:PAGE_INDEX, :PAGE_SIZE, :PAGE_COUNT, :RECORDS_COUNT, :STR_SQL, :V_CUR);end;');

//创建过程的参数并赋值

OraStoredProc1.Params.Items[0].DataType:=ftFloat;

OraStoredProc1.Params.Items[0].Name:='PAGE_INDEX';

OraStoredProc1.Params.Items[0].ParamType:=ptInput;

OraStoredProc1.Params.Items[0].Value:=0;

OraStoredProc1.Params.Items[1].DataType:=ftFloat;

OraStoredProc1.Params.Items[1].Name:='Page_Size';

OraStoredProc1.Params.Items[1].ParamType:=ptInput;

OraStoredProc1.Params.Items[1].Value:=50;

OraStoredProc1.Params.Items[2].DataType:=ftFloat;

OraStoredProc1.Params.Items[2].Name:='Page_Count';

OraStoredProc1.Params.Items[2].ParamType:=ptOutput ;

OraStoredProc1.Params.Items[3].DataType:=ftFloat;

OraStoredProc1.Params.Items[3].Name:='Records_Count';

OraStoredProc1.Params.Items[3].ParamType:=ptOutput;

OraStoredProc1.Params.Items[4].DataType:=ftFloat;

OraStoredProc1.Params.Items[4].Name:='Str_Sql';

OraStoredProc1.Params.Items[4].ParamType :=ptInput;

OraStoredProc1.Params.Items[4].Value:=Str_Sql;

OraStoredProc1.Params.Items[5].DataType:=ftCursor;

OraStoredProc1.Params.Items[5].Name:='v_cur';

OraStoredProc1.Params.Items[5].ParamType:=ptOutput;

OraStoredProc1.Prepare;

OraStoredProc1.ExecProc;

OraStoredProc1.Active:=true;

OraDataSource1.DataSet:=OraStoredProc1;  //返回数据集

Page_Count:=OraStoredProc1.Params.ParamValues['Page_Coun'];//返回分页数

Records_Count:=OraStoredProc1.Params.ParamValues['Records_Count'];//返回记录数

showmessage('页码总数:'+inttostr(Page_Count)+'and'+'记录总数:'+inttostr(Records_Count));

end;

上面编译可以通过,但运行报错:‘列表索引越界(0)’,那位高手帮忙啊!好像应该在创建每个参数的时前面分别加上:     OraStoredProc1.Params.AddParam(?);但是我不知道AddParam()括号种应该写什么,系统提示:value:Tparams,应该怎么写那?

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
oracle.manageddataaccess.client.dll是Oracle调用数据库的托管驱动程序的一部分。要下载oracle.manageddataaccess.client.dll,首先需要确保已经安装了Oracle Data Access Components (ODAC)。在下载ODAC之前,需要先注册成为Oracle的用户,并同意相关的许可协议。 1. 访问Oracle官方网站:前往Oracle官方网站,可以通过搜索引擎找到官方网站的链接。在网站上导航到“下载”或“产品”页面,找到ODAC部分。 2. 选择正确的版本:在ODAC部分,您将看到不同的版本和适用于不同操作系统和开发环境的选择。选择与您正在使用的环境相匹配的版本,通常会有特定的下载链接。 3. 下载ODAC安装程序:单击适用于您的环境的下载链接后,您将被重定向到一个下载页面,或直接启动下载过程。保存安装程序到您的计算机上的任意位置。 4. 运行安装程序:找到您保存的ODAC安装程序,双击运行。按照安装向导的步骤进行操作,括接受许可协议、选择安装位置和选择要安装的组件等。确保选择安装“Oracle Managed Access Client”组件。 5. 完成安装:完成ODAC安装过程后,您将获得oracle.manageddataaccess.client.dll文件。该文件通常位于安装目录的某个子文件夹中。 请注意,上述步骤只是为了下载和安装oracle.manageddataaccess.client.dll,而不涉及其他可能的配置和设置。安装ODAC后,您可能需要在应用程序中正确配置和引用oracle.manageddataaccess.client.dll,以确保Oracle数据库的正常连接和操作。如果您在下载、安装或配置过程中遇到问题,建议参考Oracle的官方文档、论坛或与Oracle支持团队联系以获得进一步的帮助。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值