|
|
|
--定义一个对象类型的变量CREATE OR REPLACE PROCEDURE TEST_1 IS TYPE N_OBJECT IS RECORD( n_no number, v_name varchar2(20), v_phone varchar2(20)); n_o N_OBJECT;BEGIN n_o.n_no := 10; n_o.v_name := 'jack'; n_o.v_phone := '15910906597'; dbms_output.put_line(n_o.n_no || ',' || n_o.v_name || ',' || n_o.v_phone);END;--LOOP循环用法CREATE OR REPLACE PROCEDURE TEST_2 IS n_number number:=1;BEGIN LOOP dbms_output.put_line(n_number); n_number := n_number + 1; EXIT WHEN n_number = 10; END LOOP;END;--FOR循环用法CREATE OR REPLACE PROCEDURE TEST_3 ISBEGIN FOR n_f IN 1..10 LOOP DBMS_OUTPUT.put_line(n_f); END LOOP;END;--游标用法CREATE OR REPLACE PROCEDURE TEST_4 IS CURSOR c_cur is SELECT DNAME FROM DEPT; v_dname varchar2(100);BEGIN OPEN c_cur; LOOP FETCH c_cur into v_dname; DBMS_OUTPUT.put_line(v_dname); EXIT WHEN c_cur%NOTFOUND; END LOOP; CLOSE c_cur;END; |
|