Question

我想打印一个匿名块内的特定变量的值。我正在使用Oracle SQL Developer。我尝试使用dbms_output.put_line。但它没有用。我正在使用的代码如下所示。

SET SERVEROUTPUT ON

DECLARE

  CTABLE USER_OBJECTS.OBJECT_NAME%TYPE;
  CCOLUMN ALL_TAB_COLS.COLUMN_NAME%TYPE;
  V_ALL_COLS VARCHAR2(500);

  CURSOR CURSOR_TABLE
    IS
    SELECT OBJECT_NAME 
    FROM USER_OBJECTS 
    WHERE OBJECT_TYPE='TABLE'
    AND OBJECT_NAME LIKE 'tb_prm_%';

  CURSOR CURSOR_COLUMNS (V_TABLE_NAME IN VARCHAR2)
    IS
    SELECT COLUMN_NAME
    FROM ALL_TAB_COLS
    WHERE TABLE_NAME = V_TABLE_NAME;

BEGIN

  OPEN CURSOR_TABLE;

  LOOP
    FETCH CURSOR_TABLE INTO CTABLE;
    EXIT WHEN CURSOR_TABLE%NOTFOUND;

    OPEN CURSOR_COLUMNS (CTABLE);

    V_ALL_COLS := NULL;

    LOOP
      FETCH CURSOR_COLUMNS INTO CCOLUMN;
      V_ALL_COLS := V_ALL_COLS || CCOLUMN;
      IF CURSOR_COLUMNS%FOUND THEN
        V_ALL_COLS := V_ALL_COLS || ', ';
      ELSE
        EXIT;
      END IF;
    END LOOP;

    DBMS_OUTPUT.PUT_LINE(V_ALL_COLS);

  END LOOP;
  CLOSE CURSOR_TABLE;

END;

我的输出仅为anonymous block completed。

Answer 1

您需要打开dbms_output。在Oracle SQL Developer中：

显示DBMS输出窗口（视图 - ＆gt; DBMS输出）。
按下Dbms Output窗口顶部的“+”按钮，然后在打开的对话框中选择一个打开的数据库连接。

在SQL * Plus中：

 SET SERVEROUTPUT ON

Answer 2

当您明确打开DBMS_OUTPUT窗口窗格时，SQL Developer似乎只输出DBMS_OUTPUT文本。

转到（菜单）视图 - ＆gt; Dbms_output用于调用窗格。

单击绿色加号以启用连接输出，然后运行代码。

编辑：不要忘记根据您期望的输出量设置缓冲区大小。

Answer 3

首先制作服务器输出

SET SERVEROUTPUT on然后
转到DBMS输出窗口（查看 - > DBMS输出）
然后按 Ctrl + N 连接服务器

Answer 4

有两个选项：

set serveroutput on format wrapped;

或

打开'view'菜单并单击'dbms output'。您应该在工作表的底部获得一个dbms输出窗口。然后，您需要添加连接（由于某种原因，这不是自动完成的）。

Answer 5

DECLARE

  CTABLE USER_OBJECTS.OBJECT_NAME%TYPE;
  CCOLUMN ALL_TAB_COLS.COLUMN_NAME%TYPE;
  V_ALL_COLS VARCHAR2(5000);

  CURSOR CURSOR_TABLE
    IS
    SELECT OBJECT_NAME 
    FROM USER_OBJECTS 
    WHERE OBJECT_TYPE='TABLE'
    AND OBJECT_NAME LIKE 'STG%';

  CURSOR CURSOR_COLUMNS (V_TABLE_NAME IN VARCHAR2)
    IS
    SELECT COLUMN_NAME
    FROM ALL_TAB_COLS
    WHERE TABLE_NAME = V_TABLE_NAME;

BEGIN

  OPEN CURSOR_TABLE;
  LOOP
    FETCH CURSOR_TABLE INTO CTABLE;

    OPEN CURSOR_COLUMNS (CTABLE);
    V_ALL_COLS := NULL;
    LOOP

      FETCH CURSOR_COLUMNS INTO CCOLUMN;
      V_ALL_COLS := V_ALL_COLS || CCOLUMN;
      IF CURSOR_COLUMNS%FOUND THEN
        V_ALL_COLS := V_ALL_COLS || ', ';
      ELSE
        EXIT;
      END IF;
    END LOOP;
   close CURSOR_COLUMNS ;
    DBMS_OUTPUT.PUT_LINE(V_ALL_COLS);
    EXIT WHEN CURSOR_TABLE%NOTFOUND;
  END LOOP;`enter code here`
  CLOSE CURSOR_TABLE;

END;

我添加了第二个光标的关闭。它正在工作并获得输出......

Answer 6

1）进入查看菜单。
2）选择DBMS_OUTPUT菜单项。
3）按 Ctrl + N 并选择连接编辑器。
4）执行SET SERVEROUTPUT ON命令。
5）然后执行您的PL / SQL脚本。

Answer 7

在菜单中选择查看 - ＆gt; DBMS输出和

Answer 8

转到DBMS输出窗口（View-＆gt; DBMS Output）。

在SQL Developer中打印变量的值

8 个答案: