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;