WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 |   ...   | 12 | 13 || 15 | 16 |   ...   | 24 |

«Oracle для профессионалов Том Кайт DiaSoft 2003 торгово-издательский дом Москва • Санкт-Петербург • Киев УДК 681.3. 06(075) Б Б К 32.973.2 К 91 КАЙТ ТОМ К 91 Oracle для профессионалов. Пер. с ...»

-- [ Страница 14 ] --

но и так масштабируемость вполне приемлема. Наконец, давайте разберемся с доступностью данных. Документация Oracle утверждает, что глобально фрагментированные индексы обеспечивают "меньшую доступность" данных, чем локально фрагментированные. Не могу полностью согласиться с этой безоговорочной характеристикой. Я уверен, что в системе ООТ они обеспечивают такую же степень доступности, как и локально фрагментированные. Рассмотрим пример: tkyte@TKYTE816> alter tablespace p1 offline;

Tablespace altered. tkyte@TKYTE816> alter tablespace p2 offline;

Tablespace altered. tkyte@TKYTE816> alter tablespace p3 offline;

Tablespace altered. tkyte@TKYTE816> select empno,job,loc from emp where empno = 7782;

EMPNO JOB 7782 MANAGER Execution Plan 0 1 2 0 1 SELECT STATEMENT Optimizer=CHOOSE (Cost=l Card=4 Bytes=108) TABLE ACCESS (BY GLOBAL INDEX ROWID) OF 'EMP' (Cost=l Card INDEX (RANGE SCAN) OF 'EMP PK' (UNIQUE) (Cost=l Card=4) LOC NEW YORK Итак, хотя большая часть базовых данных таблицы недоступна, мы можем добраться до любого компонента данных по индексу. Если только необходимое значение EMPNO находится в доступном табличном пространстве, глобальный индекс используется. С другой стороны, если бы нас угораздило использовать в этом случае "обеспечивающий высокую доступность данных" локально фрагментированный индекс, это могло бы помешать доступу к данным! Это побочный эффект того, что фрагментация выполнена по столбцу LOC, а в запросе задано условие по столбцу EMPNO;

нам пришлось бы обра Глава титься к каждому фрагменту локально фрагментированного индекса, и при попытке обратиться к недоступному фрагменту произошла бы ошибка. Другие типы запросов не будут (и не могут) нормально выполняться в такой ситуации: tkyte@TKYTE816> select empno,job,loc from emp where job = 'CLERK';

select empno,job,loc from emp where job = 'CLERK' * ERROR at line 1: ORA-00376: file 13 cannot be read at this time ORA-01110: data file 13: 'C:\ORACLE\ORADATA\TKYTE816\P2.DBF' Данные о клерках разбросаны по всем фрагментам;

то, что три табличных пространства недоступны, не будет учтено. Это неизбежно, если только данные не фрагментированы по столбцу JOB, но тогда проблемы возникли бы с запросами, обращающимися к данным по значению столбца LOC. Каждый раз, когда необходимо обращаться к данным по нескольким различным ключам, возникают подобные проблемы. Сервер Oracle предоставит данные, если только это вообще возможно. Учтите, однако, что если ответ на запрос можно было бы получить по индексу, избежав доступа к таблице TABLE ACCESS BY ROWID, фактор недоступности данных не был бы столь критичным: tkyte@TKYTE816> select count(*) from emp where job = 'CLERK';

COUNT(*) 4 Execution Plan 0 1 2 SELECT STATEMENT Optimizer=CHOOSE (Cost=l Card=l Bytes=6) 0 SORT (AGGREGATE) 1 INDEX (RANGE SCAN) OF 'EMP_JOB_IDX' (NON-UNIQUE) (Cost=l Поскольку серверу Oracle в этом случае таблица не нужна, недоступность большинства фрагментов не скажется на выполнении запроса. Поскольку такая оптимизация (ответ на запрос с помощью одного только индекса) типична для систем ООТ, многие приложения "не заметят" недоступности данных. Осталось только как можно быстрее обеспечить доступность этих данных (путем восстановления и синхронизации).

Резюме Фрагментация особенно полезна как средство повышения масштабируемости при увеличении размеров больших объектов в базе данных. Повышение же масштабируемости положительно сказывается на производительности, доступности данных и упрощает администрирование. Все три последствия крайне важны для разных категорий пользователей. Для администратора базы данных имеет значение возможность эффективного управления. Владельцев системы интересует доступность данных. Простой — это потеря денег, и все, что сокращает простой (или минимизирует его влияние), повышает отдачу Фрагментация от системы. Пользователей системы интересует производительность, медленно работающие системы никто не любит. Мы также выяснили, что в системе ООТ фрагментация может и не повысить производительность, особенно при неправильной реализации. Фрагментация повышает производительность выполнения тех классов запросов, которые нехарактерны для систем ООТ. Это важно понимать, поскольку многие считают фрагментацию средством "безусловного повышения производительности". Это не означает, что фрагментацию не надо использовать в системах ООТ — она обеспечивает в этой среде другие, менее заметные преимущества. Сокращается время простоев. Производительность остается удовлетворительной (фрагментация при правильном применении не замедлит работу). Упрощается управление системой, вследствие чего повышается производительность, поскольку некоторые действия по сопровождению администратор базы данных выполняет чаще — они ведь выполняются быстрее. Мы изучили различные схемы фрагментации таблиц, предлагаемые сервером: по диапазону, по хеш-функции и смешанную фрагментацию, и обсудили, для каких случаев каждая из них больше всего подходит. Существенное внимание было уделено фрагментации индексов, оценке различий между индексами с префиксом и без префикса, локально и глобально фрагментированными. Оказалось, что глобально фрагментированные индексы не подходят для большинства хранилищ данных, но в системе ООТ именно они используются чаше всего. Предоставляемые СУБД Oracle возможности фрагментации постоянно развиваются, причем, на следующие версии запланированы существенные улучшения. Со временем, вследствие увеличения размеров баз данных и сложности приложений, фрагментация будет, как мне кажется, использоваться еще более широко. Сеть Internet и присущие ей аппетиты в отношении баз данных приводят к созданию все больших подборок данных, а фрагментация является естественным средством, позволяющим справиться с возникающими при этом проблемами.

Автономные транзакции Автономные транзакции позволяют создать новую транзакцию в пределах текущей, так что можно фиксировать или откатывать ее изменения независимо от родительской транзакции. Они позволяют приостановить текущую транзакцию, начать новую, выполнить ряд действий, зафиксировать их или откатить, не влияя на состояние текущей транзакции. Автономные транзакции предлагают новый метод управления транзакциями в языке PL/SQL и могут использоваться: • в анонимных блоках верхнего уровня;

• в локальных, отдельных или входящих в пакеты процедурах и функциях;

• в методах объектных типов;

• в триггерах базы данных. Для выполнения примеров, приводимых в этой главе, необходим сервер Oracle версии 8.1.5 или выше. Подходит любая редакция — Standard, Enterprise или Personal, поскольку эта возможность поддерживается во всех редакциях. В этой главе мы: • выясним, для чего используются автономные транзакции, включая реализацию проверки, записи которой нельзя откатить, предотвращение возникновения ошибок изменяющихся таблиц, запись в базу данных из оператора SELECT и повышение модульности кода;

• рассмотрим, как работают автономные транзакции;

изучим управление транзакциями и область действия транзакций, а также то, как завершать автономную транзакцию и устанавливать точки сохранения;

Глава • обсудим проблемы и ошибки, которых надо остерегаться при использовании автономных транзакций в приложениях.

Пример Чтобы показать возможности автономных транзакций, я начну с простого примера, демонстрирующего последствия их выполнения. Создадим простую таблицу для сохранения сообщений, а также две процедуры: обычную и оформленную как автономная транзакция. Процедуры будут изменять созданную таблицу. С помощью этих объектов я продемонстрирую, какие изменения остаются (фиксируются) в базе данных в различных ситуациях: tkyte@TKYTE816> create table t (msg varchar2(25));

Table created. tkyte@TKYTE816> create or replace procedure Autonomous_Insert 2 as 3 pragma autonomous_transaction;

4 begin 5 insert into t values ('Autonomous Insert');

6 commit;

7 end;

8/ Procedure created. tkyte@TKYTE816> create or replace procedure NonAutonomous_Insert 2 as 3 begin 4 insert into t values ('NonAutonomous Insert');

5 commit;

6 end;

7/ Procedure created. Процедуры просто вставляют свои имена в таблицу сообщений и фиксируют результат. Обратите внимание на использование PRAGMA AUTONOMOUS_TRANSACTION. Эта директива указывает серверу, что процедура должна выполняться как новая автономная транзакция, независимо от родительской транзакции. Теперь рассмотрим поведение обычной, не автономной транзакции в анонимном блоке PL/SQL: tkyte@TKYTE816> begin 2 insert into t values ('Anonymous Block');

3 NonAutonomous_Insert;

4 rollback;

5 end;

6 / PL/SQL procedure successfully completed. tkyte@TKYTE816> select * from t;

Автономные транзакции MSG Anonymous Block NonAutonomous Insert Как видите, изменения, выполненные анонимным блоком (вставка строки), были зафиксированы процедурой NonAutonomous_Insert. Зафиксированы обе строки данных, и оператору rollback оказалось нечего откатывать. Сравните это с поведением хранимой процедуры, оформленной как автономная транзакция: tkyte@TKYTE816> delete from t;

2 rows deleted. tkyte@TKYTE816> commit;

Commit complete. tkyte@TKYTE816> begin 2 insert into t values ('Anonymous Block');

3 Autonomous_Insert;

4 rollback;

5 end;

6/ PL/SQL procedure successfully completed. tkyte@TKYTE816> select * from t;

MSG Autonomous Insert В данном случае остаются только изменения, выполненные и зафиксированные в автономной транзакции. Оператор INSERT, выполненный в анонимном блоке, откатывается оператором ROLLBACK в строке 4. Оператор COMMIT в процедуре — автономной транзакции не влияет на родительскую транзакцию, начатую в анонимном блоке. Этот простой пример показывает суть автономных транзакций и их возможности. При отсутствии автономных транзакций оператор COMMIT в процедуре NonAutonomous_Insert зафиксировал не только выполненные в ней изменения (результат выполнения оператора INSERT),но и все остальные еще не зафиксированные изменения, выполненные в сеансе (например, вставку строки Anonymous Block, выполненную в автономном блоке). Оператор отката ничего не отменил, поскольку при вызове процедуры были зафиксированы обе вставки. В случае применения автономных транзакций все меняется. Изменения, выполненные в процедуре, объявленной как AUTONOMOUS_TRANSACTION, зафиксированы, однако изменения, выполненные вне автономной транзакции, отменены. Сервер Oracle для решения своих внутренних задач поддерживает автономные транзакции уже довольно давно. Мы постоянно их видим в форме рекурсивных SQLоператоров. Например, при выборе из последовательности, не находящейся в кэше, автоматически выполняется рекурсивная транзакция, увеличивающая значение последовательности в таблице SYS.SEQ$. Изменение значения последовательности немедленно фиксируется и видимо для других транзакций, но обратившаяся к последователь Глава ности транзакция при этом не фиксируется. Кроме того, при откате транзакции увеличенное значение последовательности остается — оно не откатывается вместе с транзакцией, поскольку уже зафиксировано. Управление пространством, проверка и другие внутренние действия сервера также выполняются рекурсивно. Просто эта возможность не предлагалась для широкого использования. Теперь, увидев действие автономной транзакции, давайте разберемся, для чего такие транзакции можно использовать.

Когда использовать автономные транзакции?

В этом разделе мы рассмотрим ряд ситуаций, когда могут пригодиться автономные транзакции.

Проверка, записи которой не могут быть отменены В прошлом разработчики приложений часто задавали вопрос: "Как зарегистрировать в журнале проверки попытку изменить защищенную информацию?". Они хотели не только предотвратить попытку изменения, но и сохранить информацию о такой попытке. В прошлом многие (безуспешно) пытались применять для этого триггеры. Триггер срабатывает при выполнении изменения;

определяет, что пользователь изменяет данные, которые изменять не должен;

создает запись в журнале проверки и завершает изменение как неудавшееся (вызывая откат). К сожалению, если изменение не выполняется, откатывается и запись в журнале проверки — неделимость операторов означает "все или ничего". Теперь, с помощью автономных транзакций, можно безопасно сохранить запись о попытке выполнения несанкционированного изменения и откатить само изменение, что позволяет уведомить пользователя: "Вы не имеете права изменять эти данные, и мы зафиксировали вашу попытку их изменить". Интересно отметить, что встроенное средство AUDIT сервера Oracle уже давно позволяло регистрировать с помощью автономных транзакций безуспешные попытки изменить информацию. Наличие такой возможности у разработчика позволяет ему создавать собственные, более гибкие системы проверки. Вот небольшой пример. Скопируем таблицу ЕМР из схемы пользователя SCOTT и создадим таблицу для журнала аудита (audit trail table), куда будем записывать кто попытался изменить таблицу ЕМР и когда была сделана эта попытка, а также что именно пытались изменить. Для автоматического сохранения этой информации для таблицы ЕМР будет создан триггер, оформленный как автономная транзакция: tkyte@TKYTE816> create table emp 2 as 3 select * from scott.emp;

Table created. tkyte@TKYTE816> grant all on emp to scott;

Автономные транзакции Grant succeeded. tkyte@TKYTE816> create table audit_tab 2 (username varchar2(30) default user, 3 timestamp date default sysdate, 4 msg varchar2(4000) 5) 6/ Table created. Затем необходимо создать триггер для проверки изменений таблицы ЕМР. Обратите внимание на использование автономной транзакции. Этот триггер предотвращает изменение записи о сотруднике любым пользователем, если этот сотрудник не является его подчиненным. Запрос с конструкцией CONNECT BY реализует поиск по всей иерархии подчиненных текущего пользователя. Запрос будет проверять, принадлежит ли запись, которую пользователь пытается изменить, одному из его подчиненных: tkyte@TKYTE816> create or replace trigger EMP_AUDIT 2 before update on emp 3 for each row 4 declare 5 pragma autonomous_transaction;

6 l_cnt number;

7 begin 8 9 select count(*) into l_cnt 10 from dual 11 where EXISTS (select null 12 from emp 13 where empno = :new.empno 14 start with mgr = (select empno 15 from emp 16 where ename = USER) 17 connect by prior empno - mgr);

18 19 if ( l_cnt = 0 ) 20 then 21 insert into audit_tab (msg) 22 values ('Attempt to update ' || :new.empno);

23 commit;

24 25 raise_application_error(-20001, 'Access Denied');

26 end if;

27 end;

28 / Trigger created. Итак, мы создали таблицу ЕМР, имеющую иерархическую структуру (задаваемую рекурсивным отношением EMPNO/MGR). Имеется также таблица AUDIT_TAB, в которую будут записываться неудавшиеся попытки изменить информацию. Создан триггер, позволяющий изменять запись о сотруднике только его руководителю или руководителю руководителя (и так далее).

Глава В этом триггере надо обратить внимание на следующее. • В определении триггера указана прагма AUTONOMOUS_TRANSACTION. Весь триггер выполняется как автономная транзакция по отношению к текущей. Вкратце объясню понятие "прагма" (pragma). Прагма — это директива компилятору — способ потребовать от компилятора выполнения определенной опции компиляции. Есть и другие прагмы, описание которых можно найти в руководстве PL/SQL User's Guide and Reference. • Триггер по таблице ЕМР читает данные из таблицы ЕМР в запросе. Подробнее о том, почему это существенно, — чуть ниже. • Триггер фиксирует транзакцию. Раньше это было невозможно — триггеры никогда не фиксировали изменения. На самом деле триггер не фиксирует изменения, вызвавшие его срабатывание. Он фиксирует только изменения, сделанные им самим (добавленную запись проверки). Давайте теперь рассмотрим, как все это работает: tkyte@TKYTE816> update emp set sal = sal*10;

update emp set sal = sal*10 ERROR at line 1: OBA-20001: Access Denied ORA-06512: at "TKYTE.EMP_AUDIT", line 22 ORA-04088: error during execution of trigger 'TKYTE.EMP_AUDIT' tkyte@TKYTE816> column msg format a30 word_wrapped tkyte@TKYTE816> select * from audit_tab;

USERNAME TKYTE TIMESTAMP MSG 15-APR-01 Attempt to update Итак, триггер среагировал на попытку изменения и предотвратил его, записав при этом информацию о попытке в таблицу проверки (обратите внимание, как с помощью значений по умолчанию, заданных после ключевого слова DEFAULT в операторе CREATE TABLE, в запись автоматически добавлены значения встроенных функций USER и SYSDATE). Зарегистрируемся от имени пользователя, который имеет право выполнять изменения, и попробуем выполнить ряд операторов: tkyte@TKYTE816> connect scott/tiger scott@TKYTE816> update tkyte.emp set sal = sal*1.05 where ename = 'ADAMS';

1 row updated. scott@TKYTE816> update tkyte.emp set sal = sal*1.05 where ename = 'SCOTT';

update tkyte.emp set sal = sal*1.05 where ename = 'SCOTT' * ERROR at line 1: ORA-20001: Access Denied ORA-06512: at "TKYTE.EMP_AUDIT", line 22 ORA-04088: error during execution of trigger 'TKYTE.EMP_AUDIT' Автономные транзакции В стандартной таблице ЕМР сотрудник ADAMS подчиняется сотруднику SCOTT, поэтому первый оператор UPDATE выполняется успешно. Второе изменение (пользователь SCOTT пытается поднять самому себе зарплату) не выполняется, поскольку SCOTT не является своим руководителем. Если снова зарегистрироваться от имени пользователя, которому принадлежит таблица AUDIT_TAB, можно увидеть следующее: scott@TKYTE816> connect tkyte/tkyte tkyte@TKYTE816> select * from audit_tab;

USER_NAME TKYTE SCOTT TIMESTAMP MSG 15-APR-01 Attempt to update 7369 15-APR-01 Attempt to update Попытка изменения данных пользователем SCOTT зарегистрирована в этой таблице. Осталось разобраться, почему так важно, что триггер по таблице ЕМР читает данные из таблицы ЕМР? Это рассматривается в следующем разделе.

Метод, позволяющий избежать ошибки изменяющейся таблицы Ошибка изменяющейся таблицы (mutating table error) может возникнуть по нескольким причинам. Чаще всего она возникает при попытке читать данные из таблицы, в ответ на изменение которой сработал триггер. В представленном выше примере мы явно читали данные из таблицы, изменение которой вызвало срабатывание триггера. Закомментируем две строки в тексте триггера и попытаемся использовать его следующим образом: tkyte@TKYTE816> create or replace trigger EMP_AUDIT 2 before update on emp 3 for each row 4 declare 5 —- pragma autonomous_transaction;

6 l_cnt number;

7 begin 8 9 select count(*) into l_cnt 10 from dual 11 where EXISTS (select null 12 from emp 13 where empno = :new.empno 14 start with mgr = (select empno 15 from emp 16 where ename = USER) 17 connect by prior empno = mgr);

18 19 if ( l_cnt = 0 ) 20 then 21 insert into audit_tab (msg) 22 values ('Attempt to update ' || :new.empno);

23 — commit;

Глава 24 25 raise_application_error(-20001, 'Access Denied');

26 end if;

27 end;

28 / tkyte@TKYTE816> update emp set sal = sal*10;

update emp set sal = sal*10 * ERROR at line 1: ORA-04091: table TKYTE.EMP is mutating, trigger/function may not see it ORA-06512: at "TKYTE.EMP_AUDIT", line 6 ORA-04088: error during execution of trigger "TKYTE.EMP_AUDIT' Без использования автономных транзакций представленный выше триггер написать сложно, даже если он всего лишь пытается проверить, имеет ли право пользователь изменять данную строку (и не пытается зарегистрировать эту попытку). До появления прагмы AUTONOMOUS_TRANSACTION для этого необходимо было создать пакет и три триггера. Это не значит, что во избежание ошибок изменяющейся таблицы во всех случаях следует использовать автономные транзакции — их надо использовать осторожно и четко представлять себе, как обрабатываются транзакции. В разделе "Проблемы" я объясню это подробнее. Ошибка изменяющейся таблицы призвана защитить целостность данных, и очень важно понимать, почему она возникает. Не обманывайте себя: автономные транзакции не устраняют ошибку изменяющейся таблицы в триггерах раз и навсегда!

Выполнение операторов ЯОД в триггерах Часто задают вопрос: "Как создать объект базы данных при вставке строки в такуюто таблицу?". При этом спрашивают о разных объектах. Иногда хотят создать пользователя базы данных при вставке строки в таблицу, иногда — таблицу или последовательность. Поскольку при выполнении операторов ЯОД непосредственно перед самим оператором и сразу после него выполняется фиксация транзакции (или фиксация и откат, если при выполнении оператора ЯОД произошла ошибка), выполнять эти операторы в триггере было невозможно. Автономные транзакции теперь позволяют это делать. Раньше приходилось использовать пакет DBMS_JOB для выполнения задания с соответствующими операторами ЯОД после фиксации транзакции. Это решение по-прежнему возможно, и почти всегда оно является корректным и оптимальным. Использование подпрограмм пакета DBMS_JOB для выполнения оператора ЯОД в виде отдельного задания хорошо тем, что позволяет включить операторы ЯОД в транзакцию. Если триггер поставил задание на выполнение, и это задание создало учетную запись пользователя, при откате родительской транзакции поставленное в очередь задание по созданию учетной записи пользователя тоже будет отменено. Строка, представляющая задание, будет "удалена". Не останется ни записи в таблице, ни учетной записи в системе. Если в этом случае использовать автономные транзакции, учетная запись в базе данных будет создана, а записи в таблице не будет. Недостатком подхода на базе пакета DBMS_JOB является неизбежное небольшое отставание между моментом фиксации транзакции и запуском задания. Учетная запись пользователя будет создана вскоре пос Автономные транзакции ле фиксации, но не сразу. В зависимости от требований, можно использовать тот или иной метод. Повторю еще раз, что почти в любом случае можно найти аргументы в пользу пакета DBMS_JOB. В качестве примера выполнения операторов ЯОД в триггере рассмотрим ситуацию, когда необходимо создавать учетную запись пользователя базы данных при вставке строки в таблицу и удалять эту запись при удалении соответствующей строки. В представленном ниже примере я буду использовать свой способ, позволяющий избежать ситуаций, когда учетная запись пользователя создана, а строки в таблице нет, или строка в таблице осталась, а учетная запись пользователя удалена. Этот способ основан на использовании триггера INSTEAD OF для представления таблицы APPLICATION_USERS_TBL. Триггеры INSTEAD OF — удобное средство, позволяющее задать действия, выполняемые при изменении строк представления вместо стандартных действий сервера Oracle. В главе 20, посвященной использованию объектно-реляционных средств, будет продемонстрировано, как с помощью триггеров INSTEAD OF обеспечить изменение сложных представлений, которые сервер Oracle обычно изменять не позволяет. Мы будем использовать эти триггеры для создания учетной записи пользователя и вставке строки в реальную таблицу (или удаления учетной записи пользователя и соответствующей строки таблицы). Этот метод гарантирует, что либо создана учетная запись и строка вставлена, либо ни то, ни другое не выполнено. Если бы триггер был создан только по самой таблице, мы не могли бы этого гарантировать, а вот представление поможет нам связать эти два события. Вместо вставки и удаления данных из реальной физической таблицы все приложения будут вставлять и удалять данные из представления. Для представления будет создан триггер INSTEAD OF, так что все изменения можно будет выполнить последовательно, в процедурном коде. Это позволит гарантировать, что если строка существует в реальной таблице, то и учетная запись пользователя тоже создана. Если строка удалена из реальной таблицы, то удалена и учетная запись. Как этого добиться, лучше всего продемонстрирует пример. Я буду объяснять существенные детали, как только мы до них доберемся. Начнем с создания схемы, в которой будут храниться объекты приложения: tkyte@TKYTE816> create user demo_ddl identified by demo_ddl;

User created. tkyte8TKYTE816> grant connect, resource to demo_ddl with admin option;

Grant succeeded. tkyte@TKYTE816> grant create user to demo_ddl;

Grant succeeded. tkyte@TKYTE816> grant drop user to demo_ddl;

Grant succeeded. tkyte@TKYTE816> connect demo_ddl/demo_ddl demo_ddl@TKYTE816> Итак, мы только что создали учетную запись пользователя и хотим, чтобы этот пользователь мог предоставлять привилегии CONNECT и RESOURCE другим пользователям. (Привилегии CONNECT и RESOURCE использованы для простоты. Используйте те привилегии, которые необходимо.) Для того чтобы предоставлять эти привилегии дру Глава гим, сам он должен иметь привилегии CONNECT и RESOURCE с опцией WITH ADMIN OPTION. Кроме того, поскольку предполагается создание и удаление учетных записей в триггере, надо предоставить соответствующие привилегии CREATE и DROP непосредственно, как показано выше. Эти привилегии должны быть предоставлены пользователю непосредственно, а не через роль, поскольку триггеры всегда выполняются с правами создателя, а в этом режиме роли не учитываются (подробнее об этом см. в главе 23). Теперь создадим таблицу приложения, в которой будет храниться информация о пользователях. Для этой таблицы мы создадим триггер для событий BEFORE INSERT или DELETE. Этот триггер будет гарантировать, что ни один пользователь (включая владельца) не сможет вставить или удалить данные из этой таблицы непосредственно. Нам надо, чтобы все вставки/удаления выполнялись через представление и чтобы при этом обязательно выполнялись операторы ЯОД. В представленном ниже коде MY_CALLER — небольшая функция, которую я часто использую (совместно с подпрограммой WHO_CALLED_ME). Код этих подпрограмм можно найти в приложении "Основные стандартные пакеты" в конце книги, в разделе, посвященном пакету DBMS_UTILITY. Эта функция просто возвращает имена процедур/функций/триггеров, вызвавших ее. Если MY_CALLER вызвана не из триггера по представлениям (который еще надо создать), выполнение этой операции запрещено. demo_ddl@TKYTE816> create table application_users_tbl 2 (uname varchar2(30) primary key, 3 pw varchar2(30), 4 role_to_grant varchar2(4000) 5 );

Table created. demo_ddl@TKYTE816> create or replace trigger application_users_tbl_bid 2 before insert or delete on application_users_tbl 3 begin 4 if (my_caller not in ('DEMO_DDL.APPLICATION_USERS_IOI', 5 'DEMO_DDL.APPLICATION_USERS_IOD')) 6 then 7 raise_application_error(-20001, 'Cannot insert/delete directly');

8 end if;

9 end;

10 / Trigger created. Создадим представление с триггерами INSTEAD OF, которые и будут выполнять необходимые действия. А для представления создадим триггер INSTEAD OF INSERT, позволяющий создавать учетные записи. Создадим также для представления триггер INSTEAD OF DELETE. Он будет вызывать выполнение оператора DROP USER. Можно расширить пример, воспользовавшись триггерами INSTEAD OF UPDATE, которые позволяют добавлять роли и изменять пароли с помощью простых операторов UPDATE. Срабатывая, триггер INSTEAD OF INSERT выполняет два оператора:

Автономные транзакции • оператор, аналогичный GRANT CONNECT, RESOURCE TO SOME_USERNAME IDENTIFIED BY SOME_PASSWORD;

• оператор вставки INSERT в созданную ранее таблицу APPLICATION_USERS_TBL. Причина использования оператора GRANT вместо последовательности CREATE USER, а затем уже GRANT в том, что при этом операторы COMMIT, CREATE USER, GRANT и COMMIT выполняются за один шаг. Причем, если этот единственный оператор (предоставления привилегий) завершится неудачно, не придется удалять учетную запись пользователя вручную. Оператор CREATE USER может выполниться успешно, а при выполнении GRANT может произойти сбой. Ошибки, возникающие при выполнении оператора GRANT, все равно надо перехватывать, чтобы удалить только что вставленную строку. Поскольку операторы INSERT и GRANT выполняются для каждой вставляемой в представление строки, можно с уверенностью утверждать: если строка существует в реальной таблице, значит, соответствующая учетная запись успешно создана, а если нет строки, то нет и учетной записи. Потенциальная возможность сбоя все же остается, полностью избавиться от нее нельзя. Если после вставки строки в таблицу APPLICATION_USERS_TBL оператор GRANT не срабатывает, а удалить только что вставленную строку невозможно (из-за сбоя системы или недоступности табличного пространства, содержащего таблицу APPLICATION_USERS_TBL и т.п.), мы получим рассогласование. Не забывайте, что оператор GRANT на самом деле представляет собой тройку операторов COMMIT/GRANT/COMMIT, как и все операторы ЯОД, поэтому перед сбоем оператора GRANT результат оператора INSERT уже зафиксирован. Временной промежуток, когда это может случиться, однако, очень мал, чтобы можно было без опасений пользоваться этим методом. Теперь создадим представление и описанные выше триггеры: demo_ddl@TKYTE816> create or replace view 2 application_users 3 as 4 select * from application_users_tbl 5/ View created. demo_ddl@TKYTE816> create or replace trigger application_users_IOI 2 instead of insert on application_users 3 declare 4 pragma autonomous_transaction;

5 begin 6 insert into application_users_tbl 7 (uname, pw, role_to_grant) 8 values 9 (upper(:new.uname), :new.pw, :new.role_to_grant);

10 11 begin 12 execute immediate 13 'grant ' || :new.role_to_grant || 14 ' to ' || :new.uname || Глава 15 ' identified by ' || :new.pw;

16 exception 17 when others then 18 delete from application_users_tbl 19 where uname = upper(:new.uname);

20 commit;

21 raise;

22 end;

23 end;

24 / Trigger created. Итак, триггер INSTEAD OF INSERT no этой таблице сначала вставляет строку в таблицу APPLICATION_USERS_TBL. Затем он выполняет оператор GRANT для создания учетной записи пользователя. Оператор GRANT фактически представляет собой тройку COMMIT/GRANT/COMMIT, так что после его выполнения строка в таблице APPLICATION_USER_TBL зафиксирована. Если оператор GRANT успешно выполнен, значит, автономная транзакция зафиксирована, и работа триггера завершается. Если же оператор GRANT не сработал (потому что учетная запись пользователя уже существует, имя пользователя — недопустимое и т.д.), мы перехватываем ошибку, явно удаляем вставленную строку и фиксируем удаление. Затем мы снова возбуждаем исключительную ситуацию. В данном случае мы выполняем оператор INSERT, а затем — оператор ЯОД, поскольку отменить INSERT намного проще, чем отменить создание учетной записи пользователя (для отмены сделанного предпочтительнее выполнять оператор DELETE, а не DROP). В конечном итоге триггер гарантирует, что либо вставлена строка в таблицу APPLICATION_USERS_TBL и создана соответствующая учетная запись пользователя, либо ни одно из этих действий не выполнено. Теперь перейдем к триггеру INSTEAD OF DELETE, удаляющему строку и учетную запись пользователя: demo_ddl@TKYTE816> create or replace trigger application_users_IOD 2 instead of delete on application_users 3 declare 4 pragma autonomous_transaction;

5 begin 6 execute immediate 'drop user ' || :old.uname;

7 delete from application_users_tbl 8 where uname = :old.uname;

9 commit;

10 end;

11 / Trigger created. Я умышленно изменил порядок выполнения действий. В этом триггере сначала выполняется оператор ЯОД, а потом — оператор ЯМД, а раньше было наоборот. Причина снова связана с простотой восстановления в случае ошибки. Если оператор DROP USER не срабатывает, отменять ничего не нужно. Вероятность сбоя при выполнении оператора DELETE нулевая. Нет никаких требований целостности, которые могли бы поме Автономные транзакции шать удалению строки. При большой вероятности неудачного выполнения оператора DELETE из-за имеющихся требований целостности ссылок, порядок выполнения действий можно изменить (по аналогии с триггером INSTEAD OF INSERT). Теперь протестируем решение: вставим запись о пользователе в представление, проверим, создана ли учетная запись пользователя, и, наконец, удалим учетную запись пользователя. demo_ddl@TKYTE816> select * from all_users where username = 'NEW_USER';

no rows selected demo_ddl@TKYTE816> insert into application_users values 2 ('new_user', 'pw', 'connect, resource');

1 row created. demo_ddl@TKYTE816> s e l e c t * f r o m a l l _ u s e r s w h e r e u s e r n a m e = 'NEW_USER';

USERNAME NEW_USER 1 row d e l e t e d. demo_ddl@TKYTE816> select * from all_users where username = 'NEW_USER';

no rows selected (Полученное вами при выполнении этого примера значение USER_ID скорее всего будет отличаться от 235. Не удивляйтесь — это вполне объяснимо.) Наконец, убедимся, что нельзя удалять и вставлять данные непосредственно в "реальную" таблицу. demo_ddl@TKYTE816> insert into application_users_tbl values 2 ('new_user', 'pw', 'connect, resource');

insert into application_users_tbl values * ERROR at line 1: ORA-20001: Cannot insert/delete directly ORA-06512: at "DEM0_DDL.APPLICATION_USERS_TBL_BID", line 5 ORA-04088: error during execution of trigger -> 'DEMO_DDL.APPLICATION_USERS_TBL_BID' demo_ddl@TKYTE816> delete from application_users_tbl;

delete from application_users_tbl * ERROR at line 1: ORA-20001: Cannot insert/delete directly ORA-06512: at "DEMO_DDL.APPLICATION_USERS_TBL_BID", line 5 ORA-04088: error during execution of trigger ->'DEMO_DDL.APPLICATION_USERS_TBL_BID' Вот и все. Триггеры обеспечивают добавление и удаление учетных записей при вставке и удалении строк из таблицы базы данных. С помощью триггеров INSTEAD OF можно обеспечить безопасность данной операции за счет выполнения компенсирующих транзакций, гарантируя при необходимости синхронность изменения таблиц приложения и USER_ID CREATED 235 15-APR- demo_ddl@TKYTE816> d e l e t e from a p p l i c a t i o n _ u s e r s where uname = 'NEW_USER';

Глава выполнения операторов ЯОД. Можно пойти еще дальше и создать триггеры на события базы данных, срабатывающие при удалении учетной записи пользователя с помощью оператора DROP, чтобы исключить удаление учетной записи без изменения представления.

Запись в базу данных В сервере Oracle 7.1 впервые появилась возможность расширять набор встроенных функций SQL с помощью функций, реализованных на языке PL/SQL. Это очень мощная возможность, особенно теперь, когда эти функции можно писать не только на языке PL/SQL, но и на Java или С. В прошлом функции, вызываемые в операторах SQL, не должны были изменять состояние базы данных (Write No Database State — WNDS). Если функция выполняла операторы INSERT, UPDATE, DELETE, CREATE, ALTER, COMMIT и т.д. или вызывала процедуру или функцию, выполняющую подобные действия, ее нельзя было использовать в SQL-операторах. С помощью автономных транзакций мы теперь можем изменять состояние базы данных в функциях, вызываемых в SQL-операторах. Это требуется не так уж часто: • строгая проверка;

необходимо знать, какие данные видел каждый из пользователей, или надо записать идентификатор каждой записи, запрошенной у системы;

• средство создания отчетов позволяет выполнять только SQL-операторы SELECT;

абсолютно необходимо по ходу построения отчета вызывать хранимую процедуру, выполняющую ряд вставок (например, заполняющую таблицу параметров для другого отчета). Давайте рассмотрим, как решить эти проблемы.

Строгая проверка Я знаю ряд правительственных учреждений, где из соображений конфиденциальности необходимо регистрировать, кто видел различные части записи. Например, налоговая служба накапливает детальные данные о том, сколько вы заработали, что вам принадлежит и т.п. Когда кто-то запрашивает данные для того или иного лица и видит эту конфиденциальную информацию, необходимо зарегистрировать это действие в журнале проверки. По этому журналу со временем можно будет понять, не получают ли сотрудники записи, которые не имеют права получать, или ретроспективно определить, кто обращался к соответствующим записям в случае публикаций в прессе или других утечек информации. С помощью автономных транзакций и представлений можно реализовать такую проверку ненавязчиво и абсолютно прозрачно для пользователей, независимо от используемых ими инструментальных средств. Они не смогут обойти эту систему проверки, и при этом она не будет им мешать. При этом, естественно, для выполнения запросов понадобятся дополнительные ресурсы, но это вполне подходит для ситуаций, когда записи выбираются по одной, а не сотнями или тысячами. С учетом этих ограничений реализация получается достаточно простой. Используя таблицу ЕМР в качестве шаблона, можно реализовать проверку по столбцам HIREDATE, SALARY и COMMISSION, и когда кто-либо просматривает, например, данные о зарплате (SALARY), мы будем знать, кто их просматривал и какие именно записи увидел. Начнем с создания таблицы для Автономные транзакции журнала проверки обращений к таблице ЕМР, которую мы скопировали из схемы пользователя SCOTT ранее в этой главе: tkyte@TKYTE816> create table audit_trail 2 (username varchar2(30), 3 pk number, 4 attribute varchar2(30), 5 dataum varchar2(255), 6 timestamp date 7) 8/ Table created. Затем создадим ряд перегруженных функций в пакете, реализующем проверку. Каждая из этих функций принимает в качестве аргумента значение первичного ключа выбираемой строки, а также значение и имя столбца. Перегруженные функции используются, чтобы даты сохранялись как даты, а числа — как числа, что позволяет преобразовать их в стандартный формат (в строку) для хранения в созданном выше столбце DATAUM: tkyte@TKYTE816> create or replace package audit_trail_pkg 2 as 3 function record(p_pk in number, 4 p_attr in varchar2, 5 p_dataum in number) return number;

6 function record(p_pk in number, 7 p_attr in varchar2, 8 p_dataum in varchar2) return varchar2;

9 function record(p_pk in number, 10 p_attr in varchar2, 11 p_dataum in date) return date;

12 end;

13 / Package created. Итак, теперь все готово для реализации тела пакета. Каждая из объявленных выше функций RECORD вызывает внутреннюю процедуру LOG. Процедура LOG выполняется как автономная транзакция, вставляющая и фиксирующая запись в таблицу проверки. Обратите внимание, в частности, на то, как представленная ниже функция RECORD, возвращающая данные типа DATE автоматически преобразует дату в строку с сохранением времени: tkyte@TKYTE816> create or replace package body audit_trail_pkg 2 as 3 4 procedure log(p_pk in number, 5 p_attr in varchar2, 6 p_dataum in varchar2) 7 as 8 pragma autonomous_transaction;

9 begin 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 Глава insert into audit_trail values (user, p_pk, p_attr, p_dataum, sysdate);

commit;

end;

function record(p_pk in number, p_attr in varchar2, p_dataum in number) return number is begin log(p_pk, p_attr, p_dataum);

return p_dataum;

end;

function record(p_pk in number, p_attr in varchar2, p_dataum in varchar2) return varchar2 is begin log(p_pk, p_attr, p_dataum);

return p_dataum;

end;

function record(p_pk in number, p_attr in varchar2, p_dataum in date) return date is begin log(p_pk, p_attr, to_char (p_dataum, 'dd-mon-yyyy hh24 :mi:ss')) ;

return p_dataum;

end;

end;

/ Package body created. tkyte@TKYTE816> create or replace view emp_v 2 as 3 select empno, ename, job,mgr, 4 audit_trail_pkg.record(empno, 'sal', sal) sal, 5 audit_trail_pkg.record(empno, 'comm', comm) comm, 6 audit_trail_pkg.record(empno, 'hiredate', hiredate) hiredate, 7 deptno 8 from emp 9/ View created. Мы создали представление, возвращающее три столбца — HIREDATE, SAL и COMM через PL/SQL-функцию. Эта PL/SQL-функция записывает, кто, что и когда просматривал. Это представление подходит для непосредственных поисковых запросов вида:

Автономные транзакции tkyte@TKYTE816> select empno, ename, hiredate, sal, comm, job 2 from emp_v where ename = 'KING';

EMPNO ENAME 7839 KING tkyte@TKYTE816> tkyte@TKYTE816> tkyte@TKYTE816> tkyte@TKYTE816> USERNAME TKYTE TKYTE TKYTE HIREDATE 17-NOV-81 column column column column SAL 5000 COMM JOB PRESIDENT username format a8 pk format 9999 attribute format a8 dataum format a20 TIMESTAMP tkyte@TKYTE816> select * from audit_trail;

PK ATTRIBUT DATAUM 7839 hiredate 17-nov-1981 00:00:00 15-APR-01 7839 sal 5000 15-APR-01 7839 comm 15-APR- tkyte@TKYTE816> select empno, ename from emp_v where ename = 'BLAKE' EMPNO ENAME 7698 BLAKE tkyte@TKYTE816> select * from audit_trail;

USERNAME TKYTE TKYTE TKYTE PK ATTRIBUT DATAUM TIMESTAMP 7839 hiredate 17-nov-1981 00:00:00 15-APR-01 7839 sal 5000 15-APR-01 7839 comm 15-APR- Как видно по этим результатам, пользователь TKYTE просматривал столбцы HIREDATE, SAL и COMM в указанный день. По второму запросу информация из этих столбцов не получена, поэтому дополнительные записи в журнал проверки не внесены. Подобное представление, как уже было сказано, подходит для простых справочных запросов, потому что в некоторых случаях оно регистрирует "лишние" попытки доступа. Бывают случаи, когда данные представления показывают, что кто-то просматривал фрагмент информации, тогда как фактически он его не видел. Он был отброшен в дальнейшем в сложном запросе или агрегирован в определенное значение, не имеющее отношения к данному лицу. Следующий пример показывает, что при агрегировании или использовании столбца в конструкции WHERE в журнал проверки вносится запись о том, что столбец просмотрен. Начнем с очистки таблицы журнала проверки, чтобы происходящее стало очевидным: tkyte@TKYTE816> delete from audit_trail;

3 rows deleted. tkyte@TKYTE816> commit;

Commit complete. tkyte@TKYTE816> select avg(sal) from emp_v;

Глава AVG(SAL) 2077.14286 tkyte@TKYTE816> select * from audit_trail;

USERNAME TKYTE TKYTE PK ATTRIBUT DATAUM 7499 sal 7934 sal 1600 1300 TIMESTAMP 15-APR-01 15-APR- 14 rows selected. tkyte@TKYTE816> select ename from emp_v where sal >= 5000;

ENAME KING tkyte@TKYTE816> select * from audit_trail;

USERNAME TKYTE TKYTE PK ATTRIBUT DATAUM 7499 sal 7934 sal 1600 1300 TIMESTAMP 15-APR-01 15-APR- 28 rows selected. При выполнении запроса с агрегированием зарегистрирован просмотр каждого значения зарплаты, которое было просмотрено для получения среднего, AVG(SAL). Запрос WHERE SAL >= 5000 записал каждую зарплату, которая просматривалась для получения ответа. Для таких случаев хороших решений нет, разве что не использовать представления в такого рода запросах. Для получения значения AVG(SAL) можно использовать представление, включающее столбец SAL и, возможно, другие данные. Залрос должен выполняться к представлению, не связывающему значение в столбце SAL с определенным лицом. Оно позволит просматривать зарплаты, но не узнавать, кто их получает. Проверить условие SAL >= 5000, не записав каждую зарплату, сложно. Я бы использовал хранимую процедуру, возвращающую курсорную переменную, REF CURSOR. В этой хранимой процедуре можно было бы обращаться к таблице ЕМР и проверять условия по столбцу SAL, но выбирать любую информацию, за исключением столбца SAL. Пользователь не узнает, сколько именно получил тот или иной человек, он узнает только, что зарплата превышала определенное значение. Представлением EMP_V можно будет пользоваться только при необходимости получить одновременно и личную информацию (значения столбцов EMPNO и ENAME), и зарплату (SAL). Выполнение операторов ЯМД в SQL в данном случае специфично, и делать это надо осторожно.

Когда среда позволяет выполнять только операторы SELECT Это действительно удобное использование автономных транзакций в SQL-операторах. Во многих случаях используются инструментальные средства, позволяющие выпол Автономные транзакции нять только операторы SELECT или даже простые операторы типа INSERT, но на самом деле необходимо вызывать хранимые процедуры, а этого подобные средства не позволяют. Автономные же транзакции позволяют вызывать любую хранимую процедуру или функцию с помощью SQL-оператора SELECT. Предположим, создана хранимая процедура, вставляющая ряд значений в таблицу для того, чтобы на их основе ограничить набор строк, выдаваемых последующим запросом в том же сеансе. Если значений в этой таблице нет, отчет создать нельзя. Работать приходится в среде, не позволяющей выполнять хранимые процедуры, а только обычные SQL-операторы. Как же поступить, если выполнить эту процедуру необходимо. Следующий пример демонстрирует возможное решение: tkyte@TKYTE816> create table report_parm_table 2 (session_id number, 3 arg1 number, 4 arg2 date 5) 6/ Table created. tkyte@TKYTE816> create or replace 2 procedure set_up_report(p_arg1 in number, p_arg2 in date) 3 as 4 begin 5 delete from report_parm_table 6 where session_id = sys_context('userenv','sessionid');

7 8 insert into report_parm_table 9 (session_id, arg1, arg2) 10 values 11 (sys_context('userenv','sessionid'), p_arg1, p_arg2);

12 end;

13 / Procedure created. Итак, имеется хранимая процедура, изменяющая состояние базы данных;

она входит в уже существующую систему. Мы хотим вызывать ее из SQL-оператора SELECT, поскольку это единственно доступный способ. Процедуру SET_UP_REPORT необходимо "обернуть" в небольшую PL/SQL-функцию, поскольку в SQL-операторах можно вызывать только функции. Кроме того, такая "обертка" нужна, чтобы можно было задать прагму AUTONOMOUS_TRANSACTION: tkyte@TKYTE816> create or replace 2 function set_up_report_F(p_argl in number, p_arg2 in date) 3 return number 4 as 5 pragma autonomous_transaction;

6 begin 7 set_up_report(p_arg1, p_arg2);

8 commit;

Глава 9 return 1;

10 exception 11 when others then 12 rollback;

13 return 0;

14 end;

15 / Function created. tkyte@TKYTE816> select set_up_report_F(l, sysdate) from dual 2/ SET_UP_REPORT_F(1,SYSDATE) 1 tkyte@TKYTE816> select * from report_parm_table 2 Интересно посмотреть, что произойдет, если попытаться вызвать эту функцию в SQLоператоре, не объявив ее как автономную транзакцию. Если перекомпилировать представленную выше функцию без прагмы, при выполнении оператора будут получены следующие сообщения: tkyte@TKYTE816> select set_up_report_F(1, sysdate) from dual 2/ select set_up_report_F(l, sysdate) from dual * ERROR at line 1: ORA-14552: cannot perform a DDL, commit or rollback inside a query or DML ORA-06512: at "TKYTE.SET_UP_REPORT_F", line 10 ORA-14551: cannot perform a DML operation inside a query ORA-06512: at line 1 Именно этого и позволяет избежать автономная транзакция. Итак, мы создали функцию, которую можно вызывать из SQL-операторов и которая вставляет строку в базу данных. Важно помнить, что эта функция должна обязательно зафиксировать (или откатить) транзакцию до завершения работы — в противном случае будет получено сообщение об ошибке ORA-06519 (подробнее см. далее в разделе "Возможные сообщения об ошибках"). Кроме того, функция обязательно должна возвращать значение. Моя функция возвращает 1 в случае успешного выполнения и 0 — в случае неудачи. Кроме того, надо учитывать, что функция может иметь только параметры, передаваемые в режиме IN, — никаких параметров IN/OUT или OUT. Дело в том, что SQL не позволяет задавать параметры с этими режимами передачи. Я хочу рассказать о проблемах при использовании описанного подхода. Обычно я описываю проблемы в конце главы, но в данном случае проблемы непосредственно связаны с изменением базы данных операторами SELECT. У таких изменений могут быть опасные побочные эффекты, связанные со способом оптимизации и выполнения запросов. Представленный выше пример был достаточно безопасен. Таблица DUAL — однострочная, мы выбирали значение функции, и вызываться функция будет только один раз. Не было никаких соединений, предикатов, сортировок и побочных эффектов. Она Автономные транзакции должна работать надежно. Иногда функция вызывается меньшее или большее количество раз, чем предполагалось. Чтобы продемонстрировать это, я прибегну к несколько надуманному примеру. Используем простую таблицу COUNTER, которую автономная транзакция будет обновлять при каждом выполнении. Таким образом, мы сможем выполнять запросы и видеть, сколько раз вызывалась функция: tkyte@TKYTE816> create table counter (x int);

Table created. tkyte@TKYTE816> insert into counter values (0);

1 row created. tkyte@TKYTE816> create or replace function f return number 2 as 3 pragma autonomous_transaction;

4 begin 5 update counter set x = x+1;

6 commit;

7 return 1;

8 end;

9/ Function created. Итак, мы создали таблицу COUNTER и функцию. При каждом вызове функции F значение X будет увеличиваться на 1. Давайте попробуем: tkyte@TKYTE816> s e l e c t c o u n t ( * ) 2 from (select * from emp) 3/ COUNT(*) 14 tkyte@TKYTE816> select * from counter;

X 0 Как видите, функция ни разу не вызывалась, хотя должна была вызываться 14 раз. Чтобы продемонстрировать, что функция F работает, выполним следующий оператор: tkyte@TKYTE816> select count(*) 2 from (select f from emp union select f from emp) 3/ COUNT(*) 1 tkyte@TKYTE816> select * from counter;

X Глава Именно этого мы и ожидали. Функция F была вызвана 28 раз (14 из них — для запросов в операторе UNION). Поскольку при выполнении оператора UNION в качестве побочного эффекта происходит сортировка для поиска неповторяющихся значений (SORT DISTINCT), функция COUNT(*) по объединению дает 1 (и это правильно), а функция, как и ожидалось, вызывалась 28 раз. Слегка изменим запрос: tkyte@TKYTE816> update counter set x = 0;

1 row updated. tkyte@TKYTE816> commit;

Commit complete. tkyte@TKYTE816> select f from emp union ALL select f from emp 2/ F 1 1 28 rows selected. tkyte@TKYTE816> select * from counter;

X 32 Запрос вернул 28 строк, но наша функция была вызвана 32 раза! Помните о побочных эффектах. Сервер Oracle не гарантирует, что функция вообще будет вызвана (вспомните первый пример) или будет вызвана определенное количество раз (последний пример). Будьте особенно осторожны при использовании таких изменяющих базу данных функций в SQL-операторах, если используется другая таблица, кроме DUAL, выполняются соединения, сортировки и т.п. Результаты могут оказаться неожиданными.

Разработка модульного кода Автономные транзакции также позволяют повысить модульность кода. Традиционно создается набор пакетов, выполняющих некоторые действия. Эти действия представляют собой ряд изменений в базе данных, которые, в зависимости от результатов, фиксируются или откатываются. Все это замечательно, если надо заботиться только о своих процедурах. В крупномасштабном приложении, однако, ваш простой пакет будет далеко не единственным компонентом. Скорее всего, он будет лишь небольшой частью общей картины. В типичной процедуре фиксируются не только выполненные в ней изменения, но и все не зафиксированные изменения, выполненные в сеансе до вызова этой процедуры. При фиксации постоянными делаются все эти изменения. Проблема в том, что выполнявшиеся до вызова процедуры изменения могут быть не завершены. Поэтому выполнение оператора COMMIT может привести к ошибке в вызывающей процедуре. Она Автономные транзакции уже не сможет откатить выполненные изменения в случае сбоя, даже "не подозревая" об этом. С помощью автономных транзакций теперь можно создавать самодостаточные подпрограммы, выполняющие транзакции, которые не влияют на состояние вызывающих транзакций. Это может быть весьма полезно для многих типов подпрограмм, в частности, реализующих проверку, журнализацию и другие служебные функции. Так можно создавать код, который безопасно вызывать из различных сред, не влияя деструктивно на функционирование этих сред. Использование автономных транзакций для проверки, журнализации и других служебных функций — вполне оправдано. Лично я считаю фиксацию транзакций в хранимых процедурах обоснованной только в перечисленных случаях. Я считаю, что фиксировать транзакции должно только клиентское приложение. Необходимо быть осторожным и использовать автономные транзакции правильно. Если код должен вызываться как логическая часть более масштабной транзакции (например, если создан пакет ADDRESS_UPDATE для системы учета кадров), то оформлять его в виде автономной транзакции нельзя. Во внешней среде необходимо обеспечить возможность вызова этого пакета и других соответствующих пакетов, а затем зафиксировать (или отменить) все изменения в целом. Поэтому при использовании автономной транзакции контроль из вызывающей среды невозможен, как и построение больших транзакций из меньших составных частей. Кроме того, автономная транзакция не видит незафиксированных изменений, выполненных в вызывающей транзакции. Подробнее это описано в разделе "Как работают автономные транзакции". Это означает, что для автономной транзакции незафиксированные изменения остальной кадровой информации будут невидимы. Для корректного использования автономных транзакций необходимо четко представлять все возможные варианты использования создаваемого кода.

Как работают автономные транзакции В этом разделе я опишу, как работают автономные транзакции и чего от них можно ожидать. Мы изучим последовательность действий при выполнении автономных транзакций. Мы также рассмотрим, как автономные транзакции влияют на область действия различных элементов — переменных пакетов, параметров сеансов, параметров базы данных и блокировок. Мы поговорим о том, как правильно завершать автономную транзакцию, и о точках сохранения.

Выполнение транзакции Выполнение автономной транзакции начинается с ключевого слова BEGIN и завершается ключевым словом END. To есть, при наличии следующего блока кода: declare pragma autonomous_transaction;

X number default func;

begin end;

(1) (2) (3) Глава автономная транзакция начинается со строки (2), а не (1). Она начинается с первого выполняемого оператора. Если FUNC — функция, выполняющая изменения в базе данных, — эти изменения не являются частью автономной транзакции. Они — часть родительской транзакции. Кроме того, порядок следования элементов в разделе DECLARE блока не имеет значения: конструкция PRAGMA может быть как первой, так и последней. Весь раздел DECLARE блока является частью родительской транзакции, а не автономной. Следующий пример поможет это прояснить: tkyte@TKYTE816> create table t (msg varchar2(50));

Table created. tkyte@TKYTE816> create or replace function func return number 2 as 3 begin 4 insert into t values 5 ('Строка вставлена функцией F U N C ) ;

6 return 0;

7 end;

8/ Function created. Итак, имеется функция, изменяющая базу данных. Давайте теперь вызовем эту функцию в разделе DECLARE блока, оформленного как автономная транзакция: tkyte@TKYTE816> declare 2 x number default func;

3 pragma autonomous_transaction;

4 begin 5 insert into t values 6 ('Строка вставлена анонимный блоком');

7 commit;

8 end;

9/ PL/SQL procedure successfully completed. tkyte@TKYTE816> select * from t;

MSG Строка вставлена функцией FUNC Строка вставлена анонимным блоком Пока что обе строки есть. Однако одна из строк еще не зафиксирована. В этом можно убедиться, выполнив откат: tkyte@TKYTE816> rollback;

Rollback complete. tkyte@TKYTE816> select * from t;

MSG Строка вставлена анонимным блоком Автономные транзакции Как видите, после выполнения анонимного блока кажется, что обе строки вставлены в таблицу Т и зафиксированы. Это, однако, ошибочное представление. Строка, вставленная функцией, на самом деле еще не зафиксирована. Она — часть родительской, еще не завершенной транзакции. Выполняя откат, мы убеждаемся, что она исчезает, а вот строка, вставленная в автономной транзакции, остается. Итак, автономная транзакция начинается с первого за конструкцией PRAGMA ключевого слова BEGIN и действует в пределах соответствующего блока. Любые функции или процедуры, которые вызываются в автономной транзакции, триггеры, срабатывание которых она вызывает, и т.д. являются частью этой автономной транзакции, и выполненные ими изменения будут зафиксированы или отменены вместе с ней. Автономные транзакции могут быть вложенными — в автономной транзакции можно начать новую автономную транзакцию. Вложенные автономные транзакции обрабатываются точно так же, как родительская, — они начинаются с первого ключевого слова BEGIN, действуют вплоть до соответствующего ключевого слова END и полностью независимы от родительской транзакции. Единственное ограничение на глубину вложенности автономных транзакций задается параметром инициализации TRANSACTIONS, который определяет, сколько одновременных транзакций может поддерживать сервер. Обычно это значение равно количеству сеансов (SESSIONS), умноженному на 1,1;

если планируется интенсивно использовать автономные транзакции, значение этого параметра должно быть увеличено.

Область действия Под областью действия подразумевается возможность получать значения различных элементов базы данных. В данном случае нас интересуют четыре элемента. Рассмотрим поочередно области действия: • переменных пакетов;

• установок/параметров сеанса;

• изменений в базе данных;

• блокировок.

Переменные пакетов Автономная транзакция создает новый контекст транзакции, но не новый сеанс. Поэтому любые переменные, находящиеся в области действия (доступные) родительской и автономной транзакции, будут в них идентичны, поскольку присвоение значений переменным не входит в транзакцию (нельзя вернуть переменной PL/SQL прежнее значение). Поэтому автономная транзакция может не только читать переменные состояния родительской транзакции, но и изменять их, и эти изменения будут видимы в родительской транзакции. Это означает, что поскольку изменения значений переменных не фиксируются и не откатываются, эти изменения выпадают из области действия автономных транзакций и происходят так же, как и при отсутствии автономных транзакций. Чтобы продемонст Глава рировать это на простом примере, я создам пакет с глобальной переменной. Родительская транзакция (наш сеанс) будет устанавливать этой переменной определенное значение, а в автономной транзакции оно будет изменяться. Это изменение скажется на родительской транзакции: tkyte@TKYTE816> create or replace package global_variables 2 as 3 x number;

4 end;

5/ Package created. tkyte@TKYTE816> begin 2 global_variables.x := 5;

3 end;

4/ PL/SQL procedure successfully completed. tkyteeTKYTE816> declare 2 pragma autonomous_transaction;

3 begin 4 global_variables.x := 10;

5 commit;

6 end;

7/ PL/SQL procedure successfully completed. tkyte@TKYTE816> set serveroutput on tkyte@TKYTE816> exec dbms_output.put_line(global_variables.x);

10 PL/SQL procedure successfully completed. Это изменение глобальной переменной автономной транзакцией останется в силе независимо от конечного результата (фиксации или отката) автономной транзакции.

Установки/параметры сеанса Опять-таки, поскольку автономные транзакции создают новую транзакцию, а не новый сеанс, состояние сеанса в родительской транзакции будет таким же, как и в порожденной. Обе транзакции выполняются в одном сеансе, хотя и отдельно. Сеанс организуется при подключении приложения к базе данных. При выполнении автономной транзакции повторное подключение не выполняется — используется то же подключение и тот же сеанс. Поэтому любые изменения на уровне сеанса, выполненные в родительской транзакции, будут видимы в порожденной и, более того, если в порожденной транзакции выполняются изменения на уровне сеанса с помощью оператора ALTER SESSION, они повлияют и на родительскую транзакцию. Следует отметить, что оператор SET TRANSACTION, no определению работающий на уровне транзакции, влияет только на транзакцию, в которой выполнен. Так что, например, если в автономной транзакции выполнен оператор SET TRANSACTION USE ROLLBACK SEGMENT, то со Автономные транзакции ответствующий сегмент отката будет задан только для автономной, но не для родительской транзакции. Оператор SET TRANSACTION ISOLATION LEVEL SERIALIZABLE, выполненный в автономной транзакции, влияет только на эту транзакцию, а вот при выполнении оператора ALTER SESSION SET ISOLATION_LEVEL=SERIALIZABLE изменится и уровень изолированности следующей транзакции на уровне родительской. Кроме того, родительская транзакция, работающая в режиме READ ONLY, может вызвать автономную транзакцию, изменяющую базу данных. Автономная транзакция в этом случае может изменять данные.

Изменения в базе данных Теперь переходим к самому интересному — изменениям в базе данных. Здесь происходящее несколько затуманивается. Изменения в базе данных, выполненные, но еще не зафиксированные родительской транзакцией, невидимы в автономных транзакциях. Изменения, выполненные и зафиксированные в родительской транзакции, всегда видимы порожденным транзакциям. Изменения, выполненные в автономной транзакции, могут быть как видимы, так и невидимы в родительской транзакции — это зависит от уровня ее изолированности. Однако вот в чем неясность происходящего. Я вполне четко заявил, что изменения, выполненные в родительской транзакции, невидимы для порожденной, но это еще не все. Для курсора, отрытого в порожденной автономной транзакции, эти незафиксированные изменения невидимы. Но вот курсор, открытый в родительской транзакции, при выборе из него данных в порожденной, позволяет получить эти измененные данные. Следующий пример демонстрирует, о чем идет речь. Создадим новую таблицу ЕМР (для прежней мы создали всевозможные средства проверки), а затем напишем пакет, который ее изменяет и выдает содержимое. В этом пакете мы создадим глобальный курсор, выбирающий данные из таблицы ЕМР. В пакете будет одна процедура, оформленная как автономная транзакция. Она выбирает данные из курсора и выдает результаты. Сначала эта процедура проверяет, открыт ли курсор, и, если — нет, открывает его. Это позволит продемонстрировать разницу в получаемых результатах, в зависимости от того, где был открыт курсор. Результирующее множество курсора всегда согласовано на момент его открытия с учетом того, в какой транзакции он был открыт: tkyte@TKYTE816> drop table emp;

Table dropped. tkyte@TKYTE816> create table emp as select * from scott.emp;

Table created. tkyte@TKYTE816> create or replace package my_pkg 2 as 3 4 procedure run;

5 6 end;

7/ Package created.

Глава tkyte@TKYTE816> create or replace package body my_pkg 2 as 3 4 5 cursor global_cursor is select ename from emp;

6 7 8 procedure show_results 9 is 10 pragma autonomous_transaction;

11 l_ename emp.ename%type;

12 begin 13 if (global_cursor%isopen) 14 then 15 dbms_output.put_line('Еще НЕ открытый курсор');

16 else 17 dbms_output.put_line('Уже открытый');

18 open global_cursor;

19 end if;

20 21 loop 22 fetch global_cursor into l_ename;

23 exit when global_cursor%notfound;

24 dbms_output.put_line(l_ename);

25 end loop;

26 close global_cursor;

27 end;

28 29 30 procedure run 31 is 32 begin 33 update emp set ename = 'x';

34 35 open global_cursor;

36 show_results;

37 38 show_results;

39 40 rollback;

41 end;

42 43 end;

44 / Package body created. tkyte@TKYTE816> exec my_pkg.run Еще НЕ открытый курсор x X Автономные транзакции Уже открытый SMITH MILLER PL/SQL procedure successfully completed. Когда курсор открыт в родительской транзакции, в автономной транзакции можно получить незафиксированные строки — все значения х. Курсор, отрытый в автономной транзакции, с таким же успехом можно было открыть и в другом сеансе — для него эти незафиксированные данные недоступны. Мы видим данные в том состоянии, в каком они были до изменения. Итак, этот пример показывает, как автономная транзакция будет реагировать на незафиксированные изменения в родительской транзакции при выполнении операторов SELECT. А будут ли в родительской транзакции видны изменения, произошедшие в автономной транзакции? Это будет зависеть от уровня изолированности родительской транзакции. При использовании стандартного уровня изолированности, READ COMMITTED, родительская транзакция сможет увидеть эти изменения. При использовании уровня изолированности SERIALIZABLE эти изменения не будут видны, хотя они выполнены в том же сеансе. Например: tkyte@TKYTE816> create table t (msg varchar2(4ООО));

Table created. tkyte@TKYTE816> create or replace procedure auto_proc 2 as 3 pragma autonomous_transaction;

4 begin 5 insert into t values ( A row for you');

' 6 commit;

7 end;

8/ Procedure created. tkyte@TKYTE816> create or replace 2 procedure proc(read_committed in boolean) 3 as 4 begin 5 if (read_committed) then 6 set transaction isolation level read committed;

7 else 8 set transaction isolation level serializable;

9 end if;

10 11 auto_proc;

12 13 dbms_output.put_line(' ') ;

14 for x in (select * from t) loop 15 dbms_output.put_line(x.msg);

16 end loop;

17 dbms_output.put_line(' ') ;

18 commit;

Глава 19 end;

20 / Procedure created. tkyte@TKYTE816> exec proc(TRUE) A row for you PL/SQL procedure successfully completed. tkyte@TKYTE816> delete from t;

1 row deleted. tkyte@TKYTE816> commit;

Commit complete. tkyte@TKYTE816> exec proc(FALSE) PL/SQL procedure successfully completed. Как видите, при выполнении процедуры в режиме READ COMMITTED зафиксированные изменения видны. При выполнении в режиме SERIALIZABLE изменения не видны. Дело в том, что изменения, выполненные в автономной транзакции, выполнены в другой транзакции, а уровень изолированности SERIALIZABLE требует учитывать только изменения, выполненные в данной транзакции (при этом уровне изолированности все обстоит так, как если бы транзакция была единственной — изменения, выполненные в других транзакциях, не видны).

Блокировки В предыдущем разделе мы разобрались, что происходит при попытке чтения в порожденной автономной транзакции зафиксированных и незафиксированных изменений, выполненных родительской транзакцией, а также при чтении в родительской транзакции изменений, выполненных порожденной транзакцией. Теперь посмотрим, какие при этом устанавливаются блокировки. Поскольку родительская и порожденная — это две абсолютно разные транзакции, они никак не могут совместно использовать блокировки. Если родительская транзакция заблокировала ресурс, который требуется заблокировать также порожденной автономной транзакции, произойдет взаимное блокирование в сеансе. Следующий пример демонстрирует эту проблему: tkyte@TKYTE816> create or replace procedure child 2 as 3 pragma autonomous_transaction;

4 l_ename emp.ename%type;

5 begin 6 select ename into l_ename 7 from emp 8 where ename - 'KING' 9 FOR UPDATE;

Автономные транзакции 10 11 end;

12 / commit;

Procedure created. tkyte@TKYTE816> create or replace procedure parent 2 as 3 l_ename emp.ename%type;

4 begin 5 select ename into l_ename 6 from emp 7 where ename = 'KING' 8 FOR UPDATE;

9 child;

10 commit;

11 end;

12 / Procedure created. tkyte@TKYTE816> exec parent BEGIN parent;

END;

* ERROR at line 1: ORA-00060: deadlock detected while waiting for resource ORA-06512: at "TKYTE.CHILD", line 6 ORA-06512: at "TKYTE.PARENT", line 9 ORA-06512: at line 1 Необходимо проявлять осторожность и не допускать взаимного блокирования родительской и порожденной транзакций. Порожденная транзакция в этом случае всегда "проигрывает", и соответствующий ее оператор откатывается.

Завершение автономной транзакции Для завершения автономной транзакции необходимо выполнять операторы COMMIT или ROLLBACK, или оператор ЯОД, который автоматически фиксирует транзакцию. Сама автономная транзакция начинается автоматически при выполнении изменения в базе данных, блокировании ресурсов или выполнении оператора управления транзакцией, такого как SET TRANSACTION или SAVEPOINT. Автономная транзакция должна быть явно завершена, прежде чем управление вернется в родительскую транзакцию (иначе выдается сообщение об ошибке). Отката до точки сохранения (ROLLBACK TO SAVEPOINT) недостаточно, даже если в результате незафиксированных изменений не остается, поскольку при этом не завершается транзакция. Если автономная транзакция завершается нормально (а не путем распространения исключительной ситуации) и в ней не выполнен оператор COMMIT или ROLLBACK, выдается следующее сообщение об ошибке: tkyte@TKYTE816> create or replace procedure child 2 as 3 pragma autonomous_transaction;

4 l_ename emp.ename%type;

Глава 5 begin 6 7 8 9 10 end;

11 / select ename into l_ename from emp where ename = 'KING' FOR UPDATE;

Procedure created. tkyte@TKYTE816> exec child BEGIN child;

END;

* ERROR at line 1: ORA-06519: active autonomous transaction detected and rolled back ORA-06512: at "TKYTE.CHILD", line 6 ORA-06512: at line 1 Так что в случае автономной транзакции следует не только избегать взаимных блокировок с родительской, но и позаботиться о ее "чистом" завершении (чтобы предотвратить откат всех изменений).

Точки сохранения В главе 4, посвященной транзакциям, я описывал точки сохранения и их влияние на выполняемые приложением транзакции. Точки сохранения действуют только в пределах текущей транзакции. Это означает, что нельзя откатить автономную транзакцию до точки сохранения, установленной в транзакции вызывающей подпрограммы. Этой точки сохранения нет в среде текущей автономной транзакции. Давайте посмотрим, что получится, если попытаться выполнить такой откат: tkyte@TKYTE816> create or replace procedure child 2 as 3 pragma autonomous_transaction;

4 l_ename emp.ename%type;

5 begin 6 7 update emp set ename = 'y' where ename = 'BLAKE';

8 rollback to Parent_Savepoint;

9 commit;

10 end;

11 / Procedure created. tkyte@TKYTE816> create or replace procedure parent 2 as 3 l_ename emp.ename%type;

4 begin 5 savepoint Parent_Savepoint;

6 update emp set ename = 'x' where ename = 'KING';

7 8 child;

9 rollback;

Автономные транзакции 10 end;

11 / Procedure created. tkyte@TKYTE816> exec parent BEGIN parent;

END;

* ERROR at line 1: ORA-01086: savepoint 'PARENT_SAVEPOINT' never established ORA-06512: at "TKYTE.CHILD", line 8 ORA-06512: at "TKYTE.PARENT", line 8 ORA-06512: at line 1 Для автономной транзакции эта точка сохранения никогда не устанавливалась. Если удалить признак автономной транзакции из представленной выше процедуры child и повторно выполнить процедуру parent, все успешно сработает. Автономная транзакция не может изменять состояние родительской транзакции. Это не означает, что в автономной транзакции нельзя использовать точки сохранения. Можно. Нужно только устанавливать собственные точки сохранения. Например, следующий код демонстрирует, что установленная в порожденной транзакции точка сохранения работает. Одно изменение, выполненное до точки сохранения, осталось, а другое — отменено, как и предполагалось: tkyte@TKYTE816> create or replace procedure child 2 as 3 pragma autonomous_transaction;

4 l_ename emp.ename%type;

5 begin 6 7 update emp set ename = 'у' where ename = 'BLAKE';

8 savepoint child_savepoint;

9 update emp set ename = 'z' where ename = 'SMITH';

10 rollback to child_savepoint;

11 commit;

12 end;

13 / Procedure created. tkyte@TKYTE816> create or replace procedure parent 2 as 3 l_ename emp.ename%type;

4 begin 5 savepoint Parent_Savepoint;

6 update emp set ename = 'x' where ename = 'KING';

7 8 child;

9 commit;

10 end;

11 / Procedure created.

Глава tkyte@TKYTE816> select ename 2 from emp 3 where ename in ('x', 'y', 'z', 'BLAKE', 'SMITH', 'KING');

ENAME SMITH BLAKE KING tkyte@TKYTE816> exec parent PL/SQL procedure successfully completed. tkyte@TKYTE816> select ename 2 from emp 3 where ename in ('x', 'y', 'z', 'BLAKE', 'SMITH', 'KING');

ENAME SMITH У x Проблемы При использовании автономных транзакций имеется ряд нюансов, которые надо учитывать. В этом разделе мы рассмотрим их поочередно: какие возможности недоступны в автономных транзакциях, в каких средах автономные транзакции можно использовать, особенности, с которыми можно столкнуться при их использовании и другие подобные проблемы.

Невозможность использования в распределенных транзакциях В текущих версиях (по крайней мере до Oracle 8.1.7) не допускается использование автономных транзакций в распределенной транзакции. Четкого сообщения об ошибке при этом не выдается. Во многих (но не во всех) случаях возникает внутренняя ошибка. В будущем планируется обеспечить надежную поддержку использования автономных транзакций в распределенных. Пока же, если используются связи базы данных, об автономных транзакциях лучше забыть.

Только в среде PL/SQL Автономные транзакции доступны только в среде PL/SQL. Их можно перенести в Java и другие языки, вызвав соответствующую подпрограмму из блока PL/SQL, оформленного как автономная транзакция. Поэтому, если необходимо создать хранимую процедуру на языке Java, работающую как автономная транзакция, создают хранимую процедуру на PL/SQL, оформленную в виде автономной транзакции, и вызывают Java-процедуру из нее.

Автономные транзакции Откатывается вся транзакция Если автономная транзакция завершается из-за ошибки, вследствие неперехваченной и необработанной исключительной ситуации, откатывается вся транзакция, а не только оператор, при выполнении которого произошла ошибка. Это означает, что при выполнении автономной транзакции вы получаете "все или ничего". Либо все изменения успешно фиксируются, либо возникает необработанная исключительная ситуация, и все незафиксированные изменения пропадают. Обратите внимание: незафиксированные изменения. В коде, оформленном как автономная транзакция, фиксация может выполняться многократно, и откатываются только незафиксированные изменения. Обычно, если при вызове процедуры возникает исключительная ситуация, которая перехватывается и обрабатывается в вызывающем коде, незафиксированные изменения остаются, но не в случае автономной транзакции. Например: tkyte@TKYTE816> create table t (msg varchar2(25));

Table created. tkyte@TKYTE816> create or replace procedure auto_proc 2 as 3 pragma AUTONOMOUS_TRANSACTION;

4 x number;

5 begin 6 insert into t values ('AutoProc');

7 x := 'a';

— При выполнении этого оператора произойдет ошибка 8 commit;

9 end;

10 / Procedure created. tkyte@TKYTE816> create or replace procedure Regular_Proc 2 as 3 x number;

4 begin 5 insert into t values ('RegularProc');

6 x := 'a';

— При выполнении этого оператора произойдет ошибка 7 commit;

8 end;

9/ Procedure created. tkyte@TKYTE816> set serveroutput on tkyte@TKYTE816> begin 2 insert into t values ('Anonymous');

3 auto_proc;

4 exception 5 when others then 6 dbms_output.put_line('Перехвачена ошибка:');

7 dbms_output.put_line(sqlerrm);

8 commit;

9 end;

10 / Глава Перехвачена ошибка: ORA-06502: PL/SQL: numeric or value error: character to number conversion error PL/SQL procedure successfully completed. tkyte@TKYTE816> select * from t;

MSG Anonymous Сохранились только данные, вставленные в анонимном блоке. Сравните это с поведением "обычного" блока: tkyte@TKYTE816> delete from t;

1 row deleted. tkyte@TKYTE816> commit;

Commit complete. tkyte@TKYTE816> begin 2 insert into t values ('Anonymous');

3 regular_proc;

4 exception 5 when others then 6 dbms_output.put_line('Перехвачена ошибка:');

7 dbms_output.put_line(sqlerrm);

8 commit;

9 end;

10 / Перехвачена ошибка: ORA-06502: PL/SQL: numeric or value error: character to number conversion ->error PL/SQL procedure successfully completed. tkyte@TKYTE816> select * from t;

MSG Anonymous RegularProc В данном случае, поскольку ошибка перехвачена и обработана, в таблице остались строки, вставленные как анонимным блоком, так и завершившейся ошибкой процедурой. Это означает, что нельзя просто добавить прагму AUTONOMOUS_TRANSACTION в существующие хранимые процедуры в надежде, что они будут работать как прежде. Могут появиться существенные отличия.

Временные таблицы уровня транзакции При использовании временных (GLOBAL TEMPORARY) таблиц необходимо учитывать, что временные таблицы уровня транзакции нельзя одновременно использовать в нескольких транзакциях в одном сеансе. Временные таблицы управляются на уровне сеанса и при создании их на уровне транзакции (с удалением всех строк при фиксации) Автономные транзакции могут использоваться только в родительской или только в порожденной транзакции, но не в обеих. Так, следующий пример показывает, что автономная транзакция, пытающаяся читать или изменять временную таблицу уровня транзакции, уже использующуюся в сеансе, не срабатывает: tkyte@TKYTE816> create global temporary table temp 2 (x int) 3 on commit delete rows 4/ Table created. tkyte@TKYTE816> create or replace procedure auto_procl 2 as 3 pragma autonomous_transaction;

4 begin 5 insert into temp values (1);

6 commit;

7 end;

8/ Procedure created. tkyte@TKYTE816> create or replace procedure auto_proc2 2 as 3 pragma autonomous_transaction;

4 begin 5 for x in (select * from temp) 6 loop 7 null;

8 end loop;

9 commit;

10 end;

11 / Procedure created. tkyte@TKYTE816> insert into temp values (2);

1 row created. tkyte@TKYTE816> exec auto_proc1;

BEGIN auto_procl;

END;

* ERROR at line 1: ORA-14450: attempt to access a transactional temp table already in use ORA-06512: at "TKYTE.AUTO_PROC1", line 5 ORA-06512: at line 1 tkyte@TKYTE816> exec auto_proc2;

BEGIN auto_proc2;

END;

* ERROR at line 1: ORA-14450: attempt to access a transactional temp table already in use ORA-06512: at "TKYTE.AUTO_PROC2", line 5 ORA-06512: at line Глава Именно это сообщение об ошибке вы и получите при попытке использовать одну и ту же временную таблицу в обеих транзакциях. Следует отметить, что это происходит только с одновременными транзакциями в одном сеансе. Несколько одновременно выполняющихся транзакций, если только каждая из них выполняется в отдельном сеансе, могут обращаться к временным таблицам уровня транзакции.

Изменяющиеся таблицы Казалось бы, автономные транзакции позволяют решить все проблемы изменяющихся таблиц. Эти решения, однако, могут стать началом новых логических проблем. Предположим, необходимо обеспечить выполнение правила, по которому максимальная зарплата сотрудника не может более чем вдвое превышать среднюю зарплату сотрудников соответствующего отдела. Можно начать с процедуры и триггера примерно следующего вида: tkyte@TKYTE816> create or replace 2 procedure sal_check(p_deptno in number) 3 is 4 avg_sal number;

5 max_sal number;

6 begin 7 select avg(sal), max(sal) 8 into avg_sal, max_sal 9 from emp 10 where deptno = p_deptno;

11 12 if (max_sal/2 > avg_sal) 13 then 14 raise_application_error(-20001,'Rule violated');

15 end if;

16 end;

17 / Procedure created. tkyte@TKYTE816> create or replace trigger sal_trigger 2 after insert or update or delete on emp 3 for each row 4 begin 5 if (inserting or updating) then 6 sal_check(:new.deptno);

7 end if;

8 9 if (updating or deleting) then 10 sal_check(:old.deptno);

11 end if;

12 end;

13 / Trigger created. tkyte@TKYTE816> tkyte@TKYTE816> update emp set sal = sal*l.l;

Автономные транзакции update emp set sal = sal* 1.1 ERROR at line 1: ORA-04091: table TKYTE.EMP is mutating, trigger/function may not see it ORA-06512: at "TKYTE.SAL_CHECK", line 6 ORA-06512: at "TKYTE.SAL_TRIGGER", line 3 ORA-04088: error during execution of trigger "TKYTE.SAL_TRIGGER' Не слишком удачно. Мы сразу же столкнулись с ошибкой изменяющейся таблицы, поскольку нельзя читать таблицу в процессе ее изменения. Сразу приходит в голову мысль: раз таблица изменяется, надо использовать автономную транзакцию. Это и делается: tkyte@TKYTE816> create or replace 2 procedure sal_check(p_deptno in number) 3 is 4 pragma autonomous_transaction;

5 avg_sal number;

6 max_sal number;

7 begin Procedure created. Кажется, что проблема решена: tkyte@TKYTE816> update emp set sal = sal*l.l;

14 rows updated. tkyte@TKYTE816> commit;

Commit complete. При более детальном рассмотрении, однако, оказывается, что эта идея принципиально ошибочна. В ходе тестирования обнаруживается, что велика вероятность следующего: tkyte@TKYTE816> update emp set sal = 99999.99 where ename = 'WARD';

1 row updated. tkyte@TKYTE816> commit;

Commit complete. tkyte@TKYTE816> exec sal_check(30);

BEGIN sal_check(30);

END;

* ERROR at line 1: ORA-20001: Rule violated ORA-06512: at "TKYTE.SAL_CHECK", line 14 ORA-06512: at line 1 Я изменил запись служащего WARD, установив ему очень большую зарплату;

WARD работает в отделе 30, и его зарплата теперь намного превышает среднюю зарплату по этому отделу. Триггер этого не выявил, но постфактум, выполнив тот же код, что выполняет триггер, мы обнаруживаем нарушение правила. Почему? Потому что в автоном Глава ной транзакции невидимы выполняемые нами изменения. Поэтому такое увеличение зарплаты и проходит: процедура проверяет таблицу по состоянию до начала этого изменения! С нарушением столкнется следующий невезучий пользователь (как мы продемонстрировали, искусственно вызвав процедуру SAL_CHECK). При любом использовании автономной транзакции во избежание проблемы изменяющейся таблицы убедитесь, что вы поступаете правильно. В разделе "Проверка, записи которой не могут быть отменены" я использовал автономную транзакцию "безопасным" способом. Логика работы триггера не нарушается из-за того, что таблица в нем видна в состоянии до начала транзакции. В представленном выше примере триггер от этого существенно пострадал. Необходимо быть особенно внимательным и проверять корректность каждого триггера, оформленного как автономная транзакция.

Ошибки, которые могут произойти При работе с автономными транзакциями может произойти несколько ошибок. Для полноты изложения соответствующие сообщения представлены и прокомментированы ниже, но большинство них мы уже встречали в примерах. В этом разделе текст сообщения об ошибке приведен так, как он выдается СУБД Oracle версии 8.1.6.0.0 при установке русского языка для сообщений. Обратите внимание на несоответствие терминологии, предлагаемой компанией Oracle. В примерах оставлены сообщения на английском языке. — Прим. научн. ред.

ORA-06519: выполнен откат назад для незавершенной автономной транзакции // * Причина: Перед выходом из автономного PL/SQL-блока все начатые в нем // автономные транзакции должны быть завершены (зафиксированы // или отменены). В противном случае активная автономная // транзакция неявно откатывается и выдается это сообщение об // ошибке. // * Действие: Убедитесь, что перед выходом из автономного PL/SQL-блока // все активные автономные транзакции явно зафиксированы или // отменены. Это сообщение об ошибке выдается каждый раз при выходе из автономной транзакции, если перед этим не позаботились о ее явной фиксации или откате. При этом автономная транзакция откатывается, а исключительная ситуация распространяется в среду, откуда автономная транзакция была вызвана. Чтобы избавиться от этой проблемы, следует всегда обеспечивать фиксацию или откат транзакции для всех вариантов завершения PL/SQL-блока, оформленного как автономная транзакция. Эта ошибка всегда связана с логической ошибкой в коде.

ORA-14450: попытка доступа к уже используемой временной таблице транзакций // * Причина: Выполнена попытка доступа к временной таблице уровня // транзакции, данные в которую поместила другая транзакция, // одновременно выполняющаяся в том же сеансе.

Автономные транзакции // * Действие: Не пытайтесь обращаться к временной таблице, пока // одновременно выполняющаяся транзакция не будет // зафиксирована или отменена. Как было продемонстрировано ранее, глобальная временная таблица, созданная с опцией ON COMMIT DELETE ROWS, может использоваться только одной транзакцией в сеансе. Необходимо не допускать использования одной временной таблицы в родительской и порожденной транзакции.

ORA-00060: взаимная блокировка при ожидании ресурса // * Причина: Произошла взаимная блокировка транзакций при ожидании // ресурса. // * Действие: Определите по трассировочному файлу, какие транзакции и // ресурсы стали причиной взаимной блокировки. При // необходимости повторите транзакцию. Эта ошибка не связана непосредственно с использованием автономных транзакций, но я представил ее здесь потому, что при использовании автономных транзакций повышается вероятность ее возникновения. Поскольку родительская транзакция приостанавливается на время выполнения порожденной транзакции, и не может продолжить работу до ее завершения, взаимная блокировка, не возникающая при одновременной работе двух сеансов, возникает при использовании автономной транзакции. Она произойдет при попытке изменить одни и те же данные в двух отдельных транзакциях одного сеанса. Необходимо проверять, не пытается ли порожденная транзакция заблокировать ресурсы, уже заблокированные родительской транзакцией.

Резюме В этой главе мы детально изучили возможности автономных транзакций. Вы увидели, как их можно использовать для создания более модульного и безопасного кода. Вы научились выполнять с их помощью невозможные до этого действия (например, выполнять операторы ЯОД в триггере или вызывать в операторе SELECT хранимую функцию независимо от того, изменяет ли она базу данных). Я объяснил, почему неразумно предполагать, что функция, вызываемая в SQL-операторе, будет выполнена определенное количество раз, и поэтому надо быть особенно осторожным при изменении базы данных в таких функциях. Вы узнали, как с помощью автономных транзакций избежать проблемы изменяющейся таблицы, и что они могут привести к ошибочному результату при некорректном использовании для решения этой проблемы. Автономные транзакции — мощное средство, которое сервер Oracle использует уже многие годы для выполнения рекурсивных SQL-операторов. Теперь их можно использовать и в приложениях. Прежде чем использовать это средство, надо хорошо понимать, как выполняются транзакции, когда они начинаются и когда заканчиваются, поскольку могут возникать различные побочные эффекты. Например, сеанс может заблокировать сам себя, родительская транзакция может видеть или не видеть результаты порожденной автономной, порожденная автономная транзакция не видит незафиксированные результаты родительской и т.д.

Динамический SQL Обычно при разработке программ все используемые в них SQL-операторы явно записываются в исходном коде. Такой вариант использования SQL-операторов обычно называют статический SQL. Многие полезные программы, однако, до момента запуска не "знают", какие именно SQL-операторы будут выполняться. Именно так и появляется динамический SQL — программа при запуске выполняет SQL-операторы, неизвестные во время компиляции. Возможно, программа генерирует запросы по ходу работы на основе введенных пользователем условий;

возможно, это специализированная программа загрузки данных. Утилита SQL*Plus — прекрасный пример такого рода программы, как и любое другое средство выполнения произвольных запросов или генерации отчетов. Утилита SQL*Plus позволяет выполнить любой SQL-оператор и показать результаты его выполнения* хотя при ее компиляции операторы, которые выполняет пользователь, определенно не были известны. В этой главе мы обсудим, когда возникает необходимость использовать динамический SQL в программах и когда его имеет смысл применять. Мы сосредоточимся на использовании динамического SQL в программах на языке PL/SQL, поскольку именно в этой среде большинство разработчиков и используют динамический SQL в предварительно компилируемом формате. Поскольку использование динамического SQL — единственный способ выполнить SQL-операторы в программах на языке Java через интерфейс JDBC (выполнить динамический SQL в среде прекомпилятора SQLJ можно только через интерфейс JDBC) и на языке С при использовании библиотеки OCI, не имеет смысла обсуждать эти среды в данном контексте. В этих средах есть только динамический SQL;

статический SQL вообще не поддерживается, так что там просто нет выбора. Мы же в данной главе:

Глава • рассмотрим последствия использования динамического или статического SQL;

• разберемся, как использовать динамический SQL в программах с помощью средств стандартного пакета DBMS_SQL;

• изучим возможности встроенного (native) динамического SQL;

• рассмотрим ряд проблем, с которыми можно столкнуться при использовании динамического SQL в приложениях, в частности нарушение цепочки зависимостей, уязвимость кода и трудности при его настройке. Для выполнения всех примеров динамического SQL в этой главе необходим сервер Oracle 8.1.5 или более новых версий. Встроенный динамический SQL появился именно в этой версии и является одной из важнейших возможностей всех последующих версий. Для выполнения большинства примеров, в которых используются средства пакета DBMS_SQL, достаточно сервера Oracle версии 7.1 или более новых версий (правда, функции, обрабатывающие массивы, появились в пакете DBMS_SQL в версии 8.0).

Сравнение динамического и статического SQL Использование динамического SQL — естественная возможность работать с базой данных через функциональный интерфейс, такой как ODBC, JDBC и OCI. Статический SQL обычно принято использовать в средах с предварительной компиляцией кода, таких как Pro*C, SQLJ и PL/SQL (я не оговорился: компилятор PL/SQL можно рассматривать как прекомпилятор). При работе через функциональный интерфейс поддерживается только динамический SQL. Программист создает запрос в виде строки, а затем эта строка анализируется, связываются входящие в нее переменные, запрос выполняется, при необходимости выбираются строки из результирующего множества через курсор и, наконец, соответствующий курсор закрывается. В среде статического SQL эти действия выполняются автоматически. Для сравнения создадим две выполняющие одинаковые действия PL/SQL-процедуры: одну с — использованием динамического SQL, а вторую — с использованием статического. Вот версия на основе динамического SQL: scott@TKYTE816> create or replace procedure DynEmpProc(p_job in varchar2) 2 as 3 type refcursor is ref cursor;

4 5 -- При использовании динамического SQL необходимо 6 -- создать хост-переменные и выделить ресурсы. 7 l_cursor refcursor;

8 l_ename emp.ename%type;

9 begin 10 11 -- Начинаем с анализа запроса 12 open l_cursor for 13 'select ename 14 from emp 15 where job = :x' USING in p_job;

Динамический SQL 16 17 loop 18 -- и явно ВЫБИРАЕМ данные через курсор. 19 fetch l_cursor into l_ename;

20 21 -- Необходимо самостоятельно обрабатывать ошибки 22 -- и делать выборку 23 exit when l_cursor%notfound;

24 25 dbms_output.put_line(l_ename);

26 end loop;

27 28 -- He забываем освободить ресурсы 29 close l_cursor;

30 exception 31 when others then 32 -- а также перехватить и обработать все ошибки, 33 -- чтобы не допустить утечки ресурсов 34 -- при возникновении ошибок. 35 if (l_cursor%isopen) 36 then 37 close l_cursor;

38 end if;

39 RAISE;

40 end;

41 / Procedure created. А вот что мы имеем в случае статического SQL: scott@TKYTE816> create or replace procedure StaticEmpProc(p_job in varchar2) 2 as 3 begin 4 for x in (select ename from emp where job = p_job) 5 loop 6 dbms_output.put_line(x.ename);

7 end loop;

8 end;

9/ Procedure created.

Эти две процедуры делают то же самое:

scott@TKYTE816> set serveroutput on size 1000000 scott@TKYTE816> exec DynEmpProc('CLERK') SMITH ADAMS JAMES MILLER PL/SQL procedure successfully completed. scott@TKYTE816> exec StaticEmpProc('CLERK') Глава SMITH ADAMS JAMBS MILLER PL/SQL procedure successfully completed. Понятно, однако, что версия с динамическим SQL требует от разработчика написания гораздо большего объема кода. По опыту знаю: статический SQL обеспечивает более высокую производительность труда программиста при написании кода (приложения разрабатываются быстрее), но динамический SQL обеспечивает большую гибкость при выполнении (программа в ходе работы может делать то, что не внесено в ее код явно). Кроме того, статический SQL (особенно в среде PL/SQL) будет выполняться намного эффективнее, чем динамический. Используя статический SQL, PL/SQL-машина при обработке одной строки интерпретируемого кода может сделать то, на что потребуется пять или шесть строк интерпретируемого кода с динамическим SQL. Поэтому я использую статический SQL где только возможно и применяю динамический, только если подругому задачу решить нельзя. Оба они эффективны, ни один не имеет принципиальных преимуществ перед другим, и оба имеют свои специфические возможности и средства повышения производительности.

Когда использовать динамический SQL?

Многие задачи требуют использования динамического SQL в PL/SQL. Вот лишь некоторые из них. • Разработка обобщенных процедур, выполняющих стандартные действия вроде выгрузки данных в файлы. В главе 9 был представлен пример такой процедуры. • Разработка универсальных процедур загрузки данных в не известные заранее таблицы. Мы рассмотрим использование динамического SQL для загрузки данных в таблицу. • Динамический вызов других PL/SQL-процедур во время выполнения. Эта тема затрагивается в главе 23. Здесь мы рассмотрим ее более детально. • Генерация условий (например, конструкции WHERE) в процессе работы на основе введенных пользователем данных. Это, пожалуй, основная причина использования динамического SQL большинством разработчиков. Я покажу в этой главе, как это надо (и как не надо!) делать. • Выполнение операторов ЯОД. Поскольку PL/SQL не разрешает включать статические операторы ЯОД в код приложения, остается использовать динамический SQL. Это позволит выполнять операторы, начинающиеся с ключевых слов CREATE, ALTER, GRANT, DROP и т.п. Решаться перечисленные задачи будут с помощью двух средств языка PL/SQL. Сначала мы рассмотрим использование стандартного пакета DBMS_SQL. Этот пакет существует уже достаточно давно, он появился в версии 7.1. Пакет обеспечивает процедурный метод выполнения динамического SQL, аналогичный использованию Динамический SQL функциональных интерфейсов (таких как JDBC или ODBC). Затем поговорим о встроенном динамическим SQL (который реализуется в PL/SQL оператором EXECUTE IMMEDIATE). Это декларативный способ выполнения динамического SQL в языке PL/ SQL и в большинстве случаев он синтаксически намного проще, чем использование пакета DBMS_SQL;

кроме того, он обеспечивает более высокую производительность. Учтите, что многие подпрограммы пакета DBMS_SQL по-прежнему являются жизненно важными и активно используются в PL/SQL. Мы сравним два метода и попытаемся четко сформулировать, когда имеет смысл использовать каждый из них. Как только стало понятно, что необходимо использовать динамический SQL (статический SQL — лучший выбор в большинстве случаев), придется выбирать реализацию на основе пакета DBMS_SQL или встроенного динамического SQL. Пакет DBMS_SQL необходимо использовать в следующих случаях. • Если заранее не известно количество или типы столбцов, с которыми придется работать. Пакет DBMS_SQL включает процедуры для описания результирующего множества. Встроенный динамический SQL не позволяет получить такое описание. При использовании встроенного динамического SQL необходимо знать характеристики результирующего множества при компиляции, если результаты необходимо обрабатывать в PL/SQL. • Если заранее не известно количество или типы связываемых переменных, с которыми придется работать. Пакет DBMS_SQL по ходу выполнения позволяет привязать с помощью процедур входные переменные к операторам. Встроенный динамический SQL требует учета количества и типов связываемых переменных на этапе компиляции (я приведу интересный способ решения этой проблемы). • Когда необходимо выбирать или вставлять тысячи строк и можно использовать обработку массивов. Пакет DBMS_SQL поддерживает обработку массивов — возможность выбрать N строк за раз, одним вызовом. Встроенный динамический SQL обычно не позволяет этого сделать, но это ограничение можно обойти, как будет показано далее. • Если в сеансе многократно выполняется один и тот же оператор. Пакет DBMS_SQL позволяет один раз разобрать оператор, а затем выполнять его многократно. При использовании встроенного динамического SQL мягкий разбор будет осуществляться при каждом выполнении. В главе 10 было показано, почему такие дополнительные повторные разборы нежелательны. Встроенный динамический SQL имеет смысл использовать в следующих случаях. • Когда количество и типы столбцов, с которыми придется работать, заранее известны. • Когда заранее известно количество и типы связываемых переменных. (Можно также использовать контексты приложений, чтобы с помощью более простого встроенного динамического SQL выполнять операторы с заранее неизвестным количеством или типами связываемых переменных.) • Когда необходимо выполнять операторы ЯОД.

Глава • Если динамически формируемые операторы будут выполняться лишь несколько раз (оптимальный вариант — однократно).

Использование динамического SQL Я рассмотрю основные шаги при использовании как стандартного пакета DBMS_SQL, так и возможностей встроенного динамического SQL.

Пакет DBMS_SQL DBMS_SQL — это стандартный встроенный пакет, поставляемый вместе с сервером. Стандартно он устанавливается в схеме пользователя SYS, а привилегия для его выполнения предоставляется роли PUBLIC. Это означает, что не должно быть никаких проблем с доступом к нему или созданием хранимых объектов, ссылающихся на его процедуры, — никаких дополнительных или специальных привилегий для этого предоставлять не надо. Одним из положительных свойств пакета является доступность соответствующей документации. Если при использовании DBMS_SQL необходимо вспомнить ту или иную особенность, можно просто выполнить следующий сценарий: scott@TKYTE816> set pagesize 30 scott@TKYTE816> set pause on scott@TKYTE816> prompt He забудьте нажать ENTER, чтобы получить результа Не забудьте нажать ENTER, чтобы получить результат scott@TKYTE816> select text 2 from all_source 3 where name = 'DBMS_SQL' 4 and type = 'PACKAGE' 5 order by line 6/ TEXT package dbms_sql is -OVERVIEW -- This package provides a means to use dynamic SQL to access the database.

-- RULES AND LIMITATIONS Если необходимо узнать возможности или просмотреть примеры, используйте этот прием для всех стандартных пакетов DBMS_ или UTL_. Пакет DBMS_SQL реализует процедурный подход к использованию динамического SQL. Этот подход сходен с тем, который используется в других языках (например, Динамический SQL при программировании на Java с использованием JDBC или на С с использованием библиотеки OCI) В общем случае, процесс, использующий пакет DBMS_SQL, будет иметь следующую структуру. • Вызов OPEN_CURSOR для получения дескриптора курсора. • Вызов PARSE для анализа оператора. Один и тот же дескриптор курсора можно использовать для обработки нескольких операторов. В каждый момент времени, однако, обрабатывается только один оператор. • Вызов BIND_VARIABLE или BIND_ARRAY для передачи входных данных оператору. • Если обрабатывается запрос (оператор SELECT), необходимо вызвать процедуру DEFINE_COLUMN или DEFINE_ARRAY, чтобы указать серверу Oracle, как передавать результаты (как массивы или как скалярные величины и какой тип данных при этом использовать). • Вызов EXECUTE для выполнения оператора. • Если выполняется запрос, необходимо вызвать FETCH_ROWS для выборки данных. Для получения данных по порядковому месту в списке выбора используется вызов COLUMN_VALUE. • Если же выполняется блок кода PL/SQL или оператор ЯМД с конструкцией RETURN, можно вызвать процедуру VARIABLE_VALUE для получения результатов (параметров типа OUT) из блока по имени. • Вызов CLOSE_CURSOR. В следующем псевдокоде продемонстрирована последовательность шагов для динамического выполнения запроса: 1) Открыть курсор 2) Проанализировать оператор 3) При необходимости получить описание оператора, чтобы выяснить количество и типы возвращаемых столбцов 4) Выполнить цикл по i no связываемым переменным (входным) Связать i-ую входную переменную с оператором 5) Выполнить цикл по i по возвращаемым столбцам Определить i-ый столбец, сообщив серверу Oracle тип переменной, в которую будут выбираться данные 6) Выполнить оператор 7) Выполнять цикл пока удается выбрать строку 8) Выполнить цикл по i по возвращаемым столбцам Получить значение i-го столбца строки с помощью column_value Конец цикла по строкам 9) Закрыть курсор Для выполнения PL/SQL-блока или оператора ЯМД используется следующий псевдокод: 1) Открыть курсор 2) Проанализировать оператор 3) Выполнить цикл по i по связываемым переменным (входным и выходным) Глава Связать i-ую переменную с оператором 4) Выполнить оператор 5) Выполнить цикл по i по выходным связываемым переменным Получить значение i-й выходной переменной с помощью variable_value 6) Закрыть курсор Наконец, при выполнении операторов ЯОД (в которых нельзя использовать связываемые переменные), PL/SQL-блоков или операторов ЯМД, в которых нет связываемых переменных, представленный выше алгоритм упрощается (хотя, для этого типа операторов я всегда предпочитаю использовать не пакет DBMS_SQL, а встроенный динамический SQL): 1) 2) 3) 4) Открыть курсор Проанализировать оператор Выполнить оператор Закрыть курсор Рассмотрим пример использования пакета DBMS_SQL для выполнения запроса, подсчитывающего количество строк в таблице базы данных, к которой пользователь имеет доступ: scott@TKYTE816> create or replace 2 function get_row_cnts(p_tname in varchar2) return number 3 as 4 l_theCursor integer;

