- ---标量变量
- DECLARE
- V_AAC003 AC01.AAC003%TYPE := '&nam';
- BEGIN
- UPDATE AC01 SET AAC003 = V_AAC003 WHERE AAC001 = 11488451;
- UPDATE AC01 SET AAC003 = V_AAC003 WHERE AAC001 = 1148845;
- IF SQL%FOUND THEN
- DBMS_OUTPUT.PUT_LINE('更新成功!');
- ELSE
- DBMS_OUTPUT.PUT_LINE('更新失败!');
- END IF;
- DBMS_OUTPUT.PUT_LINE('更新' || SQL%ROWCOUNT || '条!');
- END;
- --记录变量
- DECLARE
- REC_AC01 AC01%ROWTYPE;
- BEGIN
- SELECT A.* INTO REC_AC01 FROM AC01 A WHERE A.AAC001 = 11488453;
- rec_ac01.aac001:=114884;
- INSERT INTO ac01 VALUES rec_ac01;
- DBMS_OUTPUT.PUT_LINE(REC_AC01.AAC001 || REC_AC01.AAC003);
- END;
- --pl/spl记录变量
- DECLARE
- TYPE TYPE_AC01 IS RECORD(
- AAC001 AC01.AAC001%TYPE,--记录成员
- AAC003 AC01.AAC003%TYPE);
- REC_AC01 TYPE_AC01;
- BEGIN
- SELECT A.AAC001, A.AAC003
- INTO REC_AC01
- FROM AC01 A
- WHERE A.AAC001 = 11488453;
- DBMS_OUTPUT.PUT_LINE(REC_AC01.AAC001 || REC_AC01.AAC003);
- END;
- --索引表
- DECLARE
- TYPE INDEX_AC01 IS TABLE OF AC01.AAC003%TYPE INDEX BY BINARY_INTEGER;
- V_AC01 INDEX_AC01;
- BEGIN
- SELECT AAC003 INTO V_AC01(-1) FROM AC01 WHERE AAC001 = 11488453;
- SELECT AAC003 INTO V_AC01(1) FROM AC01 WHERE AAC001 = 11488451;
- DBMS_OUTPUT.PUT_LINE(V_AC01(-1));
- DBMS_OUTPUT.PUT_LINE(V_AC01(1));
- END;
转载于:https://blog.51cto.com/xuechang/1093017