複数項目をSQL文でParamByNameを使って更新するするには？ (ID:35184)

名前

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

本文

いつもお世話になります。
  複数項目をSQL文で更新するコーディングをしています。
  エラーは出ないのですが、データが更新されません。
  ここには書いていませんが、以前ご教授頂いたときは項目が１つの場合で
上手く更新・削除・追加が出来ました。
  同じようにコーディングしたつもりなのですが、複数項目になると動作しません。
  どこか間違っていますのでしょうか？
  どなたかご教授頂けますでしょうか？
--------------------------------------------------------------------------------
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Name_Table');
ADOQuery1.SQL.Add('SET ');
ADOQuery1.SQL.Add('区分名称         = :_区分名称,');
ADOQuery1.SQL.Add('名称№           = :_名称№,');
ADOQuery1.SQL.Add('名称（ふりがな） = :_名称（ふりがな）,');
ADOQuery1.SQL.Add('名称（漢字）     = :_名称（漢字）,');
ADOQuery1.SQL.Add('名称（略称）     = :_名称（略称）,');
ADOQuery1.SQL.Add('備考             = :_備考');
ADOQuery1.SQL.Add('WHERE ');
ADOQuery1.SQL.Add('名称区分         = :_名称区分');
ADOQuery1.SQL.Add('AND');
ADOQuery1.SQL.Add('名称№           = :_名称№');
ADOQuery1.Parameters.ParamByName('_区分名称').Value := Null;
ADOQuery1.Parameters.ParamByName('_名称（ふりがな）').Value := Form2.Edit4.Text;
ADOQuery1.Parameters.ParamByName('_名称（漢字）').Value := Form2.Edit5.Text;
ADOQuery1.Parameters.ParamByName('_名称（略称）').Value := Form2.Edit6.Text;
ADOQuery1.Parameters.ParamByName('_備考').Value         := Form2.Memo2.Text;
ADOQuery1.Parameters.ParamByName('_名称区分').Value     := g2_int_wk;
ADOQuery1.Parameters.ParamByName('_名称№').Value := StrToInt(Form2.Edit3.Text);
ADOQuery1.ExecSQL;
--------------------------------------------------------------------------------

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

戻る