pl/sql语言入门
PL/SQL是ORACLE的过程化语言，包括一整套的数据类型、条件结构、循环结构和异常处理结构，PL/SQL可以执行SQL语句，SQL语句中也可以使用PL/SQL函数。
8、查询表结构
1.2 创建PL/SQL程序块
ORDER_NO NUMBER(3);
CUST_NAME VARCHAR2(20);
ORDER_DATE DATE;
EMP_NO INTEGER:=25;
PI CONSTANT NUMBER:=3.1416;
BEGIN
NULL;
END;
1.4 处理PL/SQL的异常
1.4.3 自定义异常处理
SALARY_CODE VARCHAR2(1);
INVALID_SALARY_CODE EXCEPTION;
BEGIN
SALARY_CODE:='X';
IF SALARY_CODE NOT IN('A', 'B', 'C') THEN
RAISE INVALID_SALARY_CODE;
END IF;
EXCEPTION WHEN INVALID_SALARY_CODE THEN
DBMS_OUTPUT.PUT_LINE('INVALID SALARY CODE');
END;
1.5 在PL/SQL中单条记录的查询
1.6.2 使用光标FOR循环
CURSOR C1(VIEW_PATTERN VARCHAR2) IS
SELECT VIEW_NAME
FROM ALL_VIEWS
WHERE VIEW_NAME LIKE VIEW_PATTERN||'%' AND
ROWNUM<=10
ORDER BY VIEW_NAME;
VNAME VARCHAR2(40);
BEGIN
FOR I IN C1('USER_AR') LOOP
DBMS_OUTPUT.PUT_LINE(I.VIEW_NAME);
END LOOP;
DBMS_OUTPUT.PUT_LINE();
FOR I IN C1('USER') LOOP
DBMS_OUTPUT.PUT_LINE(I.VIEW_NAME);
END LOOP;
EXCEPTION WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('AAA');
END;
1.7 创建代表数据库记录和列的变量
默认安装完Oracle后，初学者应该了解下面的一些SQL语句:
1、连接
| SQL*Plus system/manager |
2、显示当前连接用户
| SQL> show user |
3、查看系统拥有哪些用户
| SQL> select * from all_users; |
4、新建用户并授权
| SQL> create user a identified by a;（默认建在SYSTEM表空间下） SQL> grant connect,resource to a; |
5、连接到新用户
| SQL> conn a/a |
6、查询当前用户下所有对象
| SQL> select * from tab; |
7、建立第一个表
SQL> create table a(a number);
8、查询表结构
| SQL> desc a |
9、插入新记录
| SQL> insert into a values(1); |
10、查询记录
| SQL> select * from a; |
11、更改记录
| SQL> update a set a=2; |
12、删除记录
| SQL> delete from a; |
13、回滚
| SQL> roll; SQL> rollback; |
14、提交
SQL> commit;
1.2 创建PL/SQL程序块
| DECLARE … BEGIN … EXCEPTION END; |
1.3 PL/SQL数据类型
| 名称 | 类型 | 说明 |
| NUMBER | 数字型 | 能存放整数值和实数值，并且可以定义精度和取值范围 |
| BINARY_INTEGER | 数字型 | 可存储带符号整数，为整数计算优化性能 |
| DEC | 数字型 | NUMBER的子类型，小数 |
| DOUBLE PRECISION | 数字型 | NUMBER的子类型，高精度实数 |
| INTEGER | 数字型 | NUMBER的子类型，整数 |
| INT | 数字型 | NUMBER的子类型，整数 |
| NUMERIC | 数字型 | NUMBER的子类型，与NUMBER等价 |
| REAL | 数字型 | NUMBER的子类型，与NUMBER等价 |
| SMALLINT | 数字型 | NUMBER的子类型，取值范围比INTEGER小 |
| VARCHAR2 | 字符型 | 存放可变长字符串，有最大长度 |
| CHAR | 字符型 | 定长字符串 |
| LONG | 字符型 | 变长字符串，最大长度可达32,767 |
| DATE | 日期型 | 以数据库相同的格式存放日期值 |
| BOOLEAN | 布尔型 | TRUE OR FALSE |
| ROWID | ROWID | 存放数据库的行号 |
例子：
DECLARE
ORDER_NO NUMBER(3);
CUST_NAME VARCHAR2(20);
ORDER_DATE DATE;
EMP_NO INTEGER:=25;
PI CONSTANT NUMBER:=3.1416;
BEGIN
NULL;
END;
1.4 处理PL/SQL的异常
1.4.1 PL/SQL的异常
例如：
| DECLARE X NUMBER; BEGIN X:= 'yyyy';--Error Here EXCEPTION WHEN VALUE_ERROR THEN DBMS_OUTPUT.PUT_LINE('EXCEPTION HANDED'); END; |
实现技术：
| EXCEPTION WHEN first_exception THEN … WHEN second_exception THEN … WHEN OTHERS THEN /*THERS异常处理器必须排在最后，它处理所有没有明确列出的异常。*/ … END; |
1.4.2 预定义异常
| 异常名称 | ORACLE错误 | 说明 |
| CURSOR_ALREADY_OPEN | ORA-6511 | 试图打开一个已打开的光标 |
| DUP_VAL_ON_INDEX | ORA-0001 | 试图破坏一个唯一性限制 |
| INVALID_CURSOR | ORA-1001 | 试图使用一个无效的光标 |
| INVALID_NUMBER | ORA-1722 | 试图对非数字值进行数字操作 |
| LOGIN_DENIED | ORA-1017 | 无效的用户名或者口令 |
| NO_DATA_FOUND | ORA-1403 | 查询未找到数据 |
| NOT_LOGGED_ON | ORA-1012 | 还未连接就试图数据库操作 |
| PROGRAM_ERROR | ORA-6501 | 内部错误 |
| ROWTYPE_MISMATCH | ORA-6504 | 主变量和光标的类型不兼容 |
| STORAGE_ERROR | ORA-6500 | 内部错误 |
| TIMEOUT_ON_RESOURCE | ORA-0051 | 发生超时 |
| TOO_MANY_ROWS | ORA-1422 | SELECT INTD命令返回的多行 |
| TRANSACTION_BACKED_OUT | ORA-006 | 由于死锁提交被退回 |
| VALUE_ERROR | ORA-6502 | 转换或者裁剪错误 |
| ZERO_DIVIDE | ORA-1476 | 试图被零除 |
| DECLARE BAD_ROWID EXCEPTION; X ROWID; PRAGMA EXCEPTION_INIT(BAD_ROWID,-01445); BEGIN SELECT ROWID INTO X FROM TAB WHERE ROWNUM=1; EXCEPTION WHEN BAD_ROWID THEN DBMS_OUTPUT.PUT_LINE('CANNOT QUERY ROWID FROM THIS VIEW'); END; |
注意：-01445 因为PRAGMA EXCEPTION_INIT命令把这个变量(-01455)连接到
这个ORACLE错误，该语句的语法如下：
| PRAGMA EXCEPTION_INIT(exception_name, error_number); |
其中error_number是负数，因为错误号被认为负数，当定义错误时记住使用负号
1.4.4 自定义异常
异常不一定必须是oracle返回的系统错误，用户可以在自己的应用程序中创
建可触发及可处理的自定义异常
DECLARE
SALARY_CODE VARCHAR2(1);
INVALID_SALARY_CODE EXCEPTION;
BEGIN
SALARY_CODE:='X';
IF SALARY_CODE NOT IN('A', 'B', 'C') THEN
RAISE INVALID_SALARY_CODE;
END IF;
EXCEPTION WHEN INVALID_SALARY_CODE THEN
DBMS_OUTPUT.PUT_LINE('INVALID SALARY CODE');
END;
1.5 在PL/SQL中单条记录的查询
在PL/SQL内，有时在没有定义显式光标的情况下需要查询单条记录，并把记录的数据赋给变量。
| DECLARE ln_dno NUMBER; lvs_dname VARCHAR2(40); BEGIN SELECT DEPT_NO,DEPT_NAME INTO ln_dno,lvs_dname FROM dept WHERE DEPT_NO=1; DBMS_OUTPUT.PUT_LINE(TO_CHAR(ln_dno)||'.'||lvs_dname); EXCEPTION WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE('NO DATA_FOUND'); WHEN TOO_MANY_ROWS THEN DBMS_OUTPUT.PUT_LINE('TOO_MANY_ROWS'); END; |
1.6 用光标查询多条记录
光标(CURSOR)是指向一个称为上下文相关区的区域的指针，这个区域在服务器的处理过程全局区(PGA)内，当服务器上执行了一个查询后，查询返回的记录集存放在上下文相关区，通过光标上的操作可以把这些记录检索到客户端的应用程序。
1.6.1 使用光标的基本方法
| DECLARE CURSOR C1 IS SELECT VIEW_NAME FROM ALL_VIEWS WHERE ROWNUM<=10 ORDER BY VIEW_NAME; VNAME VARCHAR2(40); BEGIN OPEN C1; FETCH C1 INTO VNAME; WHILE C1%FOUND LOOP DBMS_OUTPUT.PUT_LINE(TO_CHAR(C1%ROWCOUNT)||' '||VNAME); FETCH C1 INTO VNAME; END LOOP; END; |
| 含量 | 属性 |
| %FOUND | 布尔型属性，当最近一次该记录时成功返回，则值为TRUE |
| %NOTFOUND | 布尔型属性，它的值总与%FOUND属性的值相反 |
| %ISOPEN | 布尔型属性，当光标是打开时返回TRUE |
| %ROWCOUNT | 数字型属性，返回已从光标中读取的记录数 |
| DECLARE CURSOR C1 IS SELECT VIEW_NAME FROM ALL_VIEWS WHERE ROWNUM<=10 ORDER BY VIEW_NAME; BEGIN FOR I IN C1 LOOP DBMS_OUTPUT.PUT_LINE(I.VIEW_NAME); END LOOP; END LOOP; EXCEPTION WHEN OTHERS THEN NULL; END; |
1.6.3 带参数的光标
DECLARE
CURSOR C1(VIEW_PATTERN VARCHAR2) IS
SELECT VIEW_NAME
FROM ALL_VIEWS
WHERE VIEW_NAME LIKE VIEW_PATTERN||'%' AND
ROWNUM<=10
ORDER BY VIEW_NAME;
VNAME VARCHAR2(40);
BEGIN
FOR I IN C1('USER_AR') LOOP
DBMS_OUTPUT.PUT_LINE(I.VIEW_NAME);
END LOOP;
DBMS_OUTPUT.PUT_LINE();
FOR I IN C1('USER') LOOP
DBMS_OUTPUT.PUT_LINE(I.VIEW_NAME);
END LOOP;
EXCEPTION WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('AAA');
END;
1.7 创建代表数据库记录和列的变量
| 变量名 基表名.列名%TYPE DECLARE D_NO DEPT.DEPT_NO%TYPE; D_NAME DEPT.DEPT_NAME%TYPE; BEGIN SELECT DEPT_NO,DEPT_NAME INTO D_NO,D_NAME FROM DEPT; DBMS_OUTPUT.PUT_LINE(TO_CHAR(D_NO)); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; END; 变量名 基表名%ROWTYPE DECLARE D VEQU12%ROWTYPE; BEGIN SELECT ASSET12ID,ASSET12NAME INTO D.ASSET12ID, D.ASSET12NAME FROM VEQU12; DBMS_OUTPUT.PUT_LINE(D.ASSET12ID); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN TOO_MANY_ROWS THEN DBMS_OUTPUT.PUT_LINE('TOO_MANY_ROWS'); END; |
说明：
当用户要创建一个变量来表示一个基表列或者要创建多个变量来代表一整条记录时，可以实际使用%TYPE属性和%ROWTYPE属性，使用%TYPE属性和%ROWTYPE属性可以保证当基表的结构或者其中某列的数据类型改变了时，用户的PL/SQL代码仍可正常工作。
1.8 怎样用PL/SQL表实现数组功能
PL/SQL表与其他过程化语言(如C语言)的一维数组类似。实现PL/SQL表需要创建一个数据类型并另外进行变量说明。
Type <类型名> Is
Table Of <数据类型>
Index by Binary_Integer;
以下为一个例子：
| Declare Type Array_type is Table Of Number Index by Binary_Integer; My_Array Array_type; Begin For I In 1..10 Loop My_Array(I) := I*2; End Loop; For I In 1..10 Loop Dbms_Output.Put_line(To_char(My_Array(I))); End Loop; End; |
pl/sql小例
| set serveroutput on declare v_empid int(10):=0; v_depid int(10):=0; in_empid varchar2(10):='13'; in_deptid varchar2(10):='1'; in_empname varchar2(10):='shabi'; begin select count(*) into v_empid from emp where empid=in_empid; select count(*) into v_depid from dept where deptid=in_deptid; if v_empid >0 then dbms_output.put_line('该用户编号已存在'); end if; if v_depid =0 then dbms_output.put_line('该部门号不存在'); end if; if v_empid=0 and v_depid>0 then insert into emp(empid,empname,deptid) values(in_empid,in_empname,in_deptid); end if; commit; end; |