オラクルのノーマルカーソル、暗黙のカーソル、パラメータ付きカーソル

管理者 · 掲載地 2015/03/19 10:53:06

Stuinfoから*を選択してください;
--暗黙のカーソル
開始
dbms_output.put_line('Before-query:'||SQL%rowCount);
更新 stuinfo set stusex = 'female';
dbms_output.put_line('After query:'||SQL%rowCount);
終わり;

--明示的なカーソル
--1. 共通
宣言
カーソルMyCur1はstuinfoから*選択; --カーソルを定義する
--v_id stuinfo.stuid%type;
--v_name stuinfo.stuname%type;
--v_sex stuinfo.stusex%type;
--v_bir stuinfo.stubir%type;
v_row stuinfo%rowtype;
開始
MyCur1を開いてください; --カーソルを開けます
ループ
--mycur1をv_id,v_name,v_sex,v_birに取り込む; --カーソルを下に動かして読み取り値を変数に入力します
Fetch MyCur1をv_rowに取り込みます。 --カーソルを読みます
mycur1%notfound;
--dbms_output.put_line('id:'||v_id||'、名前:'||v_name||'、性別:'||v_sex||' 誕生日:'||v_bir); --出力結果
dbms_output.put_line('id:'||v_row.stuid||'、名前:'||v_row.stuname||'、性別:'||v_row.stusex||' 誕生日:'||v_row.stubir);
エンドループ;
閉じるmycur1; ――カーソルを消して
終わり;

--2. パラメータを持つ韻律化
宣言
カーソル mycur1(v_sex stuinfo.stusex%type)は、stusex = v_sex の stuinfo から * を選択します。 --カーソルを定義する
v_row stuinfo%rowtype;
開始
mycur1('&gender')を開きます。 --カーソルを開けます
ループ
Fetch MyCur1をv_rowに取り込みます。 --カーソルを読みます
mycur1%notfound;
dbms_output.put_line('id:'||v_row.stuid||'、名前:'||v_row.stuname||'、性別:'||v_row.stusex||' 誕生日:'||v_row.stubir);
エンドループ;
閉じるmycur1; ――カーソルを消して
終わり;

--3. 円形カーソル
宣言
カーソルMyCur1はstuinfoから*選択; --カーソルを定義する
開始
mycur1のv_rowのために
ループ
      dbms_output.put_line('id:'||v_row.stuid||'、名前:'||v_row.stuname||'、性別:'||v_row.stusex||' 誕生日:'||v_row.stubir);
エンドループ;
終わり;

--4. カーソルでデータを更新する
宣言
カーソルMyCur1は更新のためにstuinfoから*を選択しています。 --カーソルを定義する
開始
mycur1のv_rowのために
ループ
      もしv_row.stuid = '003'ならば
         mycur1の最新情報のstuinfoから削除してください;
      そうでなければ
         更新 stuinfo set stusex = 'male' where current of mycur1;
      終了時には;
エンドループ;
終わり;

Stuinfoから*を選択してください;
更新:stuinfo set stusex = 'female'(stuid = '002');

--参照カーソル
--1. 弱いタイプ
宣言
タイプのカーネームはリフカーソルです。 --カーソル型を定義します(カーネームは型名です)
mycur1 カーネーム; --
v_sex stuinfo.stusex%type;
v_row stuinfo%rowtype;
v_row2 subinfo%rowtype;
開始
v_sex := 「& 性別」;
もしv_sex = 「男性」ならば
   mycur1を開いて、stuinfoから*を選択し、stusex = 'male';
      ループ
      Fetch MyCur1をv_rowに取り込みます。 --カーソルを読みます
      mycur1%notfound;
      dbms_output.put_line('id:'||v_row.stuid||'、名前:'||v_row.stuname||'、性別:'||v_row.stusex||' 誕生日:'||v_row.stubir);
      エンドループ;
そうでなければ
   MyCur1を開いて、サブ情報から*を選択してください;
   ループ
      Fetch MyCur1 をv_row2に取り込みます。 --カーソルを読みます
      mycur1%notfound;
      エンドループ;
終了時には;
閉じるmycur1; ――カーソルを消して
終わり;
サブ情報から*を選択してください;

--ストロングタイプ
宣言
タイプcurnameはrefカーソルリターンstuinfo%rowtype;
mycur1 カーネーム;
v_sex stuinfo.stusex%type;
v_row stuinfo%rowtype;
開始
v_sex := 「& 性別」;
もしv_sex = 「男性」ならば
   mycur1を開いて、stuinfoから*を選択し、stusex = 'male';
そうでなければ
   mycur1を開いて、stuinfoから*を選択し、stusex = 'female';
終了時には;

ループ
      Fetch MyCur1をv_rowに取り込みます。 --カーソルを読みます
      mycur1%notfound;
      dbms_output.put_line('id:'||v_row.stuid||'、名前:'||v_row.stuname||'、性別:'||v_row.stusex||' 誕生日:'||v_row.stubir);
エンドループ;
閉じるmycur1; ――カーソルを消して
終わり;

莫軒 · 掲載地 2015/03/19 11:21:08

脇に置いておけ

lesson6.rar (920 Bytes, ダウンロード数: 0)

[出典] オラクルのノーマルカーソル、暗黙のカーソル、パラメータ付きカーソル

関連記事

閲覧したセクション