SAK �}�‘ŠÙ

SAK Streets ƒ�ƒCƒ“ƒXƒgƒŠ�[ƒg �}�‘ŠÙ�EƒJƒtƒF ˆê—— SAK Streets ŒŸ�õ
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | ƒtƒŠ�[ƒ\ƒtƒg |

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 •ÒŽ‘—¿
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | ƒtƒŠ�[ƒ\ƒtƒg |

SAK Streets ƒ�ƒCƒ“ƒXƒgƒŠ�[ƒg �}�‘ŠÙ�EƒJƒtƒF ˆê—— SAK Streets ŒŸ�õ



Copyright (C) 1999-2018 Y.SAK