oracle存储过程语法例子_Oracle存过经典案例 - CSDN文库

需积分: 39 163 浏览量更新于2023-03-16 评论 1 收藏 2KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

Ķ : ��

create or replace package myTest

is

type out_cur is ref cursor;

procedure writeCount(codeid in nvarchar2);

procedure testSandyInSert(codeid in nvarchar2,counts out number);

end myTest;

�洢��Ķ : ��

create or replace package body myTest

is

procedure writeCount(codeid in nvarchar2)

is

m_count number;

begin m_count:=0;

select count(1) into m_count from code where code_id = codeid;

dbms_output.put_line(' '||codeid); ��

dbms_output.put_line(' ѯ '||m_count); ��

end;

procedure testSandyInSert(codeid in nvarchar2,counts out number)

is

m_cur out_cur;

m_code_sn nvarchar2(50);

m_code_id nvarchar2(50);

m_code_name nvarchar2(50);

m_insertstr nvarchar2(50);

m_for number:=0;

begin counts:=0;

open m_cur for select code_sn,code_id,code_name from code where code_id= codeid;

loop fetch m_cur into m_code_sn,m_code_id,m_code_name;

exit when m_cur %notfound;

case UPPER(m_code_sn) when 'SP_CTRL_L' then m_code_sn:='0';

when 'dld' then m_code_sn:='1';

else m_code_sn:='3';

end case;

if UPPER(m_code_sn) ='SP_CTRL_L' then

dbms_output.put_line('��ִ��, if ʹ '); ��

else dbms_output.put_line('��ִ��, if ʹ '); ��

end if;

m_insertstr:=''''||m_code_sn||''','''||m_code_id||''','''||m_code_name||'''';

begin execute immediate 'insert into sandytest(col1,col2,col3) values('||

m_insertstr||')';

dbms_output.put_line(' ɹ !'); ��

counts:=1;

exception when others then dbms_output.put_line(' ʧ !'); ��

end;

end loop;

for m_for in 1..10 loop dbms_output.put_line('ѭ :'||m_for); ��

end loop;

close m_cur;

end;

end myTest;

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余0页未读，立即下载

评论0

tonnytangy

粉丝: 6
资源: 129

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