TDataSetProvider X TMyQuery
Posted: Thu 07 Aug 2014 16:56
(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 ...
To intercept and see RowsAffected I am doing:
on MyDataSetProvider1.AfterApplyUpdates, p example:
but RowsAffected returning '-1' always.
How to use this way with TMyQuery ?
Well, is possible to do this way (with 'SELECT ROW_COUNT')
...
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;