数据库武林秘史(二)PL/SQL块结构的入门心法

正文开始

DECLARE-- 声明部分：在此声明PL/SQL用到的变量、类型及游标，以及局部的存储过程和函数BEGIN   -- 执行部分：过程及SQL语句，即程序的主要部分EXCEPTION   -- 执行异常部分：错误处理END;

DECLARE   v_employee_id EMPLOYEE.EMPLOYEE_ID%TYPE := 100;BEGIN-- 执行部分：插入一条员工记录   INSERT INTO employees (employee_id, first_name, last_name, email)   VALUES (v_employee_id, '小倩', 'DBA', '[email protected]');   COMMIT;EXCEPTION   WHEN OTHERS THEN      DBMS_OUTPUT.PUT_LINE('An error occurred: ' || SQLERRM);END;

DECLARE   v_rowid EMPLOYEE.ROWID%TYPE;   v_info VARCHAR2(100);BEGININSERTINTO employees (employee_id, first_name, last_name, email)VALUES (1000, '智海', '大师', '[email protected]')   RETURNING rowid, first_name ||' '|| last_name INTO v_rowid, v_info;   DBMS_OUTPUT.PUT_LINE('ROWID: '|| v_rowid);   DBMS_OUTPUT.PUT_LINE('Info: '|| v_info);END;

DECLARETYPE employee_record IS RECORD (      employee_id EMPLOYEE.EMPLOYEE_ID%TYPE,      first_name EMPLOYEE.FIRST_NAME%TYPE,      last_name EMPLOYEE.LAST_NAME%TYPE   );   v_employee employee_record;BEGINSELECT employee_id, first_name, last_name   INTO v_employee   FROM employeesWHERE employee_id = 1000;   DBMS_OUTPUT.PUT_LINE('Employee: ' || v_employee.first_name || ' ' || v_employee.last_name);END;

DECLARE   TYPE employee_type ISTABLEOF employees%ROWTYPE INDEX BY BINARY_INTEGER;   v_employees employee_type;BEGINFOR i IN1..5 LOOPSELECT*INTO v_employees(i)FROM employeesWHERE employee_id = i;END LOOP;FOR i IN v_employees.FIRST..v_employees.LAST LOOP      DBMS_OUTPUT.PUT_LINE('Employee '|| i ||': '|| v_employees(i).first_name);END LOOP;END;

DECLARE   v_clob CLOB;BEGINSELECT dbms_lob.substr(clob_column, 4000, 1)INTO v_clobFROM large_objectsWHERE id =1;   DBMS_OUTPUT.PUT_LINE('CLOB Data: '|| v_clob);END;

DECLARE   VARIABLE v_salary NUMBER;   TYPE salary_table ISTABLEOF NUMBER INDEX BY BINARY_INTEGER;   v_salaries salary_table;BEGINFOR i IN1..5 LOOPSELECT salaryINTO v_salaries(i)FROM employeesWHERE employee_id = i;END LOOP;FOR i IN v_salaries.FIRST..v_salaries.LAST LOOP      DBMS_OUTPUT.PUT_LINE('Salary for Employee '|| i ||': '|| v_salaries(i));END LOOP;END;

DECLARE   v_char VARCHAR2(10) :='123';   v_number NUMBER;BEGIN   v_number := TO_NUMBER(v_char);   DBMS_OUTPUT.PUT_LINE('Number: '|| v_number);END;

DECLARE   v_global VARCHAR2(20) :='Global Variable';BEGINDECLARE      v_local VARCHAR2(20) :='Local Variable';BEGIN      DBMS_OUTPUT.PUT_LINE('Local: '|| v_local);      DBMS_OUTPUT.PUT_LINE('Global: '|| v_global);END;   DBMS_OUTPUT.PUT_LINE('Global: '|| v_global);EXCEPTIONWHEN OTHERS THEN      DBMS_OUTPUT.PUT_LINE('An error occurred: '|| SQLERRM);END;

-- 这是一个单行注释/*  这是一个多行注释  用于解释复杂的逻辑或代码块*/