在pb里调用存储过程 如何在PB中调用存储过程并取得返回值和输出值的相关推荐
一、如何在PB脚本当中获取存储过程的返回值
没有见过调用存储过程象调用游标一样的代码，一般我是这样声明的：DECLARE Lproc_1 PROCEDURE FOR
proc_1@as_int=:li_int OUTPUT;
execute Lproc_cw_gz_personal_cal;
变量li_int即为返回的值。如果要同时返回多行的数据，可以使用DATAWINDOW或者是DATASTORE来得到结果集：
string ls_sql_syntax, ls_syntax
string ls_error
integer li_ini
ls_sql_syntax='execute proc_1"'+ string( li_ini)+'"'
Datastore ldt_item
ldt_item= Create Datastore
ls_syntax= SQLCA.SyntaxFromSQL( ls_sql_syntax'', ls_error)
IF Len( ls_error)> 0 THEN
MessageBox("提示信息","创建数据存储窗口语法出现错误!"+ ls_error)
RETURN- 1
END IF
ldt_item.Create( ls_syntax, ls_error)
IF Len( ls_error)> 0 THEN
MessageBox("提示信息","创建数据存储对象出现错误!"+ ls_error)
RETURN- 1
END IF
ldt_item. Settransobject( sqlca)
ldt_item. retrieve()
后面就通常的遍历了！
二、pb怎么传递blob类型的参数调用oracle的数据存储过程.多谢
返回一个游标社！
有俩种方法:
一种是声明系统游标,一种是声明自定义游标,然后后面*作一样,参数类型为
in out或out
(1)声明个人系统游标.(推荐)
create or replace p_temp_procedure
(
cur_arg out sys_refcursor;--方法1
)
begin
open cur_arg for select* from tablename;
end
调用
declare
cur_calling sys_refcursor;
begin
p_temp_procedure(cur_calling);--这样这个游标就有值了
for rec_next in cur_calling loop
....
end loop;
end;
(2)在包头中申明一个游表类型,然后调用者申明一个这个类型的游标变量,传给返回游标的存储过程,存储过程out这个结果集,这种方法很麻烦.游标类型不能像索引表一样使用create or replace type方法来创建,所以只能在包中申明,并且需要使用/来执行,后面的存储过程才认这个游标类型.(不推荐,但是建议要知道并且要会这种方式,毕竟它有它存在的道理)
--定义全局变量
create or replace package pkg_package
as
type type_cursor is ref cursor;
type type_record is record
(
test01 varchar2(32),
test02 varchar2(32),
test03 varchar2(32)
);
end;
/
--创建返回游标的存储过程
create or replace procedure p_temp_procedure
(
cur_out_arg out pkg_package.type_cursor
)
is
begin
open cur_out_arg for select* from test;
end;
/
--调用
declare
cur_out_arg pkg_package.type_cursor;
rec_arg pkg_package.type_record;
begin
p_temp_procedure(cur_out_arg);
fetch cur_out_arg into rec_arg;
dbms_output.put_line(rec_arg.test01);
dbms_output.put_line(rec_arg.test02);
dbms_output.put_line(rec_arg.test03);
end;
三、如何在PB中调用存储过程并取得返回值和输出值的相关推荐
没有见过调用存储过程象调用游标一样的代码，一般我是这样声明的：DECLARE Lproc_1 PROCEDURE FOR
proc_1@as_int=:li_int OUTPUT;
execute Lproc_cw_gz_personal_cal;
变量li_int即为返回的值。如果要同时返回多行的数据，可以使用DATAWINDOW或者是DATASTORE来得到结果集：
string ls_sql_syntax, ls_syntax
string ls_error
integer li_ini
ls_sql_syntax='execute proc_1"'+ string( li_ini)+'"'
Datastore ldt_item
ldt_item= Create Datastore
ls_syntax= SQLCA.SyntaxFromSQL( ls_sql_syntax'', ls_error)
IF Len( ls_error)> 0 THEN
MessageBox("提示信息","创建数据存储窗口语法出现错误!"+ ls_error)
RETURN- 1
END IF
ldt_item.Create( ls_syntax, ls_error)
IF Len( ls_error)> 0 THEN
MessageBox("提示信息","创建数据存储对象出现错误!"+ ls_error)
RETURN- 1
END IF
ldt_item. Settransobject( sqlca)
ldt_item. retrieve()
后面就通常的遍历了！
