TAstaServerSocket.OnExecRowsAffected

Applies to
TAstaServerSocket

Declaration
type TAstaServerRowsAffectedEvent = procedure(Sender: TObject;

  ClientSocket: TCustomWinSocket; AQuery: TComponent;

  var RowsAffected: Integer) of object;

property OnExecRowsAffected: TAstaServerRowsAffectedEvent;

Description
Previously ASTA users had to code the OnExecSQLParamList of the AstaServerSocket to send back a custom message to the AstaClientSocket to retrieve this information. See also TAstaClientDataSet.RowsAffected.

Example

procedure TForm1.AstaServerSocket1ExecRowsAffected(Sender: TObject;

  ClientSocket: TCustomWinSocket; AQuery: TComponent;

  var RowsAffected: Integer);

begin

  try

    RowsAffected := TQuery(AQuery).RowsAffected;

  except

    LogException(ClientSocket, Exception(ExceptObject).Message, True);

  end;

end;