ApplyUpdatesができない (ID:14371)

名前

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

本文

何時もお世話になります。
画面に、TQuery,UpdateSQL,Edit1,Edit2、Buttonを配置、Buttonを押すとアップデートを実行するように、以下のコードを記述しました。2点ほど、わからず、困っています。どなたかご教示ください。
Del6Pro,XpPro,BDEです。

UpDateSQL文は、以下の通りです。
update "User3.db"
set
  Memo03 = :Memo03
where
  Memo03 = :OLD_Memo03
＊＊ここでひとつ疑問点、
  ’User3.db：項目名を決定できませんでした。’警告文：

以下記述したコード
procedure TFormSub.Button1Click(Sender: TObject);
 var S1,S2,S3 : String; 
 begin
 try
   DMSyaken.SyakenMainQuery.DisableControls;
   DMSyaken.SyakenMainQuery.Close;
 S1 := Edit1.Text;
 S2 := Edit2.Text;
   DMSyaken.SyakenMainQuery.Open;
   DMSyaken.SyakenMainQuery.First;
   while not DMSyaken.SyakenMainQuery.Eof do
 begin
   DMSyaken.SyakenMainQuery.Edit;
  if DMSyaken.SyakenMainQuery.FieldByName('Memo03').Text <> '' then
  begin
   S3 := DMSyaken.SyakenMainQuery.FieldbyName('Memo03').AsString;
   S4 := StringReplace(S3,S1,S2,[rfReplaceAll]);
   DMSyaken.SyakenMainQuery.FieldByName('Memo03').Text := S4;
    DMSyaken.SyakenMainQuery.Post;
    DMSyaken.SyakenMainQuery.Next;
   end
  else
   DMSyaken.SyakenMainQuery.Next;
 end;
    DMSyaken.SyakenMainQuery.ApplyUpdates;
  finally
      DMSyaken.SyakenMainQuery.EnableControls;
  end;

プログラムが暴走してしまう。

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

戻る