SAK �}�‘ŠÙ
SQL Šî‘b•Ò (‚»‚Ì‹ã) PL/SQL declare�Abegin�ADBMS_SQL�Adbms_output
ƒ†�[ƒUŠÖ�”‚É‚·‚é‚قǂłà‚È‚¢ƒVƒXƒeƒ€ŠJ”Žž‚Ì SQL ‚Í�APL/SQL ‚Æ‚·‚邯•Ö—˜
‚©‚à‚µ‚ê‚Ü‚¹‚ñ�B
Oracle ŒÅ—L‚Ì•”•ª‚ª‚ ‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ�BSQL-Server�AMDB ‚ł͒�ˆÓ‚Ì‚±‚Æ�B
�¡Šî–{Œ^
set serveroutput on;
declare
cursor c1 is select * from sak.Žó’�m
where •i”Ô = 'a001' order by Žó’�”Ô�†;
-- rec c1%rowtype;
begin
dbms_output.put_line ('start...');
for rec in c1 loop
dbms_output.put_line (rec.Žó’�”Ô�† || ' ' || rec.•i”Ô);
end loop;
dbms_output.put_line ('end');
exception
when OTHERS then
dbms_output.put_line ('** ƒGƒ‰�[ **');
end;
/
�¡“®“I SQL
declare
tbl in varchar2 default 'sak.test';
cid integer;
begin
cid := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE(cid, 'create table ' || tbl || ' (ƒf�[ƒ^ number(9))', dbms_sql.v7);
DBMS_SQL.CLOSE_CURSOR(cid);
dbms_output.put_line ('end');
exception
when OTHERS then
dbms_output.put_line ('** ƒGƒ‰�[ **');
end;
/
�¡SQL Šî‘b•ÒŽ‘—¿
�¡SQL Šî‘bŽÀ’n•ÒŽ‘—¿
�¡SQL ƒ`ƒ…�[ƒjƒ“ƒO•ÒŽ‘—¿
�¡Oracle PL/SQL •ÒŽ‘—¿
�¡PostgreSQL •Ò�AJAVA Servlet�AJSP •ÒŽ‘—¿
�¡MySQL •ÒŽ‘—¿