SAK 図書館
SAK 図書館
PostgreSQL 編22 - PL/pgSQL、カーソル for ループ、カーソル制御、FETCH
■select into
・select into は、Oracle の PL/SQL と同等である。
drop function fnctest1();
create function fnctest1() returns int as
'
declare
ct int;
begin
select count(*) into ct from testm;
raise debug ''count = %'', ct;
return ct;
end;
'
language 'plpgsql'
;
select fnctest1();
DEBUG: count = 4
fnctest1
----------
4
■カーソル for ループ
・for ループでの select には、通常のものと、execute を指定した動的な
ものが指定できる。
これが一番簡単にカーソルループを作れる。
drop function fnctest1();
create function fnctest1() returns int as
'
declare
rec record;
begin
for rec in select * from testm loop
raise debug ''key = % data1 = %'', rec.key, rec.data1;
end loop;
return 0;
end;
'
language 'plpgsql'
;
select fnctest1();
DEBUG: key = a001 data1 = 1
DEBUG: key = a011 data1 = 1
DEBUG: key = b002 data1 = 10
DEBUG: key = c003 data1 = 100
・for ループでの select に execute を指定した場合は、次のようになる。
drop function fnctest1();
create function fnctest1() returns int as
'
declare
rec record;
s varchar(20) := ''testm'';
begin
for rec in execute ''select * from '' || s loop
raise debug ''key = % data1 = %'', rec.key, rec.data1;
end loop;
return 0;
end;
'
language 'plpgsql'
;
■カーソル制御 FETCH
・カーソル制御にも色々なパターンがある。動的なものは execute を指定
して利用する。次は、refcursor を使用した例である。
drop function fnctest1();
create function fnctest1() returns int as
'
declare
cu refcursor;
rec record;
begin
open cu for select * from testm;
loop
fetch cu into rec;
if not found then
exit;
end if;
raise debug ''key = % data1 = %'', rec.key, rec.data1;
end loop;
close cu;
return 0;
end;
'
language 'plpgsql'
;
select fnctest1();
DEBUG: key = a001 data1 = 1
DEBUG: key = a011 data1 = 1
DEBUG: key = b002 data1 = 10
DEBUG: key = c003 data1 = 100
・次は、cursor for を使用した例である。
drop function fnctest1();
create function fnctest1() returns int as
'
declare
cu cursor for select * from testm;
rec record;
begin
open cu;
loop
fetch cu into rec;
if not found then
exit;
end if;
raise debug ''key = % data1 = %'', rec.key, rec.data1;
end loop;
close cu;
return 0;
end;
'
language 'plpgsql'
;
・次は、cursor is で、カーソルパラメタを使用した例である。
drop function fnctest1();
create function fnctest1() returns int as
'
declare
cu cursor (sel varchar) is select * from testm where key like sel || ''%'';
rec record;
begin
open cu(''a'');
loop
fetch cu into rec;
if not found then
exit;
end if;
raise debug ''key = % data1 = %'', rec.key, rec.data1;
end loop;
close cu;
return 0;
end;
'
language 'plpgsql'
;
・次は、カーソルで動的 SQL を使用した例である。
drop function fnctest1();
create function fnctest1() returns int as
'
declare
cu refcursor;
rec record;
s varchar(20) := ''testm'';
begin
open cu for execute ''select * from '' || s;
loop
fetch cu into rec;
if not found then
exit;
end if;
raise debug ''key = % data1 = %'', rec.key, rec.data1;
end loop;
close cu;
return 0;
end;
'
language 'plpgsql'
;
■PostgreSQL 編、JAVA Servlet、JSP 編資料
■MySQL 編資料
■SQL 基礎編資料
■SQL 基礎実地編資料
■SQL チューニング編資料
■Oracle PL/SQL 編資料
Copyright (C) 1999-2024 Y.SAK