5 l_columnValue number default NULL;

6 l_status integer;

7 begin 8 9 -- Шаг 1, открыть курсор. 10 1 theCursor := dbms_sql.open_cursor;

Мы начинаем блок с обработчиком исключительных ситуаций. Если по ходу работы этого блока возникает ошибка, необходимо закрыть только что открытый курсор в обработчике исключительных ситуаций, чтобы предотвратить "утечку курсоров", когда дескриптор курсора теряется при распространении исключительной ситуации за пределы функции. 11 begin 12 13 -- Шаг 2, проанализировать запрос. 14 dbms_sql.parse(c => l_theCursor, 15 statement => 'select count(*) from ' || ->p_tname, 16 language_flag => dbms_sql.native);

17 Обратите внимание, что параметр language_flag получает значение одной из констант пакета DBMS_SQL.NATIVE. Это вызывает анализ запроса по правилам сервера, выполняющего код. Можно также задать значения DBMS_SQL.V6 или DBMS_SQL.V7. Я всегда использую значение NATIVE.

Динамический SQL Шаги 3 и 4 из представленного ранее псевдокода нам не нужны, поскольку результаты известны и никаких связываемых переменных в этом примере нет. 18 19 20 21 22 -- Шаг 5, убедиться, что запрос возвращает данные типа NUMBER. dbms_sql.define_column (с => l_theCursor, p o s i t i o n => 1, column => l_columnValue);

