interbase procedureからSQLCODEを取得するには？

解決

---

delphi7,dbはinterbaseです。
以下のようなinterbaseのprocedure内のSQLCODEを
delphiのほうに取得したいのですが、どのようにこの
procedureを改造したらよろしいでしょうか。

CREATE PROCEDURE ADD_EMP_PROJ (EMP_NO SMALLINT, PROJ_ID CHAR(5))
AS
BEGIN
  BEGIN
   INSERT INTO EMPLOYEE_PROJECT (EMP_NO, PROJ_ID) 
   VALUES (:emp_no, :proj_id); 
   WHEN SQLCODE -530 DO 処理。。;
  END
  SUSPEND;
END ^

編集    削除

---

プロシージャに出力パラメータを定義して、それにセットすれば良いです。
結果の取り出し方は、TQueryコンポーネントとTStoredProcコンポーネント、もしくはIBXのそれらのどれで実行したかによって違いますけど。
但し、エラーの処理はプロシージャ内で行わずにプログラム内で行ったほうが楽ですけど．．．

編集    削除

---

出力パラメータを定義しようとしましたが、
SQLCODEのデータタイプが分かりません。
教えていただけないでしょうか。

編集    削除

---

SQLコードはWHEN句のオプションでしかないので変数のように取り扱い
できません。
例えばSQLコードが-530だったら、出力パラメータに-530をリテラルで
セットするしかないと思います。（パラメータはINTEGERで）
後、出力パラメータがないこのプロシージャでSUSPENDは必要ないです。

編集    削除

---

ありがとうございました。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。