PL/SQL 기초 연습

<PL/SQL 개요>
-- 위키피디아 소개 : https://ko.wikipedia.org/wiki/PL/SQL
-- 오라클 DBMS에서 SQL 언어를 확장하기 위해 사용하는 컴퓨터 프로그래밍 언어 중 하나이다.
-- 구조 (3단계)
-- 1) 선언부
-- 2) 수행부
-- 3) 예외부

create table aa(bun number,munja varchar2(20), su number);
set serveroutput on; -- 표준 출력장치로 출력 선언
declare no number :=0;
begin no := 100 + 200;
dbms_ouput.put_line(no);
insert into aa(bun) values(no);
end;

select * from aa;

< 배열 처리 >
declare
  type result is record(a number, b number);
  type test is varray(100) of result;
  test1 test := test(); -- 객체 초기화
begin
  test1.extend(50); -- 50개에 대한 공간 할당
  test(1).a := 10;
  test(1).b := 20;
  dbms_output.put_line(test1(1).a);
  end;
  
< exception >
  declare
    counter number(3) := 10;
    re number;
  begin
    re := counter /0;
    dbms_ouput.put_line(re);
  exception when zero_divide then
    dbms_ouput.put_line('error');
  end;
  
< 변수 선언 - 해당 테이블 형 >
  declare
    v_a sawon%rowtype;
  begin
    select * into v_a from sawon where sawon_no=1;
    dbms_output.put_line(v_a.sawon_no || v_a.sawon_name);
    insert int aa values(v_a.sawon_no, v_a.sawon_name,v_a.sawon_pay);
  end;
  
< 변수 선언 - 해당 테이블 칼럼형 >
  declare
    a sawon.sawon_no%type;
    b sawon.sawon_name%type;
    c sawon.sawon_pay%type;
  begin
    select sawon_no,sawon_name, sawon_jik into a,b,c from sawon
    where sawon_no=10;
    dbms_ouput.put_line(a || '' || b || '' || c);
end;
  
< 조건 판단문 if >
declare
  v_a sawon%rowtype;
  v_str varchar2(10);
begin
  select * into v_a from sawon where sawon_no=9;
  if(v_a.buser_num=10) then  v_str:=concat(v_a.sawon_name, ' 10');
  end if;
  if(v_a.buser_num=40) then v_str:=concat(v_a.sawon_name, '40');
  end if;
  
if(v_a.buser_num=10)
    then v_str:=concat(v_a.sawon_name,'10번');
if(v_a.buser_num=20)
    then v_str:=concat(v_a.sawon_name,'20번');
if(v_a.buser_num=30)
    then v_str:=concat(v_a.sawon_name,'30번');
if(v_a.buser_num=40)
    then v_str:=concat(v_a.sawon_name,'40번');
else
    v_str:=concat(v_a.sawon_name, '기타');
end if;
    dbms_ouput.put_line(a || '' || b || '' || c);

< 반복문 for loop >
declare
  dan number(2):= 2;
  i number(2) := 0;
  tot number(2):= 0;
begin
  for i in 1..9 loop
  dbms_output.put_line(dan || '*' || i || '=' || tot);
  end loop;
end;

< 반복문 >
declare
  v_cou number := 1;
begin
  while(v_cou <=10) loop
  dbms_output.put_line(v_cou);
  v_cou := v_cou + 1;
  end loop;
end;
-- 종료

declare
  v_cou_number := 1;
begin
  loop
  dbms_output.put_line(v_cou);
  exit when(v_cou = 5);
  v_cou := v_cou +1;
  end loop;
end;

-- 종료


< 커서 : 사용자가 실행한 sql 문의 단위를 말함 >
-- 1개의 행에 대한 수행은 별도 선언없이 암시적인 커서를 사용
-- 여러개의 행에 대해서는 커서를 이용해야 됨
-- 형식) CURSOR 커서명 OPEN 커서명 FETCH 커서명 INTO 변수 CLOSE 커서명

declare
  no number;
  name varchar2(10);
  pay number;
  cursor cs is select sawon_no, sawon_name, sawon_pay from sawon
  where sawon_jik='사원';
begin
  open cs;
  loop
  fetch cs into no, name, pay;
  exit when cs%notfound;
  dbms_output.put_line(no || '' || name || '' || pay);
end loop
  close cs;
  end;
  
 < open ~ fetch ~ close 없이 커서 처리 >
declare
  saw sawon%rowtype;
  cursor cc is
    select sawon_no, sawon_name, sawon_pay from sawon
    where sawon_jik='과장';
