PL/SQL入门例子

转贴地址：http://apple.upc.edu.cn/Article/ShowArticle.asp?ArticleID=493

PL/SQL入门例子

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

SQL>set serveroutput on;  --显示输出

-------------------------------------------------
--LOOP循环
declare
  i number:=1;
begin
  loop
    i:=i+1;
    exit when i=100;
    dbms_output.put_line(i);
  end loop;
 
end;

-------------------------------------------------
-- FOR LOOP循环50次
declare
  i number :=10;
begin
  for idx in 1..50 loop  --次数：50-1+1=50
    dbms_output.put_line(i);
  end loop;
end;

-------------------------------------------------
-- WHILE LOOP循环
declare
  i number :=100;
  j number :=1;
begin
  while(j<i) loop
    dbms_output.put_line(j);
    j:=j+1;
  end loop;
end;

-------------------------------------------------
--IF语句
declare
  i number :=40;
  j number :=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');
  end if;
end;

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

--显示游标
declare
  --建立显示游标
  cursor csr_1 is
     select name from stu1;
  cursor csr_2 is
     select id from stu1;
  --定义变量
  str varchar2(10);
  str2 varchar2(10);
begin
  --打开游标
  open csr_1;
  open csr_2;
  --附值
  fetch csr_1 into str;
  fetch csr_2 into str2;
  --输出
  dbms_output.put_line(str);
  dbms_output.put_line(str2);
end;

-------------------------------------------------
--取表某列全部记录(适合控制)
declare
  --建立显示游标
  cursor csr_1 is
     select name,note from stu1;
  --定义变量
  str  varchar2(10);
  str2 varchar2(10);
begin
  --打开游标
  open csr_1;
  loop
    fetch csr_1 into str,str2;
    exit when csr_1%notfound;  --到达记录尾
    dbms_output.put_line(str || str2);
  end loop;
 
  --关闭游标
  close csr_1;
end;

-------------------------------------------------
--FOR LOOP查询表全部记录(简单--打开、附值、关闭隐式完成)
declare
  --建立显示游标
  cursor csr_1 is
     select name,note from stu1;
begin
  for idx in csr_1 loop
    dbms_output.put_line(idx.name || idx.note);
  end loop;
end;

-------------------------------------------------
--利用游标复制表(效率不高)
declare
  cursor csr_1 is
     select ks_xm,ks_zkz,bk_cj from ahzk_all_cj;
  i number;
begin
  for idx in csr_1 loop
    insert into tmp values(idx.ks_xm,idx.ks_zkz,idx.bk_cj);
    i:=csr_1%rowcount;  --获取当前记录数
    if(i mod 1000=0) then
      dbms_output.put_line(i);
      commit;
    end if;   
  end loop;
  commit;
end;

--附：高效复制表
declare

begin
    insert into tmp
       select ks_xm,ks_zkz,bk_cj from ahzk_all_cj;
    if(sql%found) then
      dbms_output.put_line('插入' || sql%rowcount || '行记录');
    end if;
    commit;
end;
-------------------------------------------------