パラメータが見つかりません (ID：151496)

名前

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

本文

お世話になります。
Delphi 10.1 Belrin update2
Oracle database
以上の環境で開発をしています。
簡単なデータベースアクセス構文を作ったのですが
ボタンのクリックイベントが一回目は正常に実行するのですが
続けて2回目をクリックすると「ADOQuery1のparam1パラメータが見つかりません」というエラーが発生します。
以下が構文です。
どこが原因でしょうか。
***************************************************
procedure TfrmSeizoGenka.Button1Click(Sender: TObject);
var
  SQL1 : String;
begin
  SQL1 := 'SELECT n.JUCYUNO_H, n.JUCYUNO_D, h.KISYU, d.HINBAN, d.SEIBAN, '    //0-4
        + 'n.KOTEI_CD, n.SYAIN_CODE, n.SAGYO_TIME, n.SAGYO_TIME * k.CHAGE '   //5-8
        + 'FROM TR_JUCYU_H h, TR_JUCYU_D d, TR_NIPPO n, TM_KOTEI k '
        + 'WHERE n.JUCYUNO_H = h.JUCYUNO_H(+) '
        + 'AND n.JUCYUNO_H = d.JUCYUNO_H(+) '
        + 'AND n.JUCYUNO_D = d.JUCYUNO_D(+) '
        + 'AND h.REC_KBN = 0 '
        + 'AND d.REC_KBN = 0 '
        + 'AND n.KOTEI_CD = k.KOTEI_CODE(+)';

with ADOQuery1 do
  begin
    Close;

if (Trim(jNoW.Text) = '') then
      parameters.ParamByName('param1').Value := '%'
    else
      parameters.ParamByName('param1').Value := '%' + Trim(jNoW.Text) + '%';

if (Trim(hinbanW.Text) = '') then
      parameters.ParamByName('param2').Value := '%'
    else
      parameters.ParamByName('param2').Value := '%' + Trim(hinbanW.Text) + '%';

if (Trim(seibanW.Text) = '') then
      parameters.ParamByName('param3').Value := '%'
    else
      parameters.ParamByName('param3').Value := '%' + Trim(seibanW.Text) + '%';

if (Trim(custNmW.Text) = '') then
      parameters.ParamByName('param4').Value := '%'
    else
      parameters.ParamByName('param4').Value := '%' + Trim(custNmW.Text) + '%';

if (Trim(kisyuW.Text) = '') then
      parameters.ParamByName('param5').Value := '%'
    else
      parameters.ParamByName('param5').Value := '%' + Trim(kisyuW.Text) + '%';

if (Trim(bikoW.Text) = '') then
      parameters.ParamByName('param6').Value := '%'
    else
      parameters.ParamByName('param6').Value := '%' + Trim(bikoW.Text) + '%';

SQL.Text := SQL1;
    Open;

with DataSource1.DataSet do
    begin
      First;

if RecordCount > 0 then
      begin

with ADOCommand2 do
        begin
          CommandText := 'DELETE FROM TEMP_SEIZOGENKA';
          CommandType := cmdText;
          Execute;

CommandText := 'COMMIT';
          CommandType := cmdText;
          Execute;
        end;

end;
   end;
  end;
end;

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

戻る