pl/sql demo

=================================================
基本操作
=================================================

SQL>setserveroutputon;--显示输出

-------------------------------------------------
--LOOP循环
declare
inumber:=1;
begin
loop
i:=i+1;
exitwheni=100;
dbms_output.put_line(i);
endloop;

end;

-------------------------------------------------
--FORLOOP循环50次
declare
inumber:=10;
begin
foridxin1..50loop--次数：50-1+1=50
dbms_output.put_line(i);
endloop;
end;

-------------------------------------------------
--WHILELOOP循环
declare
inumber:=100;
jnumber:=1;
begin
while(j<i)loop
dbms_output.put_line(j);
j:=j+1;
endloop;
end;

-------------------------------------------------
--IF语句
declare
inumber:=40;
jnumber:=10;
begin
if(i<j)then
dbms_output.put_line('OK');
elsif(i=j)then
dbms_output.put_line('OK1');
else
dbms_output.put_line('OK2');
endif;
end;


=================================================
游标操作
=================================================

--显示游标
declare
--建立显示游标
cursorcsr_1is
selectnamefromstu1;
cursorcsr_2is
selectidfromstu1;
--定义变量
strvarchar2(10);
str2varchar2(10);
begin
--打开游标
opencsr_1;
opencsr_2;
--附值
fetchcsr_1intostr;
fetchcsr_2intostr2;
--输出
dbms_output.put_line(str);
dbms_output.put_line(str2);
end;

-------------------------------------------------
--取表某列全部记录(适合控制)
declare
--建立显示游标
cursorcsr_1is
selectname,notefromstu1;
--定义变量
strvarchar2(10);
str2varchar2(10);
begin
--打开游标
opencsr_1;
loop
fetchcsr_1intostr,str2;
exitwhencsr_1%notfound;--到达记录尾
dbms_output.put_line(str||str2);
endloop;

--关闭游标
closecsr_1;
end;

-------------------------------------------------
--FORLOOP查询表全部记录(简单--打开、附值、关闭隐式完成)
declare
--建立显示游标
cursorcsr_1is
selectname,notefromstu1;
begin
foridxincsr_1loop
dbms_output.put_line(idx.name||idx.note);
endloop;
end;


-------------------------------------------------
--利用游标复制表(效率不高)
declare
cursorcsr_1is
selectks_xm,ks_zkz,bk_cjfromahzk_all_cj;
inumber;
begin
foridxincsr_1loop
insertintotmpvalues(idx.ks_xm,idx.ks_zkz,idx.bk_cj);
i:=csr_1%rowcount;--获取当前记录数
if(imod1000=0)then
dbms_output.put_line(i);
commit;
endif;
endloop;
commit;
end;

--附：高效复制表
declare

begin
insertintotmp
selectks_xm,ks_zkz,bk_cjfromahzk_all_cj;
if(sql%found)then
dbms_output.put_line('插入'||sql%rowcount||'行记录');
endif;
commit;
end;
---------

--數組類型 TYPE number_list IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; --類型集合 TYPE Public_Rec IS RECORD (nn_account tab.nn_account%TYPE, nn_code_b tab.nn_code_b%TYPE, nn_code_c tab.nn_code_c%TYPE);