Процедура DEFINE_COLUMN — перегруженная, так что компилятор сам определяет, когда надо вызывать версию для типа NUMBER, а когда — для DATE или VARCHAR. 23 24 25 -- Шаг 6, выполнить оператор. l_status := dbms_sql.execute(l_theCursor);

Если бы выполнялся оператор ЯМД, переменная L_STATUS получила бы значение, равное количеству возвращенных строк. Для оператора SELECT возвращаемое значение несущественно. 26 -- Шаг 7, выбрать строки. 27 if (dbms_sql.fetch_rows(c => l_theCursor) > 0) 28 then 29 -- Шаг 8, получить значения из очередной строки. 30 dbms_sql.column_value(c => l_theCursor, 31 position => 1, 32 value => l_columnValue);

33 end if;

34 35 -- Шаг 9, закрыть курсор. 36 dbms_sql.close_cursor(c => l_theCursor);

37 return l_columnValue;

38 exception 39 when others then 40 dbms_output.put_line (' = = > ' || sqlerrm);

41 dbms_sql.close_cursor(с => l_theCursor);

42 RAISE;

43 end;

44 end;

45 / Function created. scott@TKYTE816> set serveroutput on scott@TKYTE816> begin 2 dbms_output.put_line('Emp has this many rows ' || 3 get_row_cnts('emp'));

