SAK 図書館
SAK 図書館
Oracle PL/SQL 編4 - SQL 文、動的 SQL、select、insert、update、delete
■SQL 文
PL/SQL 内でも
insert
update
delete
select
lock table
commit
rollback
savepoint
rollback to
set transaction
などの SQL 文が使えるが、その時点で存在しないオブジェクト名を含むこと
はできない。従って、create table のテーブル名はエラーになる。
これに対処するには、動的 SQL を使用する。
■動的 SQL
declare
tbl in varchar2 default 'test';
cid integer;
begin
cid := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE(cid, 'create table ' || tbl || ' (データ number(9))', dbms_sql.v7);
DBMS_SQL.CLOSE_CURSOR(cid);
dbms_output.put_line ('end');
exception
when OTHERS then
dbms_output.put_line ('** エラー **');
end;
/
■select (問い合わせ、レコード参照)
declare
jcsu number(12, 2);
begin
select 受注数 into jcsu from 受注m where 受注番号 = '000010-001';
end;
/
■insert (レコード追加)
declare
jcsu number(12, 2);
begin
jcsu := 100;
insert into 受注m values ('111111-011', 'a001', jcsu, '1000',
'sak', '2001.08.25', '07:02:00');
commit;
end;
/
■update (レコード修正、レコード更新)
declare
jcsu number(12, 2);
begin
jcsu := 100;
update 受注m set 受注数 = 受注数 + jcsu where 受注番号 = '111111-011';
commit;
end;
/
■delete (レコード削除)
declare
jcno varchar2(10);
begin
jcno := '111111-011';
delete from 受注m where 受注番号 = jcno;
commit;
end;
/
■set transaction (読み取り専用トランザクション)
declare
jcsu number(12, 2);
begin
set transaction read only;
select 受注数 into jcsu from 受注m where 受注番号 = '000010-001';
commit;
end;
/
■commit、rollback (トランザクションコミット、ロールバック)
declare
jcsu number(12, 2);
begin
jcsu := 100;
insert into 受注m values ('111111-011', 'a001', jcsu, '1000',
'sak', '2001.08.25', '07:02:00');
commit;
exception
when OTHERS then
rollback;
end;
/
■savepoint、rollback to (セーブポイント、2 フェーズコミット)
declare
jcsu number(12, 2);
begin
jcsu := 100;
insert into 受注m values ('111111-011', 'a001', jcsu, '1000',
'sak', '2001.08.25', '07:02:00');
savepoint sv_ins1;
jcsu := 200;
insert into 受注m values ('111111-011', 'a001', jcsu, '1000',
'sak', '2001.08.25', '07:02:00');
commit;
exception
when DUP_VAL_ON_INDEX then
rollback to sv_ins1;
end;
/
■Oracle PL/SQL 編資料
■SQL 基礎実地編資料
■SQL 基礎編資料
■SQL チューニング編資料
■PostgreSQL 編、JAVA Servlet、JSP 編資料
■MySQL 編資料
Copyright (C) 1999-2024 Y.SAK