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,应该怎么写那?