MyConnectionConnectionLost - inserts last records when rmReconnect
Posted: Wed 05 Jun 2019 08:05
Hello,
Although I use the following event, the program still inserts last records again at reconnect.
What can I do to prevent it? Thank you!
procedure TAdatForm.MyConnectionConnectionLost(Sender: TObject;
Component: TComponent; ConnLostCause: TConnLostCause;
var RetryMode: TRetryMode);
begin
RetryMode := rmReconnect; // rmReconnect,rmReconnectExecute,rmRaise
end;
Although I use the following event, the program still inserts last records again at reconnect.
What can I do to prevent it? Thank you!
procedure TAdatForm.MyConnectionConnectionLost(Sender: TObject;
Component: TComponent; ConnLostCause: TConnLostCause;
var RetryMode: TRetryMode);
begin
RetryMode := rmReconnect; // rmReconnect,rmReconnectExecute,rmRaise
end;