Oracleのpl/sqlプログラミング言語

学習ノート:
##pl/sqlプログラミング言語
*概要:*pl/sqlプログラミング言語はsql言語の拡張であり、sql言語にプロセス化プログラミングの特性を持たせる.*pl/sqlプログラミング言語は、一般的なプロセス化プログラミング言語よりも柔軟で効率的です.*pl/sqlプログラミング言語は、主にストレージ・プロシージャやストレージ関数などを記述するために使用されます.*宣言方法

declare 
begin
end;

--  dbms_output  
set serveroutput on
--    
declare 
  i number(2) := 10;
  s varchar2(10):= '  ';
  ena emp.ename%type; --     
begin
  dbms_output.put_line(i);
  dbms_output.put_line(s);
  select ename into ena from emp where empno = 7788;
  dbms_output.put_line(ena);
end;
/

*pl/sqlでのif判断*宣言方法

declare
begin
  if then
  elsif then
  else
  end if
end;

*ケース*18未満の数字を入力し、未成年者を出力します.18より40未満の数字を入力し、中年の人を出力します.40以上の数字を入力し、高齢者を出力します.

declare
  i number(3) := ⅈ
begin
  if i<18 then
    dbms_output.put_line('Young people');
  elsif i<40 then
    dbms_output.put_line('Middle-aged person');
  else
    dbms_output.put_line('Aged');
  end if;
end;

*pl/sqlでのループ*1.whileループ*宣言方法

declare
begin
  while loop
  end loop;
end;

*ケース:1～10を入力

declare
  i number(2) := 1;
begin
  while i<= 10 loop
    dbms_output.put_line(i);
    i := i+1;
  end loop;
end;

        * 2. exitループ(共通)*宣言方法

declare
begin
  loop
    exit when ;
  end loop;
end;

*ケース:1～10を入力

declare
 i number(2) := 1;
begin
  loop
    exit when i>10;
    dbms_output.put_line(i);
    i := i+1;
  end loop;
end;

        * 3. loopループ*宣言方法

declare
begin
  for i in 1..10 loop
  end loop;
end;

*ケース:1～10を入力

declare
 i number(2) := 1;
begin
  for i in 1..10 loop
    dbms_output.put_line(i);
    end loop;
end;

*注意:*3つのサイクルの終了はend loopです.(end先行)*exitサイクルでexit when;後ろにはエンベロープがあります*ループloopの開始時にエンベロープを付ける必要はありません*endの終了には必ずエンベロープがあります
*pl/sqlのカーソル*コンセプト:カーソルは複数のオブジェクト、複数のレコードを格納できます.*ケース1:empテーブルのすべての従業員の名前を出力

declare
  cursor c1 is select * from emp;
  emprow emp%rowtype;
begin
  open c1;
    loop
      fetch c1 into emprow;
      exit when c1%notfound;
      dbms_output.put_line(emprow.ename);
    end loop;
  close c1;
end;

*ケース2:指定された部門の従業員に100元の給与を上げる(パラメータ付きカーソル)

declare
  cursor c2(eno emp.deptno%type) 
  is select empno from emp where deptno = eno;
  en emp.empno%type;
begin
  open c2(10);
    loop
      fetch c2 into en;
      exit when c2%notfound;
      update emp set sal=sal+100 where empno=en;
      commit;
    end loop;
  close c2;
end;

 
 
ありがとうございます!