ApplyUpdatesができない (ID:14377)

名前

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

本文

//何かDBが最初と違っていますね？
HOtaさん、アドバイス色々ありがとうございます。色々試行錯誤している中での質問ですので、はずしていることもあるかもしれません。何せ、初心者の初心者なので。

//UpdateSQLはどのようになっていますか？
UpdateSQL1のSQL文は、以下の通りです。
update "User3.db"
set
  Memo03 = :Memo03
where
  UserId = :OLD_UserId

//更新するレコードが特定できないと、
//[項目名を決定できませんでした。]の表示が出ます。
この問題は、解決できました。

色々、やって最終的には以下のコードに変更しましたが、今度は新しいエラーメッセージ
"テーブルの数が多すぎます.User.table3.db"が出てしまいます。何か、あり地獄に踏み込んだようで、めげそうです。解決策をご教示願います。

procedure TFormSub.Button1Click(Sender: TObject);
 var S1,S2,S3,S4,S5 : String; //user0,user3のテーブルのmemo03項目を同時に変換するため
 begin
 try
//画面のちらつきをなくす目的。
   DMSyaken.SyakenMainQuery1.DisableControls;
   DMSyaken.SyakenMainQuery1.Close;
 S1 := Edit1.Text;
 S2 := Edit2.Text;
   DMSyaken.SyakenMainQuery1.Open;
   DMSyaken.SyakenMainQuery1.First;
   while not DMSyaken.SyakenMainQuery1.Eof do
 begin
    DMSyaken.SyakenMainQuery1.Edit;
  if DMSyaken.SyakenMainQuery1.FieldByName('Memo03').Text <> '' then
   with DMSyaken.SyakenMainQuery1 do
   begin
   S3 := DMSyaken.SyakenMainQuery1.Fields[14].Text;
   S5 := DMSyaken.SyakenMainQuery1.Fields[50].Text;
   S4 := StringReplace(S3,S1,S2,[rfReplaceAll]);
   S3 := S4;
   S5 := S4;
    DMSyaken.SyakenMainQuery1.Post;
    DMSyaken.SyakenMainQuery1.Next;
   end
  else
   DMSyaken.SyakenMainQuery1.Next;
 end;

finally
      DMSyaken.SyakenMainQuery1.EnableControls;
      ShowMessage('変換が終わりました');
     DMSyaken.DBSyaken.ApplyUpdates([DMSyaken.SyakenMainQuery1]);
  end;
 end;

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

戻る