Oracleで、1度のクエリで一括更新を行いたい
解決環境は
Delphi2010 Pro
Oracle 11gです。
Oracleへは、ADOで接続しています。
条件により、
複数回のUPDATEを行います。
SQL Serverで例にとると
var Query:TADOQuery;
Query.Add('UPDATE Tabele1 SET B = 10 WHERE A = 1;')
Query.Add('UPDATE Tabele1 SET B = 20 WHERE A = 2;')
Query.Add('UPDATE Tabele1 SET B = 30 WHERE A = 3;')
Query.Execute;
か
var sql:string;
sql:='UPDATE Tabele1 SET B = 10 WHERE A = 1;';
sql:=sql+'UPDATE Tabele1 SET B = 20 WHERE A = 2;';
sql:=sql+'UPDATE Tabele1 SET B = 30 WHERE A = 3;';
Query.Add(sql);
Query.Execute;
というような一括更新を行いたいのですが、
Oracleでの作り方がわかりません。
「/」で一文を区分けするようで、
Query.Add('UPDATE Tabele1 SET B = 10 WHERE A = 1');
Query.Add('/');
Query.Add('UPDATE Tabele1 SET B = 20 WHERE A = 2');
Query.Add('/');
Query.Add('UPDATE Tabele1 SET B = 30 WHERE A = 3');
とやってみましたが、やはりダメでした。
プロシージャの追加は事情によりできません。
ご教授いただけましたら、助かります。
宜しくお願いします。
ダメだったとはどのようなエラーが表示されたのでしょうか？
以下のエラーが表示されます。
---------------------------
デバッガ例外通知
---------------------------
プロジェクト Project1.exe は例外クラス EOleException （メッセージ 'ORA-00936: 式がありません。'）を送出しました。
---------------------------
ブレーク(B) 継続(C) ヘルプ
---------------------------
TQueryのコンポーネントを使って
SQLの中に
UPDATE Tabele1 SET B = 10 WHERE A = 1
/
UPDATE Tabele1 SET B = 20 WHERE A = 2
/
UPDATE Tabele1 SET B = 30 WHERE A = 3
を入れて実行してもエラーは表示されますか？
残念ながら、同様の結果でした。
UPDATE Tabele1
SET B = decode(A,1,10,2,20,3,30)
WHERE A in (1,2,3)
ではどうでしょう？
ご教授ありがとうございます。
1万件以上の更新件数でして、
DECODEのパラメータ数の上限は 255らしく、、
今回は使えません。。。。
となると実際のSQLを見ないとわからないですね、
エラー内容はSQL文が間違っているとしか言えない状況なので・・・
そうですかぁ。
UPDATE Tabele1 SET B = 10 WHERE A = 1
の1行だけなら、問題ないのですが、続けて発行したいとなると
難しいのですかね。
1点伝え忘れたことがありました。
「/」は、ObjectBrowserというツール上の話でして、
Delphiからも、同様のことができるかな、と思い質問させていただきました。
SQLはループ処理でaddしてると思うのですが、ループが終了した段階で
SQLの内容をtextで出力して、ObjectBrowserで動かしてみてはどうでしょうか？
動かないのならどこかでSQLが間違っている可能性があります
先ほどの書込みで、
TQueryのコンポーネントを使って
SQLプロパティの中に文を入れて実行して、エラーが出力されてましたが、
同様の文をObjectBrowserにコピー貼り付けして実行すると、
問題なく、2回応答が返ってきます。
UPDATE文自体は、
UPDATE SyohinMst SET Zaiko = 10 WHERE SyohinNo = 1
というシンプルなものです。
ストアドプロシージャはＮＧですが
無記名ストアドプロシージャはダメでしょうか？
例
declare
vCount NUMBER(4) := 0;
begin
UPDATE Tabele1 SET B = 10 WHERE A = 1;
UPDATE Tabele1 SET B = 20 WHERE A = 2;
UPDATE Tabele1 SET B = 30 WHERE A = 3;
end;
nobukoshi802さんありがとうございます。
知識不足ですいませんが、
無記名ストアドプロシージャとは何でしょう？
検索しましたが、それらしきものはなく、
どのようなものか教えて下さい。
よろしくお願いします。
DECODEが無理ならcase文ならいけるのでは？と思いました。
書き方が悪かったですね、無記名ストアドプロシージャ
では無く、無名ストアドプロシージャが一般的でした。
多分、ストアドが利用出来ないのは、Oracleのストアドが読め無い
もしくは、管理したくない場合と思われます。
SQL Plusで、Create Stored〜の部分無しで
declareから始まるSQLを発行して見てください。
それで、ストアドスロシージャが実行されます。
これでOracleのストアド知識も向上するので、がんばってください。
nobukoshi802さんありがとうございます。
ストアドプロシージャに関しては、
あまりまだ作ったことがないので、
登録したくないな、というのはありました。
無名ストアドプロシージャに関しては、
調べまして、登録なしで使えるということはわかりました。
SQL Plus上で実行させてみて、実際に使えましたが、
どうDelphiで反映させればよいのかがわかりません。
TADOStoredProcコンポーネントは、
登録されているプロシージャの実行が、
基本であるという認識なのですが。
あらかじめ、スクリプトファイルを作成しなくても
リアルタイムでDelphi上から実行させたいのですが、
方法をご存知でしたら教えてください。
宜しくお願いします。
yamadaさんが、SQL Plusで実行したSQLをTADOQueryで実行してください。
変数が必要な場合は、declareから開始します。
変数が不要なら、beginから開始します。
初心者さん、
nobukoshi802さん、
ありがとうございました。
上記のnobukoshi802さんの方法解決いたしました。
質問内容的には、わからずじまいですが、
代替の方が応用効きそうなので、
こちらの方を使わせて頂きます。
色々と勉強になりました。
お二方に感謝です。
ありがとうございました！
| ツイート |  |