v_weight := v_weight + 1;
v_message := 'Put' || v_message;
DBMS_OUTPUT.PUT_LINE('outter block ' || to_char(v_weight) || v_message); END;
运行结果为：
5.3.使用%type和%rowtype变量
1．使用%type变量
阅读以下程序，理解其功能，给出运行结果。 （1）DROP TABLE EMPL;
create table EMPL (
EMPLOYEE_ID NUMBER(5) not null, LAST_NAME VARCHAR2(20) not null, HIRE_DATE DATE,
SALARY NUMBER(8,2), JOB_ID NUMBER(5), DEPARTMENT_ID NUMBER(5) );
set serveroutput on;
-- PL/SQL变量之%TYPE类型 declare
v_last_name emp.last_name%TYPE; v_hire_date emp.hire_date%TYPE; v_balance number(6,2) ; v_min_balance v_balance%type; begin
dbms_output.put_line('定义%type类型的变量'); end; /
运行结果为：
第 6 页 共 24 页
（2）declare
v_deptno dept.deptno%type; v_loc dept.loc%type; begin
select deptno,loc
into v_deptno,v_loc from dept
where dname='SALES';
DBMS_OUTPUT.PUT_LINE (V_deptno ||' and '||v_loc); end; /
运行结果为：
2．使用%Rowtype变量
阅读以下程序，理解其功能，给出运行结果。
（1） DROP TABLE EMPL;
第 7 页 共 24 页
create table EMPL (
EMPLOYEE_ID NUMBER(5) not null, LAST_NAME VARCHAR2(20) not null, HIRE_DATE DATE,
SALARY NUMBER(8,2), JOB_ID NUMBER(5), DEPARTMENT_ID NUMBER(5) );
set serveroutput on;
-- PL/SQL变量之%ROWTYPE类型 declare
v_empl emp%rowtype; begin
dbms_output.put_line('定义%rowtype类型的变量'); end; /
运行结果为：
（2） --准备工作
drop table stock;
--创建表
create table stock (
symbol varchar2(50), price number(6,2) );
--添加数据
insert into stock values('IBM',188.88);
insert into stock values('ORCL',100.88);
第 8 页 共 24 页
--程序块 DECLARE
stock_info1 stock%ROWTYPE; stock_info2 stock%ROWTYPE; stock_info3 stock%ROWTYPE; BEGIN
--对应纪录直接取得相应字段的：Populate the specific fields in a record SELECT symbol,price
INTO stock_info1.symbol,stock_info1.price FROM stock
WHERE symbol ='ORCL';
--对应纪录直接 放入纪录中
SELECT * INTO stock_info2 FROM stock WHERE symbol ='ORCL';
stock_info3 := stock_info2; --记录间可以相互赋值
stock_info3.symbol:='ORACLE'; --对纪录的各字段赋值。
DBMS_OUTPUT.PUT_LINE('stock_info1 :' || stock_info1.symbol || '
'||stock_info1.price);
DBMS_OUTPUT.PUT_LINE('stock_info2 :' || stock_info2.symbol || '
'||stock_info2.price);
DBMS_OUTPUT.PUT_LINE('stock_info3 :' || stock_info3.symbol || '
'||stock_info3.price);
END;
运行结果为：
思考：
如下所示：改变表结构。
drop table stock; create table stock (
第 9 页 共 24 页
symbol varchar2(50), price number(6,2), owner varchar2(10)
);
对以上程序运行有影响吗？为什么？
会有影响，由于表的重建会导致程序找不到相关数据。
5.4. 使用复合变量
1.记录类型
阅读以下程序，理解其功能，给出运行结果。
（1）set serveroutput on;
-- PL/SQL变量之RECORD类型1 declare
type named_record_type is record ( last_name varchar2(20), first_name varchar2(20), birthday date, age number(3) );
v_record_1 named_record_type; v_record_2 named_record_type; begin
v_record_1.last_name := '张'; v_record_1.first_name := '三丰';
v_record_1.birthday := '2-2月-1788'; v_record_1.age := 432;
dbms_output.put_line('定义record类型的变量'); end; /
运行结果为：
（2）--使用记录类型2：?
set serveroutput on; DECLARE
TYPE remp IS RECORD( v_empno number(10), v_ename VARCHAR2 (20),
第 10 页 共 24 页