Можете да използвате пакета DBMS_SQL
за създаване и достъп до курсори с динамични заявки.
Въпреки това не е наистина лесно да получите достъп до колона по име, защото DBMS_SQL
пакетът използва позициониране и в динамична заявка може да не знаем реда на колоните преди изпълнението.
Освен това, в контекста на този въпрос изглежда, че може да не знаем коя колона искаме да покажем по време на компилиране, ще приемем, че колоната, която искаме да покажем, е дадена като параметър.
Можем да използваме DBMS_SQL.describe_columns
за анализиране на колоните на SELECT
заявка, след като е анализирана за изграждане на динамично картографиране на колоните. Ще приемем, че всички колони могат да бъдат прехвърлени в VARCHAR2
тъй като искаме да ги покажем с DBMS_OUTPUT
.
Ето един пример:
SQL> CREATE OR REPLACE PROCEDURE display_query_column(p_query VARCHAR2,
2 p_column VARCHAR2) IS
3 l_cursor INTEGER;
4 l_dummy NUMBER;
5 l_description_table dbms_sql.desc_tab3;
6 TYPE column_map_type IS TABLE OF NUMBER INDEX BY VARCHAR2(32767);
7 l_mapping_table column_map_type;
8 l_column_value VARCHAR2(4000);
9 BEGIN
10 l_cursor := dbms_sql.open_cursor;
11 dbms_sql.parse(l_cursor, p_query, dbms_sql.native);
12 -- we build the column mapping
13 dbms_sql.describe_columns3(l_cursor, l_dummy, l_description_table);
14 FOR i IN 1 .. l_description_table.count LOOP
15 l_mapping_table(l_description_table(i).col_name) := i;
16 dbms_sql.define_column(l_cursor, i, l_column_value, 4000);
17 END LOOP;
18 -- main execution loop
19 l_dummy := dbms_sql.execute(l_cursor);
20 LOOP
21 EXIT WHEN dbms_sql.fetch_rows(l_cursor) <= 0;
22 dbms_sql.column_value(l_cursor, l_mapping_table(p_column), l_column_value);
23 dbms_output.put_line(l_column_value);
24 END LOOP;
25 dbms_sql.close_cursor(l_cursor);
26 END;
27 /
Procedure created
Можем да извикаме тази процедура със заявка, известна само по време на изпълнение:
SQL> set serveroutput on
SQL> exec display_query_column('SELECT * FROM scott.emp WHERE rownum < 5', 'ENAME');
SMITH
ALLEN
WARD
JONES
PL/SQL procedure successfully completed
SQL> exec display_query_column('SELECT * FROM scott.emp WHERE rownum < 5', 'EMPNO');
7369
7499
7521
7566
PL/SQL procedure successfully completed
Бъдете внимателни с динамичния SQL:той има същите привилегии като потребителя и следователно може да изпълни всеки DML и DDL оператор, разрешен за тази схема.
Например, горната процедура може да се използва за създаване или премахване на таблица:
SQL> exec display_query_column('CREATE TABLE foo(id number)', '');
begin display_query_column('CREATE TABLE foo(id number)', ''); end;
ORA-01003: aucune instruction analysée
ORA-06512: à "SYS.DBMS_SQL", ligne 1998
ORA-06512: à "APPS.DISPLAY_QUERY_COLUMN", ligne 13
ORA-06512: à ligne 1
SQL> desc foo
Name Type Nullable Default Comments
---- ------ -------- ------- --------
ID NUMBER Y