Печать значения переменной в SQL Developer
Я хотел напечатать значение конкретной переменной, которая находится внутри анонимного блока. Я использую 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
.
7 ответов
вам нужно включить dbms_output. В Oracle SQL Developer:
- показать окно вывода СУБД (вид->вывод СУБД).
- Нажмите кнопку " + " в верхней части окна вывода СУБД, а затем выберите открытое соединение с базой данных в открывшемся диалоговом окне.
в SQL * Plus:
SET SERVEROUTPUT ON
SQL Developer, похоже, выводит только текст DBMS_OUTPUT, когда вы явно включили панель окна DBMS_OUTPUT.
перейдите в (меню) VIEW - > Dbms_output для вызова панели.
нажмите на зеленый знак плюс, чтобы включить вывод для подключения, а затем запустите код.
EDIT: не забудьте установить размер буфера в соответствии с объемом вывода, который вы ожидаете.
сделать вывод сервера в первую очередь
SET SERVEROUTPUT on
затемперейдите в окно вывода СУБД (вид->вывод СУБД)
нажмите клавишу Ctrl+N для подключения сервера
есть 2 варианта:
set serveroutput on format wrapped;
или
Откройте меню " Вид "и нажмите " вывод СУБД". Вы должны получить окно вывода СУБД в нижней части листа. Затем вам нужно добавить соединение (по какой-то причине это не делается автоматически).
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;
Я добавил закрытие второго курсора. Он работает и получает выход...