TDataSetProvider X TMyQuery

[RNOVAK]

(My question is similar to question 2 on http://forums.devart.com/viewtopic.php?t=21443)

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;

To intercept and see RowsAffected I am doing:
on MyDataSetProvider1.AfterApplyUpdates, p example:

Code: Select all

ShowMessage(IntToStr(TMyQuery((Sender as TDataSetProvider).DataSet).RowsAffected));

but RowsAffected returning '-1' always.

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;

[ViktorV]

As you use TClientDataset, TDataSetProvider makes all changes. Not TMyQuery.
TMyQuery doesn't change, therefore RowsAffected return '-1'.

You can set the TMyDataSetProvider.ResolveToDataSet property to True.
Then TMyQuery will make all changes and RowsAffected will return a correct value.

[RNOVAK]

Thank You !
Works fine