Последний отзыв
отлично написал
По всем вопросам обращайтесь на: info@litportal.ru
(©) 2003-2025.
✖
Язык PL/SQL
Настройки чтения
Размер шрифта
Высота строк
Поля
7 DBMS_OUTPUT.PUT_LINE('Отобранная строка: '||l_tab1.at1||l_tab1.at2);
8
9 BEGIN
10 EXECUTE IMMEDIATE l_sql_text INTO l_tab1 USING 1;
11 EXCEPTION
12 WHEN OTHERS THEN
13 DBMS_OUTPUT.PUT_LINE(SQLERRM);
14 END;
15
16 BEGIN
17 EXECUTE IMMEDIATE l_sql_text INTO l_tab1 USING 3;
18 EXCEPTION
19 WHEN OTHERS THEN
20 DBMS_OUTPUT.PUT_LINE(SQLERRM);
21 END;
22
23 END;
24 /
Отобранная строка: 2B
ORA-01422: exact fetch returns more than requested number of rows
ORA-01403: no data found
PL/SQL procedure successfully completed.
Рассмотрим еще два примера использования NDS.
Пусть база данных спроектирована таким образом, что у каждой таблицы столбец первичного ключа называется id и имеет тип INTEGER.
Напишем процедуру, которая удаляет строку в любой таблице по значению ее первичного ключа. Параметрами процедуры будут имя таблицы и значение столбца id удаляемой строки.
CREATE TABLE tab1(id INTEGER PRIMARY KEY,at1 CHAR(1));
INSERT INTO tab1 VALUES(1,'a');
INSERT INTO tab1 VALUES(2,'b');
CREATE TABLE tab2(id INTEGER PRIMARY KEY,at1 CHAR(1));
INSERT INTO tab2 VALUES(20,'x');
INSERT INTO tab2 VALUES(30,'y');
SQL> CREATE OR REPLACE PROCEDURE delete_by_id (p_table_name IN VARCHAR2,
2 p_id IN INTEGER) IS
3 BEGIN
4 EXECUTE IMMEDIATE 'DELETE FROM '||p_table_name||' WHERE id=:p_id'
5 USING p_id;
6 DBMS_OUTPUT.PUT_LINE('In table '||p_table_name||' '
7 ||SQL%ROWCOUNT||' rows deleted');
8 END;
9 /
Procedure created.
SQL> set serveroutput on
SQL> EXECUTE delete_by_id('tab1',1);
In table tab1 1 rows deleted
PL/SQL procedure successfully completed.
SQL> EXECUTE delete_by_id('tab1',-1);
In table tab1 0 rows deleted
PL/SQL procedure successfully completed.
SQL> EXECUTE delete_by_id('tab2',20);
In table tab2 1 rows deleted
Последний отзыв
отлично написал