4 end;

5/ Emp has this many rows 14 PL/SQL procedure successfully completed. scott@TKYTE816> begin 2 dbms_output.put_line('Not a table has this many rows ' || Глава 3 get_row_cnts('NOT_A_TABLE')>;

4 end;

5/ = = > ORA-00942: table or view does not exist begin ERROR at line 1: ORA-00942: table or view does not exist ORA-06512: at "SCOTT.GET_ROW_CNTS", line 60 ORA-06512: at line 2 Рассмотренный пример начинается созданием курсора с помощью вызова DBMS_SQL.OPEN_CURSOR. Следует отметить, что это специфический курсор DBMS_SQL — его нельзя передать для выборки данных в приложение на Visual Basic или использовать в качестве PL/SQL-курсора. Для выборки данных с помощью этого курсора необходимо использовать подпрограммы пакета DBMS_SQL. Затем мы проанализировали запрос SELECT COUNT(*) FROM TABLE, где значение TABLE передается при вызове во время выполнения — оно просто конкатенируется со строкой запроса. Приходится "вклеивать" имя таблицы в запрос, поскольку связываемые переменные нельзя использовать в качестве идентификатора (имени таблицы или имени столбца, например). После анализа запроса мы вызвали DBMS_SQL.DEFINE_COLUMN, чтобы указать, что первый (и единственный в данном случае) столбец в списке SELECT должен интерпретироваться при выборке как тип NUMBER. To, что мы хотим выбирать данные именно этого типа, явно не указано — процедура DBMS_SQL.DEFINE_COLUMN перегружена и имеет несколько версий для данных типа VARCHAR, NUMBER, DATE, BLOB, CLOB и так далее. Тип возвращаемого значения определяется по типу переменной, в которую он помещается. Поскольку переменная L_COLUMNVALUE в рассмотренном примере имеет тип NUMBER, вызывается версия процедуры DEFINE_COLUMN для чисел. Затем мы вызываем DBMS_SQL.EXECUTE. Если бы выполнялся оператор INSERT, UPDATE или DELETE, функция EXECUTE вернула бы количество затронутых строк. В случае запроса возвращаемое значение функции не определено, и его можно проигнорировать. После выполнения оператора вызывается функция DBMS_SQL.FETCH_ROWS. Функция FETCH_ROWS возвращает количество фактически выбранных строк. В нашем случае, поскольку связывались скалярные переменные (не массивы), функция FETCH_ROWS будет возвращать 1 до тех пор, пока не исчерпаются данные, — тогда она вернет 0. При извлечении каждой строки мы вызываем DBMS_SQL.COLUMN_VALUE для каждого столбца в списке выбора, чтобы получить его значение. Наконец, мы завершаем выполнение функции, закрывая курсор с помощью вызова DBMS_SQL.CLOSE_CURSOR. Теперь рассмотрим, как использовать пакет DBMS_SQL для обработки динамически формируемых параметризованных PL/SQL-блоков или операторов ЯМД. Я часто использую такое динамическое формирование, например, при загрузке данных из файлов операционной системы с помощью пакета UTL_FILE (он позволяет читать текстовые файлы в PL/SQL). Пример подобного рода утилиты был представлен в главе 9. Там мы использовали пакет DBMS_SQL для динамического построения операторов INSERT, в которых количество столбцов становится известным только при выполнении и меня Динамический SQL ется от вызова к вызову. Нельзя использовать встроенный динамический SQL для загрузки в таблицу произвольного количества столбцов, поскольку для этого уже на этапе компиляции необходимо точно знать количество связываемых переменных. Следующий пример создан специально, чтобы показать особенности использования подпрограмм пакета DBMS_SQL при работе с блоками PL/SQL и операторами ЯМД (это пример проще реализовать с помощью встроенного динамического SQL, поскольку в этом случае количество связываемых переменных известно во время компиляции): scott@TKYTE816> create or replace 2 function update_row(p_owner in varchar2, 3 p_newDname in varchar2, 4 p_newLoc in varchar2, 5 p_deptno in varchar2, 6 p_rowid out varchar2) 7 return number 8 is 9 l_theCursor integer;

10 l_columnValue number default NULL;

11 l_status integer;

12 l_update long;

13 begin 14 l_update := 'update ' || p_owner || '.dept 15 set dname = :bvl, loc - :bv2 16 where deptno = to_number(:pk) 17 returning rowid into :out';

18 19 -- Шаг 1, открыть курсор. 20 l_theCursor := dbms_sql.open_cursor;

21 Начнем вложенный блок с обработчиком исключительных ситуаций. Если в этом блоке кода возникнет ошибка, необходимо обработать ее как можно ближе к месту возникновения и закрыть курсор, чтобы избежать "утечки курсоров", когда дескриптор открытого курсора просто теряется при распространении ошибки за пределы подпрограммы. 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 begin -- Шаг 2, проанализировать запрос. dbms_sql.parse(c => l_theCursor, statement => l_update, language_flag => dbms_sql.native);

-- Шаг 3, связать все входные и выходные переменные. dbms_sql.bind_variable(c => l_theCursor, name => ':bv1', value => p_newDname);

dbms_sql.bind_variable(c => l_theCursor, name => ':bv2', value => p_newLoc);

dbms_sql.bind_variable(c => l_theCursor, name => ':pk', 37 38 39 40 41 Глава value => p_deptno);

dbms_sql.bind_variable(c => l_theCursor, name => ':out', value => p_rowid, out_value_size => 4000);

Учтите, что, хотя возвращаемые переменные передаются как параметры в режиме OUT, необходимо связать их перед выполнением. Необходимо также указать наибольший размер ожидаемого результата (OUT_VALUE_SIZE), чтобы сервер Oracle выделил под него соответствующее пространство. 43 -- Шаг 4: выполнить оператор. Поскольку это оператор ЯМД, 44 -- в переменной L_STATUS окажется количество измененных строк. 45 -- Именно это значение мы и возвращаем. 46 47 l_status := dbms_sql.execute(l_theCursor);

48 49 -- Шаг 5: выбрать OUT-переменные из результатов выполнения. 50 dbms_sql.variable_value(c => l_theCursor, 51 name => ':out', 52 value => p_rowid);

53 54 -- Шаг 6: закрыть курсор. 55 dbms_sql.close_cursor(с => l_theCursor);

56 return l_columnValue;

57 exception 58 when dup_val_on_index then 59 dbms_output.put_line('==> ' || sqlerrm);

60 dbms_sql.close_cursor(с => l_theCursor);

61 RAISE;

62 end;

63 end;

64 / Function created. scott@TKYTE816> set serveroutput on scott@TKYTE816> declare 2 l_rowid varchar(50);

3 l_rows number;

4 begin 5 l_rows := update_row('SCOTT', 'CONSULTING', 'WASHINGTON', '10', l_rowid);

6 7 dbms_output.put_line('Updated ' || l_rows || ' rows');

8 dbms_output.put_line('its rowid was ' || l_rowid);

9 end;

10 / Updated 1 rows its rowid was AAAGnuAAFAAAAESAAA PL/SQL procedure successfully completed.

Динамический SQL Итак, я продемонстрировал особенности использования пакета DBMS_SQL для выполнения блока кода с передачей входных данных и выборкой результатов. Повторю еще раз: представленный выше блок кода лучше реализовать с помощью встроенного динамического SQL (чуть ниже мы так и сделаем). Подпрограммы пакета DBMS_SQL в нем применялись в основном для демонстрации использования соответствующего функционального интерфейса. В других главах книги, в частности в главе 9, посвященной загрузке данных, продемонстрировано, почему пакет DBMS_SQL по-прежнему широко используется. В главе 9 рассмотрен код программ загрузки и выгрузки данных на PL/SQL. В них средства DBMS_SQL используются в полном объеме, позволяя обрабатывать неизвестное количество столбцов любого типа как во входных данных (для операторов INSERT), так и в результатах (для операторов SELECT). Мы рассмотрели примерно 75 процентов функциональных возможностей пакета DBMS_SQL. Чуть позже, многократно выполняя один и тот же динамически сформированный оператор, мы рассмотрим взаимодействие с помощью массивов и сравним использование пакета DBMS_SQL и встроенного динамического SQL. Пока, однако, мы завершим обзор пакета DBMS_SQL. Полный список входящих в него подпрограмм и описание их входных/выходных параметров можно найти в руководстве Oracle8i Supplied PL/SQL Packages Reference, где отдельно рассмотрена каждая подпрограмма.

Встроенный динамический SQL Встроенный динамический SQL впервые появился в Oracle 8i. Он позволяет декларативно выполнять динамический SQL в среде PL/SQL. Большинство действий можно выполнить с помощью одного оператора, EXECUTE IMMEDIATE, а остальные — с помощью оператора OPEN FOR. Оператор EXECUTE IMMEDIATE имеет следующий синтаксис:

EXECUTE IMMEDIATE ' о п е р а т о р ' [INTO {переменная1., переменная2,... п е р е м е н н а я N | з а п и с ь } ] [USING [ I N | ООТ | IN OUT] связываемая_переменная1,... связываемая_переменнаяN] [{RETURNING | RETURN} INTO р е з у л ь т а т 1 [,..., р е з у л ь т а т N ]... ] ;

где: • оператор — любой оператор SQL или PL/SQL-блок;

• переменная1, переменная2,... переменнаяN или запись — переменные PL/SQL, в которые необходимо выбрать данные (столбцы одной строки результатов оператора SELECT);

• связываемая_переменная1,... связываемая переменнаяN — набор переменных PL/ SQL, используемых для передачи входных данных/результатов;

• результат1,... результатN — набор PL/SQL-переменных, используемых для размещения результатов, возвращаемых конструкцией RETURN оператора ЯМД. В следующем примере код для функций GET_ROW_CNTS и UPDATE_ROW, которые мы ранее реализовали с помощью средств пакета DBMS_SQL, переписан с использованием оператора EXECUTE IMMEDIATE. Начнем с функции GET_ROW_CNTS:

Глава scott@TKYTE816> create or replace 2 function get_row_cnts(p_tname in varchar2) return number 3 as 4 l_cnt number;

5 begin 6 execute immediate 7 'select count(*) from ' || p_tname 8 into l_cnt;

9 10 return l_cnt;

11 end;

12 / Function created. scott@TKYTE816> set serveroutput on scott@TKYTE816> exec dbms_output.put_line(get_row_cnts('emp'));

14 PL/SQL procedure successfully completed. Использовав оператор SELECT...INTO... в качестве аргумента для EXECUTE IMMEDIATE, мы существенно уменьшили объем кода. Девять процедурных шагов, необходимых при использовании пакета DBMS_SQL, превратились в один шаг в случае встроенного динамического SQL. Не всегда удается свести все к одному шагу — иногда необходимо три, как будет показано ниже, — но общая идея понятна. Встроенный динамический SQL в данном случае обеспечивает более высокую производительность при написании кода (последствия его использования с точки зрения производительности мы рассмотрим чуть позже). Также бросается в глаза отсутствие раздела EXCEPTION обработка исключительных ситуаций не нужна, поскольку все происходит неявно. Нет курсора, который необходимо закрывать, ничего не нужно освобождать. Сервер Oracle все делает сам. Теперь реализуем с помощью встроенного динамического SQL функцию UPDATE_ROW: scott@TKYTE816> create or replace 2 function update_row(p_owner in varchar2, 3 p_newDname in varchar2, 4 p_newLoc in varchar2, 5 p_deptno in varchar2, 6 p_rowid out varchar2) 7 return number б is 9 begin 10 execute immediate 11 'update ' || p_owner || '.dept 12 set dname = :bvl, loc = :bv2 13 where deptno = to_number(:pk) 14 returning rowid into :out' 15 using p_newDname, p_newLoc, p_deptno 16 returning into p_rowid;

Динамический SQL 18 return sql%rowcount;

19 end;

20 / Function created. scott@TKYTE816> set serveroutput on scott@TKYTE816> declare 2 l_rowid varchar(50);

3 l_rows number;

4 begin 5 l_rows := update_row('SCOTT', 'CONSULTING', 6 'WASHINGTON', '10', l_rowid);

7 8 dbms_output.put_line('Updated ' || l_rows || ' rows');

9 dbms_output.put_line('its rowid was ' || l_rowid);

10 end;

11 / Updated 1 rows its rowid was AAAGnuAAFAAAAESAAA PL/SQL procedure successfully completed. Снова код существенно сократился — один шаг вместо шести;

такой код проще читать и сопровождать. В этих двух случаях встроенный динамический SQL, несомненно, превосходит средства пакета DBMS_SQL. Помимо оператора EXECUTE IMMEDIATE встроенный динамический SQL поддерживает динамическую обработку курсорных переменных, REF CURSOR. Курсорные переменные достаточно давно поддерживаются сервером Oracle (с версии 7.2). Первоначально они позволяли открыть (OPEN) запрос (результирующее множество) в хранимой процедуре и передать ссылку на него клиенту. С их помощью хранимые процедуры возвращают результирующие множества клиентам при использовании VB, протоколов JDBC и ODBC или библиотеки OCI. Позднее, в версии 7.3, поддержка курсорных переменных была расширена, так что в PL/SQL появилась возможность использовать их не только в операторе OPEN, но и в операторе FETCH (в качестве клиента могла использоваться другая подпрограмма на PL/SQL). Это позволило подпрограмме на PL/SQL принимать результирующее множество в качестве входных данных и обрабатывать его. Таким образом, впервые стало возможно централизовать общую обработку результатов запросов: одна подпрограмма может выбирать данные из нескольких различных запросов (результирующих множеств). До появления версии Oracle 8i, однако, курсорные переменные по сути были исключительно статические. На этапе компиляции (при создании хранимой процедуры) надо было точно знать, какой SQL-запрос будет выполняться. Это было весьма существенное ограничение, поскольку не позволяло динамически изменять условия запроса, запрашивать другую таблицу и т.п. Начиная с Oracle 8i встроенный динамический SQL позволяет динамически открывать для запроса курсорную переменную. При этом используется следующий синтаксис: OPEN курсорная_переменная FOR 'select...' USING связываемая_переменная1, связываемая_переменная2,...;

Глава Итак, с помощью курсорных переменных и динамического SQL можно реализовать обобщенную процедуру запроса таблицы в зависимости от входных данных и возвращения результирующего множества клиенту для дальнейшей обработки: scott@TKYTE816> create or replace package my_pkg 2 as 3 type refcursor_Type is ref cursor;

4 5 procedure get_emps(p_ename in varchar2 default NULL, 6 p_deptno in varchar2 default NULL, 7 p_cursor in out refcursor_type);

8 end;

9/ Package created. scott@TKYTE816> create or replace package body my_pkg 2 as 3 procedure get_emps(p_ename in varchar2 default NULL, 4 p_deptno in varchar2 default NULL, 5 p_cursor in out refcursor_type) 6 is 7 l_query long;

8 l_bind varchar2(30);

9 begin 10 l_query := 'select deptno, ename, job from emp';

11 12 if (p_ename is not NULL) 13 then 14 l_query := l_query || ' where ename like :x';

15 l_bind := '%' || upper(p_ename) || '%';

16 elsif (p_deptno is not NULL) 17 then 18 l_query := l_query || ' where deptno = to_number(:x)';

19 l_bind := p_deptno;

20 else 21 raise_application_error(-20001,'Missing search criteria');

22 end if;

23 24 open p_cursor for l_query using l_bind;

25 end;

26 end;

27 / Package body created. scott@TKYTE816> variable С refcursor scott@TKYTE816> set autoprint on scott@TKYTE816> exec my_pkg.get_emps(p_ename => 'a', p_cursor => :C) PL/SQL procedure successfully completed.

Динамический SQL DEPTNO ENAME 20 30 30 10 30 30 30 ADAMS ALLEN BLAKE CLARK JAMES MARTIN WARD JOB CLERK SALESMAN MANAGER MANAGER CLERK SALESMAN SALESMAN 7 rows selected. scott@TKYTE816> exec my_pkg.get_emps(p_deptno=> '10', p_cursor => :C) PL/SQL procedure successfully completed. DEPTNO ENAME 10 CLARK 10 KING 10 MILLER JOB MANAGER PRESIDENT CLERK Если созданный динамически запрос возвращает более одной строки, надо использовать представленный выше метод, а не оператор EXECUTE IMMEDIATE. Итак, по сравнению с представленными выше подпрограммами пакета DBMS_SQL, использование операторов EXECUTE IMMEDIATE и OPEN FOR существенно упрощает написание программ. Значит ли это, что пакет DBMS_SQL больше использовать не придется? Определенно, — не значит. Представленные выше примеры показывают, насколько простым может быть использование динамического SQL, если количество связываемых переменных известно во время компиляции. Если бы мы этого не знали, то не смогли бы использовать оператор EXECUTE IMMEDIATE так просто, как в представленных примерах. Для этого оператора количество связываемых переменных надо знать заранее. Пакет DBMS_SQL в этом отношении обеспечивает большую гибкость. Помимо количества связываемых переменных необходимо знать еще и столбцы, входящие в результат выполнения SQL-оператора SELECT. Если количество и типы этих столбцов неизвестны, использовать оператор EXECUTE IMMEDIATE тоже не удастся. Можно будет использовать оператор OPEN FOR, если клиент, получающий курсорную переменную, не является другой подпрограммой на языке PL/SQL. Оператор EXECUTE IMMEDIATE обеспечит более высокую производительность по сравнению с пакетом DBMS_SQL для всех операторов, анализируемых и выполняемых однократно (все наши примеры пока были именно такими). Для выполнения подпрограмм пакета DBMS_SQL в этом отношении требуется больше ресурсов, потому что нужно вызвать пять или шесть процедур там, где достаточно одного выполнения оператора EXECUTE IMMEDIATE. Однако пакет DBMS_SQL обеспечивает более высокую производительность, если его процедуры используются для многократного выполнения одного и того же проанализированного оператора. Оператор EXECUTE IMMEDIATE не позволяет "повторно использовать" проанализированные операторы. Он всегда разбирает оператор, и расходы ресурсов на повторные выполнения этой операции со временем превышают расхо Глава ды на дополнительные вызовы процедур. Особое значение это приобретает в многопользовательской среде. Наконец, операторы EXECUTE IMMEDIATE и OPEN не позволяют обрабатывать массивы так же просто, как подпрограммы пакета DBMS_SQL и, как будет продемонстрировано, одно это может принципиально повлиять на производительность.

Сравнение пакета DBMS_SQL и встроенного динамического SQL Рассмотрев способы реализации подпрограмм с помощью пакета D B M S _ S Q L И встроенного динамического SQL, поговорим о том, когда следует использовать каждый из способов. Решение зависит от следующих факторов. • Известно ли на этапе компиляции, какие связываемые переменные придется использовать? Если — нет, надо выбрать пакет DBMS_SQL. • Известны ли на этапе компиляции все выходные данные? Если — нет, нужно отдать предпочтение пакету DBMS_SQL. • Надо ли использовать курсорную переменную для возврата результирующего множества из хранимой процедуры? Если — да, придется использовать оператор OPEN FOR.

• Будет ли формируемый динамически оператор выполняться в сеансе один раз или многократно. Если один и тот же динамически формируемый оператор выполняется несколько раз, пакет DBMS_SQL обеспечит более высокую производительность. • Надо ли использовать обработку массивов для динамически формируемых операторов. Три из этих факторов мы рассмотрим ниже (на самом деле — даже четыре, поскольку многократное выполнение оператора мы рассмотрим как в случае обработки массивов, так и без оной).

Связываемые переменные Связываемые переменные существенно влияют на производительность системы. Если они не используются, производительность недопустимо низка. Метод автоматической подстановки связываемых переменных (auto binding) путем установки соответствующего значения параметра CURSOR_SHARING был рассмотрен в главе 10. Это несколько улучшает ситуацию, но приводит к избыточному расходованию ресурсов, поскольку сервер вынужден переписывать запрос и удалять информацию, существенную для оптимизатора, которую можно было бы оставить при явном включении связываемых переменных в код. Предположим, необходимо создать процедуру, динамически создающую запрос на основе введенных пользователем данных. Запрос всегда будет возвращать однотипные результаты (тот же список выбора), но конструкция WHERE будет меняться в зависимости от входных данных. Из соображений производительности необходимо использо Динамический SQL вать связываемые переменные. Как это сделать с помощью встроенного динамического SQL и средств пакета DBMS_SQL? Чтобы представить методы, начну со спецификации подпрограммы. Разрабатываемая процедура будет иметь следующий вид: scott@TKYTE816> c r e a t e or replace package dyn_demo 2 as 3 type array is table of varchar2(2000);

4 5 6 /* 7 * DO_QUERY будет динамически запрашивать таблицу emp 8 * и обрабатывать результаты. Ее можно вызвать 9 * следующим образом: 10 * 11 * dyn_demo.do_query( array('ename', 'job'), 12 array('like', '='), 13 array('%A%', 'CLERK'));

14 * 15 * для выполнения запроса: 16 * 17 * select * from emp where ename like '%A%' and job = 'CLERK' 18 * 19 * например. 20 */ 21 procedure do_query(p_cnames in array,.22 p_operators in array, 23 p_values in array);

24 25 end;

26 / Package created. Вполне естественно реализовать ее с помощью DBMS_SQL — для таких ситуаций и создавался этот пакет. Можно организовать цикл по массивам столбцов и значений и построить конструкцию WHERE. Затем проанализировать запрос и выполнить еще один цикл по массивам для связывания значений переменных. После этого выполнить оператор, выбрать строки и обработать их. Это можно записать следующим образом: scott@TKYTE816> create or replace package body dyn_demo 2 as 3 4 /* 5 * Реализация динамического запроса с неизвестными 6 * связываемыми переменными средствами DBMS_SQL 7 */ 8 g_cursor int default dbms_sql.open_cursor;

9 10 11 procedure do_query(p_cnames in array, 12 p_operators in array, 13 p_values in array) Глава 14 is 15 l_query long;

16 l_sep varchar2(20) default ' where ';

;

17 l_comma varchar2(1) default '';

18 l_status int;

19 l_colValue varchar2(4000);

20 begin 21 /* 22 * Это наш постоянный список выбора — мы всегда 23 * выбираем эти три столбца. Изменяются 24 * условия выбора. 25 */ 26 l_query := 'select ename, empno, job from emp';

27 28 /* 29 * Мы строим условие, сначала 30 * помещая в запрос конструкцию: 31 * 32 * ename operator :bvX 33 * 34 */ 35 for i in 1.. p_cnames.count loop 36 l_query := l_query || l_sep || p_cnames(i) || ' ' || 37 p_operators(i) || ' ' || 38 ':bv' || i;

39 l_sep := ' and •;

40 end loop;

41 42 /* 43 * Теперь можно анализировать запрос 44 */ 45 dbms_sql.parse(g_cursor, l_query, dbms_sql.native);

46 47 /* 48 * и определять столбцы результата. Все три столбца 49 * выбираются в переменные типа VARCHAR2. 50 */ 51 for i in 1.. 3 loop 52 dbms_sql.define_column(g_cursor, i, l_colValue, 4000);

53 end loop;

54 55 /* 56 * Теперь можно связать входные переменные запроса 57 */ 58 for i in 1.. p_cnames.count loop 59 dbms_sql.bind_variable(g_cursor, ':bv'||i, p_values(i), 4000);

60 end loop;

61 62 /* 63 * и выполнить его. Так формируется результирующее множество 64 */ Динамический SQL 65 l_status := dbms_sql.execute(g_cursor);

66 67 /* 68 * теперь проходим в цикле по строкам и выдаем результаты. 69 */ 70 while (dbms_sql.fetch_rows(g_cursor) > 0) 71 loop 72 l_comma := '';

73 for i in 1.. 3 loop 74 dbms_sql.column_value(g_cursor, i, l_colValue);

75 dbms_output.put(l_comma || l_colValue);

76 l_comma := ', ';

77 end loop;

78 dbms_output.new_line;

79 end loop;

80 end;

81 82 end dyn_demo;

83 / Package body created. scott@TKYTE816> set serveroutput on scott@TKYTE816> begin 2 dyn_demo.do_query(dyn_demo.array('ename', 'job'), 3 dyn_demo.array('like', '='), 4 dyn_demo.array('%A%', 'CLERK'));

5 end;

6/ ADAMS,7876,CLERK JAMES, 7900, CLERK PL/SQL procedure successfully completed. Как видите, все просто и в рамках действий, предусмотренных для использования пакета DBMS_SQL. Теперь реализуем то же самое с помощью встроенного динамического SQL Здесь мы сталкиваемся с проблемой. Для динамического выполнения запроса со связываемыми переменными во встроенном динамическом SQL используется следующий синтаксис: OPEN курсорная_переменная FOR ' s e l e c t ' USING переиенная1, переменная2, переменнаяЗ,... ;

Проблема в том, что на этапе компиляции мы не знаем размера списка USING — будет ли в нем одна переменная, две или вообще ни одной? Поэтому необходимо параметризировать запрос, но использовать обычные связываемые переменные нельзя. Можно, однако, использовать средство, предназначавшееся совсем для других целей. В главе 21, при изучении средств тщательного контроля доступа, мы рассмотрим контекст приложения (application context) и его использование. Контекст приложения, по сути, позволяет поместить в пространство имен (namespace) пару переменная/значение. К этой паре переменная/значение можно обращаться в SQL-операторах с помощью встроенной функции SYS_CONTEXT. Контекст приложения, таким образом, можно исполь Глава зовать для параметризации запроса, помещая связываемые значения в пространство имени и выбирая их в запросе с помощью встроенной функции SYS_CONTEXT. Итак, вместо запроса следующего вида: select ename, empno, job from emp where ename like :bvl and job = :bv2;

создаем такой запрос: select ename, empno, job from emp where ename like SYS_CONTEXT('namespace','ename') and job = SYS_CONTEXT('namespace','job');

Pages:     | 1 |   ...   | 12 | 13 || 15 | 16 |   ...   | 24 |



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.