I have TClientDataSet + TDataSetProvider + TMyQuery
I apply Changes as ...
Code: Select all
MyClientDataSet1.Open; ...
MyClientDataSet1.Delete; ...
...
MyConn.StartTransaction;
MyDataSetProvider1.ApplyUpdates(MyClientDataSet1.Delta, 0, myTransactionErrorCount);
...
here I want to know RowsAffected but not working...
(if I have at least 1 deleted record so must shows 1 record affected)
...
MyConn.Commit and MergeChangeLog to all ClientDataSets or Rollback all;
on MyDataSetProvider1.AfterApplyUpdates, p example:
Code: Select all
ShowMessage(IntToStr(TMyQuery((Sender as TDataSetProvider).DataSet).RowsAffected));
How to use this way with TMyQuery ?
Well, is possible to do this way (with 'SELECT ROW_COUNT')
...
Code: Select all
MyConn.StartTransaction;
MyDataSetProvider1.ApplyUpdates(MyClientDataSet1.Delta, 0, myTransactionErrorCount);
qu.SQL.Text := 'SELECT ROW_COUNT();';
qu.Open;
myAffectedRows := qu.Fields[0].AsString;
qu.Close;
...
MyConn.Commit and MergeChangeLog to all ClientDataSets or Rollback all;