Problem with Custom Update ( when CachedUpdates = true )

[z@ny]

Hi Ikar,

I use demo project :MySQL Data Access Demo - Cached Updates & Transaction Control.
Everything is good, but event OnUpdateRecord don't working properly.
When i set property UpdateAction to "uaApplied" , record don't update to MySQL server...

uaAbort working OK.
uaFail working OK.
uaRetry working OK.
uaSkip working OK.
uaApplied failed, don't update record to MySQL server (MySQL Server 4.1) ...

Examples:

In demo project:

procedure TfmMain.MyQueryUpdateRecord(DataSet: TDataSet;
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
...
UpdateAction:= TUpdateAction(fmUpdateAction.rgAction.ItemIndex); ...PROBLEM WITH uaApplied
end;

In Myproject:

procedure TFormMain.MyQueryUpdateRecord(DataSet: TDataSet;
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
...
UpdateAction:= TUpdateAction(uaApplied); // or UpdateAction:= uaApplied; ...PROBLEM WITH uaApplied
end;

I need to solve this problem. Thanks

[Ikar]

If you handle the OnUpdateRecord event, the default update actions are not performed. You should make changes manually. Something like this:

Code: Select all

MyCommand1.SQL.Text := 'UPDATE SomeTable ... ';
MyCommand1.Execute();

Use this method only if functionality of UpdateSQL is insufficient. See MyDAC Help for more information.