PL/SQL-1 块的使用

--------------------------------------------------------------------------

**************************************************************************

第一部分：PL/SQL块的使用：

**************************************************************************

--------------------------------------------------------------------------

--案例01：简单的变量使用

declare

eno varchar2(10);

ename varchar2(20);

begin

eno:='9527';

ename:='wind';

dbms_output.put_line('eno:' ||eno ||'ename:' ||ename);

end;

--案例02：定义并常规赋值变量

declare

eno varchar(20);

ename varchar(20);

sid constant varchar(10):='110' ;

v_valid boolean default false;

begin

eno:='9527';

ename:='wind';

dbms_output.put_line('eno:' ||eno ||', ename:' ||ename ||' ,sid'||sid);

end;

--案例03：通过查询表赋值变量

declare

eno varchar(20);

ename varchar(20);

sid constant varchar(10):='110' ;

v_valid boolean default false;

begin

select empno, ename into eno, ename from emp where empno=7788; /*一定使用where指明条件*/

dbms_output.put_line('eno:' ||eno ||', ename:' ||ename ||' ,sid'||sid);

end;



--案例04：PL/SQL块

--基础01：%rowtype

declare

name emp%rowtype; /*表示变量name和emp表的一行的所有列属性相同*/

begin

select * into name from emp where empno=7788; /*select后只能使用*,把该行的所有列赋值给变量*/

dbms_output.put_line('name'||name.ename); /*name.ename即：变量中的列名ename*/

end;

---or

declare

name emp%rowtype; /*表示变量name和emp表的一行的所有列属性相同*/

begin

select * into name from emp where empno=7788; /*select后只能使用*,把该行的所有列赋值给变量*/

dbms_output.put_line('name:'||' ' || name.ename ); /*name.ename即：变量中的列名ename*/

dbms_output.put_line('work no:' ||name.empno);

dbms_output.put_line('emp job:' ||name.job);

dbms_output.put_line('salary:' ||name.sal);

end;

/



--基础02：%type

declare

nm emp.ename%type; --表示与表emp表中的ename列属性相同

no emp.empno%type;

begin

select ename, empno into nm, no from emp where empno=7788; /*select后使用部分字段列赋值给变量*/

dbms_output.put_line('name:'||' ' ||nm);

end;

--完整案例：

declare

eno emp.empno%type;

name emp.ename%type;

emprow emp%rowtype; --与emp表中的所有行属性相同

begin

select empno, ename into eno, name from emp where empno=7369;

select * into emprow from emp where empno=7788; /*将一行数据的所有列赋值给变量*/

dbms_output.put_line('tmpno:'||eno||' '||'cname:' ||name);

dbms_output.put_line('empno:'||emprow.empno||' '||'ename:' ||emprow.ename);

exception

when no_data_found then

dbms_output.put_line('没有数据');

end;

----or

declare

eno emp.empno%type;

name emp.ename%type;

emprow emp%rowtype; --与emp表中的所有行属性相同

begin

select empno, ename into eno, name from emp where empno=7369;

dbms_output.put_line('tmpno:'||eno||' '||'cname:' ||name);

select * into emprow from emp where empno=7799; /*将一行数据的所有列赋值给变量*/

dbms_output.put_line('empno:'||emprow.empno||' '||'ename:' ||emprow.ename);

exception

when no_data_found then

dbms_output.put_line('没有数据');

end;

--案例05：日期转换

declare

thisday date;

begin

thisday:=sysdate;

dbms_output.put_line('this is day:' ||to_char(thisday,'yyyy-mm-dd hh24:mi:ss'));

exception

when no_data_found then

dbms_output.put_line('没有数据');

end;

--案例06：比较日期

declare

thisday date;

begin

thisday:=sysdate;

if thisday >'20-3月-2004' then --必须按照这样的日期格式。或案例07.

dbms_output.put_line('this is day:' ||to_char(thisday,'yyyy-mm-dd'));

else

dbms_output.put_line('this is no day');

end if;

exception

when no_data_found then

dbms_output.put_line('没有数据');

end;

--案例07：

declare

thisday date;

begin

thisday:=sysdate;

if thisday <to_date('2006-03-12', 'yyyy-mm-dd' )then /*通过格式转换，最好按照这样的转换*/

dbms_output.put_line('this is day:' ||to_char(thisday,'yyyy-mm-dd'));

else

dbms_output.put_line('this is no day');

end if;

exception

when no_data_found then

dbms_output.put_line('没有数据');

end;