J
jklm
Unregistered / Unconfirmed
GUEST, unregistred user!
Package定义如下:
CREATE OR REPLACE package c_voice
as
type NumTabTyp is table of number
index by binary_integer;
type Var15TabTyp is table of varchar2(15)
index by binary_integer;
type Var20TabTyp is table of varchar2(20)
index by binary_integer;
type Varchar6Typ is table of varchar2(6)
index by binary_integer;
procedure get_reminder_record(
p_get_flag IN NUMBER,
pp_get_num IN NUMBER,
p_type IN OUT NumTabTyp,
p_reminder_group_id IN OUT Var15TabTyp,
p_devno OUT Var20TabTyp,
p_reminder_pattern OUT NumTabTyp,
p_fee OUT NumTabTyp,
p_month OUT NumTabTyp,
P_year out NumTabTyp,
P_transfer_seq out NumTabTyp,
P_bank out Varchar6Typ,
p_row_cou OUT NUMBER
);
procedure set_reminder_result(
p_type_flag IN varchar2,
p_reminder_group_id IN varchar2,
p_reminder_result IN varchar2,
P_time IN Varchar2,
p_count IN Number,
p_flag OUT Number
);
end c_voice;
/
请问如何用ADOStoredProc调用以上Package中的存储过程,过程的参数如何设置?
CREATE OR REPLACE package c_voice
as
type NumTabTyp is table of number
index by binary_integer;
type Var15TabTyp is table of varchar2(15)
index by binary_integer;
type Var20TabTyp is table of varchar2(20)
index by binary_integer;
type Varchar6Typ is table of varchar2(6)
index by binary_integer;
procedure get_reminder_record(
p_get_flag IN NUMBER,
pp_get_num IN NUMBER,
p_type IN OUT NumTabTyp,
p_reminder_group_id IN OUT Var15TabTyp,
p_devno OUT Var20TabTyp,
p_reminder_pattern OUT NumTabTyp,
p_fee OUT NumTabTyp,
p_month OUT NumTabTyp,
P_year out NumTabTyp,
P_transfer_seq out NumTabTyp,
P_bank out Varchar6Typ,
p_row_cou OUT NUMBER
);
procedure set_reminder_result(
p_type_flag IN varchar2,
p_reminder_group_id IN varchar2,
p_reminder_result IN varchar2,
P_time IN Varchar2,
p_count IN Number,
p_flag OUT Number
);
end c_voice;
/
请问如何用ADOStoredProc调用以上Package中的存储过程,过程的参数如何设置?