Procedure Language/Structure query Language
一、关于语言学习
1、数据类型 2、语法 通过例子来学习很快就能明白
set serverputout on；
begin
dbms_output.put_line（‘HelloWorld！’）；
end；
二、结构（declare（可选）、begin、exception(可选)、end）
1、declare例子
declare
v_name varchar2(20);
begin
v_name := 'MyName';
dbms_output.put_line(v_name);
end;
2、exception例子
declare
v_num number ：= 0；
begin
v_num ：=2/v_num；
dbms_output.put_line(v_num);
exception
when others then
dbms_output.put_line('error');
end;
三、数据类型
1、常用变量类型
（1）、binary_integer：整数，主要用于计数而不是用于表示字段类型。
（2）、number：数字类型
（3）、char 定长字符串
（4）、varchar2：变长字符串
（5）、date：日期
（6）、long：长字符串，最长2GB
（7）、boolean：布尔类型，可以取值：true，false和null值
例子：
declare
v_temp number(1);
v_count binary_integer :=0;
v_sal number(7,2) := 4000.00;
v_date date := sysdate;
v_pi constant number(3,2) := 3.14;
v_valid boolean := false;
v_name varchar2(20) not null := 'Myname';
begin
dbms_output.put_line('v_temp value:' || v_temp);
end;
--变量声明，使用%type属性
例子：
declare
v_empno number(4);
v_empno2 emp.empno%type;
v_empno3 v_empno%type;
begin
dbms_output.put_line('Test'）;
end;
2、复杂数据类型（table相当于java里的数组，record相当于java中的类）
--Table变量类型
例子
declare
type type_table_emp_empno is table of emp.empno%type index by binary_integer;
v_empnos type_table_empno;
begin
v_empnos(0) := 7369;
v_empnos(2) := 7839;
v_empnos(-1) := 9999;
dbms_output.put_line(v_empnos(-1));
end;
--Record变量类型
declare
type type_record_dept is record
(
deptno dept.deptno%type,
dname dept.dname%type,
loc dept.loc%type
);
v_temp type_record_dept;
begin
v_temp.deptno := 50;
v_temp.dname :='aaaa';
v_temp.loc := 'bj';
dbms_output.put_line(v_temp.deptno || ' ' || v_temp.dname);
end;
--使用%rowtype(有助于程序维护）
declare
v_temp dept%rowtype;
begin
v_temp.deptno := 50;
v_temp.dname := 'aaaa';
v_temp.loc := 'bj';
dbms_output.put_line(v_temp.deptno || ' ' || v_e_temp.dname);
end;
四、SQL语句的运用
例子：
declare
v_ename emp.ename%type;
v_sal emp.sal%type;
begin
select ename , sal into v_name , v_sal from emp where empno = 7369;
dbms_output.put_line(v_name || ' ' || v_sal);
end;
<注>:sql语句中，select语句必须与into一起用，且返回记录有且仅有一条
declare
v_temp emp%rowtype;
begin
select * into v_emp from emp where empno = 7360;
dbms_output.put_line(v_emp.ename);
end;
declare
v_deptno dept.deptno%type := 50;
v_dname dept.dname %type := 'aaaa';
v_loc dept.loc%type := 'bj';
begin
insert into dept2 values(v_deptno, v_dname, v_loc);
commit;
end;
declare
v_deptno emp2.deptno%type := 10;
v_count number;
begin
--update emp2 set sal = sal/2 wehre deptno = v_deptno;
--select deptno into v_daptno from emp2 where empno = 7369;
select count(*) into v_count from emp2;
dbms_output.put_line(sql%rowcount || '条记录被影响');
commit;
end;
DDL语句
begin
execute immediate 'create table T mmm varchar2(20) default ''aaa'');
end;
3、分支与循环
--if语句
--取出7369的薪水，如果<1200,则输出‘Low’，如果<2000则输出‘Middle’，否则‘High’
declare
v_sal emp.sal%type;
begin
select sal into v_sal from emp where empno = 7369;
if(v_sal <1200) then
dbms_output.put_line('Low');
elseif(v_sal<2000) then
dbms_output.put_line('Middle');
else
dbms_output.put_line('High');
end if;
end;
--循环
--do-while循环
declare
i binary_integer := 1;
begin
loop
dbms_output.put_line(i);
i := i+1;
exit when (i>= 11);
end loop;
end;
--while循环
declare
j binary_integer := 1;
begin
while j< 11 loop
dbms_output.put_line(j);
j := j+1;
end loop ;
end;
--for循环
begin
for k in 1..10 loop
dbms_output.put_line(k);
end loop;
end;
--错误处理
declare
v_temp number(4);
begin
select empno into v_temp from emp where deptno = 10;
exception
when too_many_rows then
dbms_output.put_line('太多记录了');
when no_data_found then
dbms_output.put_line('没数据');
when otheres then
dbms_output.put_line('error');
end;
--数据库报错记录 Log
create table errorlog
(
id number primary key,
errcode number,
errmsg varchar2(1024),
errdate date
);
declare
v_deptno dept.deptno%type :=10;
v_errcode number;
v_errmsg varchar2(1024);
begin
delete from dept where deptno = v_deptno;
commit;
exception
when others then
rollback;
v_errcode := SQLCODE;
v_errmsg := SQLERRM;
insert into errorlog values(seq_errorlog_id.nextval,v_errcode,v_errmsg,sysdate);
commit;
end;
--游标cursor （java里的iterater） fetch 移动游标
declare
cursor c is select * from emp;
v_emp c%rowtype;
begin
open c;
fetch c into v_emp;
dbms_output.put_line(v_emp.ename);
close c;
end;
--遍历游标的三种方式
（1）、do-while方式
declare
cursor c is select * from emp;
v_emp c%rowtype;
begin
open c;
loop
fetch c into v_empl;
exit when (c%notfound);
dbms_output.put_line(v_emp.ename);
end loop;
close c;
end;
(2)、while方式
declare
curser c is select * from emp;
v_emp emp%rowtype;
begin
open c;
fetch c into v_emp;
while (c%found) loop
dbms_output.put_line(v_emp.ename);
fetch c into v_emp;
end loop;
close c;
end;
(3)、For循环方式
declare
cursor c is select * from emp
begin
for v_emp in c loop
dbms_output.put_line(v_emp.ename);
end loop;
end;
--带参数的游标
declare
cursor c(v_deptno emp.deptno%type, v_job emp.job%type) is
select ename,sal from emp where deptno = v_deptno and job = v_job;
begin
for v_temp in c(30,'CLERK') loop
dbms_output.put_line(v_temp.ename);
end loop;
end;
--可更新的游标
declare
cursor c is
select * from emp2 for update;
begin
for v_temp in c loop
if(v_temp.sal<2000) then
update emp2 set sal =sal*2 where current of c;
elseif(v_temp.sal = 5000) then
delete from emp where current of c;
end if;
end loop;
commit;
end;