掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DelphiからFirebirdのストアドプロシージャを実行するには？ (ID:29927)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
権兵衛さん。こんにちは。 Firebirdのストアドプロシージャを SET TERM !! ; CREATE PROCEDURE GET_ANS (Param1 varchar(10)) RETURNS (ans varchar(20)) AS DECLARE VARIABLE W_ANS varchar(20); BEGIN SELECT ITEM_A FROM TABLE_A WHERE ITEM_B = :Param1 INTO W_ANS; IF (W_ANS IS NULL) THEN BEGIN ans = ''; END ELSE BEGIN ans = W_ANS; END END !! SET TERM ; !! で作成して TSQLStoredProcを使用して var Ans: string; begin SQLStoredProc.StoredProckName := 'GET_ANS'; SQLStoredProc.ParamByName('Param1').AsString := '(キー)'; SQLStoredProc.ExecProc; Ans := SQLStoredProc.ParamByName('ans').AsString; end; で出来たと思います。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.