自己建了一个简单的T_user表 LIB_CARD_NUM VARCHAR2(50); READER VARCHAR2(20);procedure : procedure findReader(libCode in varchar2, reader out varchar2) is type REF_CURSOR is REF CURSOR return T_USER%rowtype; refCursor_user REF_CURSOR; v_reader_row T_USER%rowtype; begin open refCursor_user for select * from T_USER t where t.lib_card_num = libCode; fetch refCursor_user into v_reader_row;
if(refCursor_user%found) then reader := v_reader_row.reader; else dbms_output.put_line('can not find reader for code:'||libCode); end if;
LIB_CARD_NUM VARCHAR2(50);
READER VARCHAR2(20);procedure :
procedure findReader(libCode in varchar2, reader out varchar2) is
type REF_CURSOR is REF CURSOR return T_USER%rowtype;
refCursor_user REF_CURSOR;
v_reader_row T_USER%rowtype;
begin
open refCursor_user for
select * from T_USER t where t.lib_card_num = libCode;
fetch refCursor_user into v_reader_row;
if(refCursor_user%found) then
reader := v_reader_row.reader;
else
dbms_output.put_line('can not find reader for code:'||libCode);
end if;
close refCursor_user;
end findReader;你看行不行?