oracle 变量应用实例

---标量变量
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;