begin
  for saw in cc loop
    exit when cc%notfound;
    dbms_output.put_line(saw.sawon_no || '' || saw.sawon_name ||
end loop;
end;

< 함수 작성하기 >
-- create or replace function 함수명[(인자)...]
-- return datatype
-- is
-- begin
-- end;
create or replace function func1 (no number)
  return number is pay number(9);
begin
  pay := 0;
  select sawon_pay * 0.1 into pay from sawon where sawon_no=no;
  return pay;
end;

select func1(100) from dual;
select sawon_no, sawon_name, sawon_pay;
sawon_pay * 0.1 func1(sawon_no) from sawon;

< 부서명 얻기 >
create or replace function func2(bno number) return varchar2 is
bname varchar2(10);
begin
select buser_name into bname from buser where buser_no=bno;
return bname;
end;

select sawon_no, sawon_name, buser_num from sawon;


< procedure : 이름을 가진 PL/SQL 블럭 >
-- 형식
-- create or replace procedure 프로시저명 [(인자)...] is
-- 변수선언
-- begin
-- end;

create table sawon1 as select * from sawon;
select * from sawon1;

< 레코드 삭제 프로시저 >
create or replace produre pr_a is
begin
delete from sawon1 where sawon_no=1;
end;
/

execute pr_a; -- procedure의 실행
select * from sawon1;

< 레코드 수정 프로시저 >
create or replace procedure pr_b is
bun number :=2;
begin
update sawon1 set sawon_pay = 7777 where sawon_no=bun;
end;
/

exec pr_b;
select * from sawon1;

-- 매개변수가 있는 레코드 삭제 프로시저
create or replace procedure pr_c(no sawon1.sawon_no%type) is
begin
delte from sawon1 where sawon_no = no;
end;
/

exec pr_c(2);
exec pr_c(3);
select * from sawon1;

< 매개변수가 있는 레코드 수정 프로시저 >
create or replace procedure pr_d(no sawon1.sawon_no%type, is
jik sawon1.sawon_pay%type) is
bun number := 2;
begin
update from sawon1 set sawon_pay = pay, sawon_jik = jik
where sawon_no=no;
end;
/

exec pr_d(5, 8888, '이사');
exec pr_d(6, 5678, '과장대우');
select * from sawon1;

create or replace procedure pr_sell(no in sawon1.sawon_no%type) is
name varchar2(10);
begin
  select sawon_name into name from sawon
  where sawon_no=no;
  dbms_output.put_line('이름은' || name);
end;

exec pr_sell(5);

-- 종료

create or replace procedure pr_sell2(no in sawon1.sawon_no%type,
name out sawon1.sawon_name%type,
jik out sawon1. sawon_jik%type) is
begin
  select sawon_name, sawon_jik into name, jik from sawon
  where sawon_no=no;
  dbms_output.put_line('이름은' || name || ',직급은' || jik);
end;
/

< 정리 : person 테이블 >
create table person(id number(3) primary key,
name varchar2(20), wieght number(3));

desc person;

insert into person values(1, '홍길동', 66);
insert into person values(2, '고길동', 76);
insert into person values(3, '신길동', 68);
select * from person;

< procedure로 insert >
create or replace procedure p_1(no_number(3), name varchar2, weight number) is
name varchar2, weight number) is
begin
  insert into person values(no, name, weight);
  commit;
  exception when others then
  dbms_output.put_line('insert error');
  rollback;
end;
/

exec p_1(5,'김밥', 77);
select * from person;


< select 복수 개 변환 : 커서 사용 >
create or replace procedure p_5(s_id person.id%type) is
  cursor cur is select id,name from person;
  pid person.id%type;
  pname person.name%type;
begin
  open cur;
  loop
  fetch cur into pid, pname;
  exit when cur%notfound;
  dbms_output.put(pid);
  dbms_output.put(pname);
  end loop;
  close cur;
end;
/

< select 복수 개 반환 : 커서 사용 >
create or replace procedure p_6 is
  cursor cur is select id, name,weight from person;
begin
  for per_list in cur loop
  dbms.output.put(per_list.id);
  dbms_output.put(per_list.name);
  dbms_output.put_line(per_list.weight);
  end loop;
end;

exec p_6;


본 포스팅은 IT 교육기관인 KIC 캠퍼스의 지원을 받은 리포트입니다.
혹시 잘못되거나 문제 소지시 댓글 남겨주시면 조치하겠습니다.



댓글(0)

Designed by JB FACTORY