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;