ああ、困ったちゃん
ああ、困ったちゃん
『自称達人』
FROM:めもめも
Date:98/07/13
Ｋ：今年３年目のＰＧ
Ｎ：自分。
Ｔ：あるＳＥ。
一年前、
Ｎ：なんでＤＡＯでシンプルに作らないで、毎回毎回Dynasetで開くの？
マスタひとつ開いて検索するだけなのに？
Ｋ：だって、こんなやり方で今までやってたよ？
Ｎ：そりゃ、Oracleの話でしょう。
それに、ＤＡＯには、ＤＡＯのコーディングがあるってば。
Ｋ：う〜ん、ＰＬ／ＳＱＬならま〜かせて。ＰＬ／ＳＱＬのＫって呼んで。
Ｎ：・・・・
最近、
Ｔ：このストアドプロシージャが遅いんだけど、なぜかわかる？
Ｎ：これって、Ｋさんが作ったやつですよね？
ＫさんってＰＬ／ＳＱＬを自負してるぐらいだから僕が直せないと
思いますよ。
Ｔ：一応見てよ。変だから。
Ｎ：えっ？
Ｔ：あるテーブルに削除一覧が作成されて、それを元に、あるデータを削除
する処理なんだけど、ＶＢで同じことやったらとてつもなく遅いから、
ストアドにしたそうなんだよ。でも、それでも遅いんだよ。
リスト
CREATE OR REPLACE PROCEDURE Delete_tbl()
IS
CURSOR Del_Cur IS
SELECT ID
FROM Delete_List;
BEGIN
FOR C1REC In Del_Cur Loop
DELETE FROM Dat_tbl WHERE ID = C1REC.ID;
End Loop;
END;
Ｎ：・・・・
データは何件ほど・・・・・
Ｔ：多いときは数千件かな・・・
Ｎ：・・・(あいつってば・・・一体なに？)
これでどうです？
ＶＢから、
OraDB.ExecuteSQL "DELETE FROM Dat_tbl " & _
"WHERE ID In (SELECT ID FROM Delete_List)"
Ｎ：これだけでＯＫでは？
Ｔ：おぉ〜、なんでこんなにシンプルになるの？
Ｎ：ＳＱＬって、そういうものです(^_^;)
Ｔ：しかも十分速いじゃん。これでいこっと。
実話です・・・・・
