PLSQL编写函数--例子

最新推荐文章于 2024-09-19 11:25:08 发布

原创最新推荐文章于 2024-09-19 11:25:08 发布 · 2.1k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

数据库专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个PL/SQL函数GETCYQK的实现细节，该函数通过输入参数gjid来查询并返回关联的采用情况(CYQK)。文章详细展示了如何使用游标循环遍历查询结果，并用逗号分隔返回所有匹配项。

该函数的功能是给定参数 gjid ，返回与之关联的一个或多个CYQK（采用情况）

create or replace function GETCYQK(gjid in varchar2) return varchar2 is

Result varchar2(200); --定义返回结果
--var_lsh varchar2(200);
v_sql varchar2(1000);
type curtype is ref cursor;
mycur curtype;
cyqk varchar2(2000);
begin --函数主体开始
if gjid is not null then
v_sql := 'select t2.jslx from t_sqmy_gjjfgc t,t_sqmy_jfgc t2 where t.jslxid=t2.id and t.czbz!=''D'' and t.gjid='''||gjid||''' ';
select v.jf from v_gj_
open mycur for v_sql;
loop fetch mycur into cyqk; --循环
exit when mycur%notfound;
if Result is null then
Result:=cyqk;
else
Result:=Result||','||cyqk; -- 多个CYQK用','分隔
end if;
end loop; --循环结束
else
--v_sql := 'select name from t_dept_info where pid='''||deptid||'''';
--open mycur for v_sql;
--loop fetch mycur into deptname;
-- exit when mycur%notfound;
-- Result:=deptname;
--end loop;
null;
end if;
return(Result); --返回结果
end GETCYQK; --函数主体结束