Lazarus，无法使DB Update运行。 如何预览正在提交的内容？

Question

嗨，我有一个使用TMySQL51Connection，TSQLTransaction和TSQLQuery模块的表单设置，它从数据库中检索信息没有问题，但是我在更新时遇到了问题。

数据库很大，因此我仅从第一行开始，一旦它们开始工作，我将扩展查询。

我的TSQLQuery.UpdateSQL如下

UPDATE table SET
ContactFirst = :ContactFirst,
ContactSur = :ContactSur
WHERE AccountID = :AccountID

然后我的表单中有一个按钮，onCLick事件包含：

begin
    accSelect.Edit;
    accSelect.Post;
    accSelect.ApplyUpdates;
    dbTransaction.CommitRetaining;
    sqlbl1.Caption := accSelect.UpdateSQL;
end;

单击按钮对于DB而言完全没有任何作用，它不会生成错误消息，只是更新了sqlbl1的标题。 无论如何，是否可以预览Lazarus发送到数据库的内容（包括值），以便我找出问题所在？

我尝试将日志记录事件添加到SQLConnection，但无法弄清楚如何使其生成日志。

Answer 1

根据我的经验， Edit ， Post和ApplyUpdates方法与TClientDataSet结合使用。 在这种情况下，您只需将新值分配给CDS中的字段（导航到要编辑的记录后 ），然后发布这些更改（不需要Update SQL语句）。 像这样

MyCDS.Edit;
MyCDS.FieldByName('ContactFirst').Value := sContactFirstName;
MyCDS.FieldByName('ContactSur').Value := sContactSurname;
MyCDS.Post;
MyCDS.ApplyUpdates;

或者，您可以使用Query组件，将UPDATE SQL写入SQL属性，然后使用ExecSQL或已为该组件实现的任何方法（有许多数据库访问组件，每个组件都有自己的特质）

这是我头上的一些代码。 请原谅，但我对Lazarus的细节不熟悉-它基本上是Delphi代码。

MySQLQuery.SQL.Clear;
MySQLQuery.SQL := 'UPDATE MyTable 
                   SET    ContactFirst = :ContactFirst,
                          ContactSur = :ContactSur
                   WHERE AccountID = :AccountID';
MySQLQuery.Params.ParamByName('ContactFirst').Value := sContactFirstName;
MySQLQuery.Params.ParamByName('ContactSur').Value := sContactSurname;
MySQLQuery.Params.ParamByName('AccountID').Value := iAccountID;
try
  MySQLQuery.ExecSQL;
  ShowMessage('Update succeeded');
except on e: Exception do
  ShowMessage(e.Message);
end;

因此，可能您最终只使用了这两种方法的一半，而没有一个完全使用。