17,382
社区成员




CREATE OR REPLACE PROCEDURE TEST(PI_FND_ID VARCHAR2,
PO_CUR OUT SYS_REFCURSOR) IS
BEGIN
OPEN PO_CUR FOR
SELECT * FROM TGP_FUNDS T WHERE T.FND_ID = PI_FND_ID;
END TEST;
使用存储过程:
declare
R1 TGP_FUNDS%ROWTYPE;
rc sys_refcursor;
begin
test('MPGF',rc);
fetch rc into R1;
while rc%found loop
dbms_output.put_line(R1.FND_ID);
fetch rc into R1;
end loop;
end;
[/quote]
如果查找的数据有多条的话,使用游标比较方便。CREATE OR REPLACE PROCEDURE TEST(PI_FND_ID VARCHAR2,
PO_CUR OUT SYS_REFCURSOR) IS
BEGIN
OPEN PO_CUR FOR
SELECT * FROM TGP_FUNDS T WHERE T.FND_ID = PI_FND_ID;
END TEST;
使用存储过程:
declare
R1 TGP_FUNDS%ROWTYPE;
rc sys_refcursor;
begin
test('MPGF',rc);
fetch rc into R1;
while rc%found loop
dbms_output.put_line(R1.FND_ID);
fetch rc into R1;
end loop;
end;