提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  数据库

当前栏目

Oracle PL/SQL例8：标识符引用

2023-02-18 16:35:04 时间

编者按：

人，一半是天使，一半是魔鬼。

最好的学习是实践加上看官方文档。官方文档中的代码例更是精华和重点所在。

IT行业如此，编程如此，Oracle PL/SQL的学习更是如此。

本系列以摘自《Database PL/SQL Language Reference》的PL/SQL代码例为主进行介绍。

【免责声明】本公众号文章仅代表个人观点，与任何公司无关。

编辑|SQL和数据库技术(ID:SQLplusDB)

Oracle PL/SQL例

Oracle PL/SQL编程基础 Oracle PL/SQL例2：处理查询的结果行（基础循环） Oracle PL/SQL例3：使用双引号 Oracle PL/SQL例4：文字（Literals）换行的处理 Oracle PL/SQL例5：注释 Oracle PL/SQL例6：声明变量/常量 Oracle PL/SQL例7：%TYPE 属性

例1：使用名字引用标识符

DECLARE
  a INTEGER;  -- Declaration
BEGIN
  a := 1;     -- Reference with simple name
END;
/

例2：标识符的可见范围

-- Outer block:
DECLARE
  a CHAR;  -- Scope of a (CHAR) begins
  b REAL;    -- Scope of b begins
BEGIN
  -- Visible: a (CHAR), b
  
  -- First sub-block:
  DECLARE
    a INTEGER;  -- Scope of a (INTEGER) begins
    c REAL;       -- Scope of c begins
  BEGIN
    -- Visible: a (INTEGER), b, c
    NULL;
  END;          -- Scopes of a (INTEGER) and c end

  -- Second sub-block:
  DECLARE
    d REAL;     -- Scope of d begins
  BEGIN
    -- Visible: a (CHAR), b, d
    NULL;
  END;          -- Scope of d ends

-- Visible: a (CHAR), b
END;            -- Scopes of a (CHAR) and b end
/

例3：引用子程序


CREATE OR REPLACE PROCEDURE check_credit (credit_limit NUMBER) AS
  rating NUMBER := 3;
  
  FUNCTION check_rating RETURN BOOLEAN IS
    rating  NUMBER := 1;
    over_limit  BOOLEAN;
  BEGIN
    IF check_credit.rating <= credit_limit THEN  -- reference global variable
      over_limit := FALSE;
    ELSE
      over_limit := TRUE;
      rating := credit_limit;                    -- reference local variable
    END IF;
    RETURN over_limit;
  END check_rating;
BEGIN
  IF check_rating THEN
    DBMS_OUTPUT.PUT_LINE
      ('Credit rating over limit (' || TO_CHAR(credit_limit) || ').  '
      || 'Rating: ' || TO_CHAR(rating));
  ELSE
    DBMS_OUTPUT.PUT_LINE
      ('Credit rating OK.  ' || 'Rating: ' || TO_CHAR(rating));
  END IF;
END;
/

输出： 

SQL> set serverout on
SQL> BEGIN
  2    check_credit(1);
  3  END;
  4  /
Credit rating over limit (1).  Rating: 3

PL/SQL 过程已成功完成。

例4：不同单元的引用‍

SQL> DECLARE
  2    PROCEDURE p
  3    IS
  4      x VARCHAR2(1);
  5    BEGIN
  6      x := 'a';  -- Assign the value 'a' to x
  7      DBMS_OUTPUT.PUT_LINE('In procedure p, x = ' || x);
  8    END;
  9
 10    PROCEDURE q
 11    IS
 12      x VARCHAR2(1);
 13    BEGIN
 14      x := 'b';  -- Assign the value 'b' to x
 15      DBMS_OUTPUT.PUT_LINE('In procedure q, x = ' || x);
 16    END;
 17
 18  BEGIN
 19    p;
 20    q;
 21  END;
 22  /
In procedure p, x = a
In procedure q, x = b

PL/SQL 过程已成功完成。
SQL> <<echo>>
  2  DECLARE
  3    x  NUMBER := 5;
  4
  5    PROCEDURE echo AS
  6      x  NUMBER := 0;
  7    BEGIN
  8      DBMS_OUTPUT.PUT_LINE('x = ' || x);
  9      DBMS_OUTPUT.PUT_LINE('echo.x = ' || echo.x);
 10    END;
 11
 12  BEGIN
 13    echo;
 14  END;
 15  /
x = 0
echo.x = 0

PL/SQL 过程已成功完成。

相关文章