2013년 10월 29일 화요일

오라클 동적 Dynamic SQL 예제

Dynamic SQL 예제

CREATE OR REPLACE PROCEDURE create_stmt AS
  sql_stmt varchar2(4000);
BEGIN
  EXECUTE IMMEDIATE 'CREATE TABLE x (a NUMBER)';
END;
/
show errors

CREATE OR REPLACE PROCEDURE create_stmt2 AS
  cur integer;
  rc  integer;
BEGIN
  cur := DBMS_SQL.OPEN_CURSOR;
  DBMS_SQL.PARSE(cur, 'CREATE TABLE X (Y DATE)', DBMS_SQL.NATIVE);
  rc := DBMS_SQL.EXECUTE(cur);
  DBMS_SQL.CLOSE_CURSOR(cur);
END;
/
show errors

SET SERVEROUTPUT ON

CREATE OR REPLACE PROCEDURE DEPARTMENTS(NO IN DEPT.DEPTNO%TYPE) AS
  v_cursor integer;
  v_dname  char(20);
  v_rows  integer;
BEGIN
  v_cursor := DBMS_SQL.OPEN_CURSOR;
  DBMS_SQL.PARSE(v_cursor, 'select dname from dept where deptno > :x', DBMS_SQL.V7);
  DBMS_SQL.BIND_VARIABLE(v_cursor, ':x', no);
  DBMS_SQL.DEFINE_COLUMN_CHAR(v_cursor, 1, v_dname, 20);
  v_rows := DBMS_SQL.EXECUTE(v_cursor);
  loop
    if DBMS_SQL.FETCH_ROWS(v_cursor) = 0 then
      exit;
    end if;
    DBMS_SQL.COLUMN_VALUE_CHAR(v_cursor, 1, v_dname);
    DBMS_OUTPUT.PUT_LINE('Deptartment name: '||v_dname);
  end loop;
  DBMS_SQL.CLOSE_CURSOR(v_cursor);
EXCEPTION
  when others then
      DBMS_SQL.CLOSE_CURSOR(v_cursor);
      raise_application_error(-20000, 'Unknown Exception Raised: '||sqlcode||' '||sqlerrm);
END;
/
show errors
SQL초보에서실전전문가까지 총 8일 56시간   11-06
고급개발자를위한 오라클힌트&SQL튜닝 총 10일 30시간   11-08
SQL초보에서실전전문가까지 총 18일 54시간   11-13
고급개발자를위한 오라클힌트&SQL튜닝 총 4일 32시간   11-09
SQL초보에서실전전문가까지 총 8일 56시간   11-10




작성자: 시간:

댓글 없음:

댓글 쓰기

피드 구독하기: 댓글 (Atom)