FireDAC.Comp.Client.TFDCustomConnection.RollbackRetaining
Delphi
procedure RollbackRetaining;
C++
void __fastcall RollbackRetaining();
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
procedure function |
public | FireDAC.Comp.Client.pas FireDAC.Comp.Client.hpp |
FireDAC.Comp.Client | TFDCustomConnection |
Description
Annule toutes les modifications apportées aux données dans la transaction en cours, sans y mettre fin.
Appelez RollbackRetaining pour annuler toutes les modifications, telles que celles causées par la commande INSERT, UPDATE ou DELETE, effectuées dans la transaction en cours dans la base de données.
Comme FireDAC supporte les transactions imbriquées, la transaction en cours est celle qui a été démarrée par l'appel de StartTransaction le plus récent. Si la base de données ne supporte pas les transactions imbriquées, comme la plupart des SGBD, FireDAC émule alors des transactions imbriquées à l'aide de points de sauvegarde.
L'appel de RollbackRetaining est le raccourci de Transaction.RollbackRetaining, si la propriété Transaction est assignée. Sinon, RollbackRetaining opère sur la transaction de connexion par défaut. Avant d'appeler RollbackRetaining, une application peut vérifier le statut de la propriété InTransaction. Si une application appelle RollbackRetaining alors qu'il n'existe pas de transaction en cours, une exception est déclenchée. RollbackRetaining utilise les fonctionnalités natives sur Interbase et Firebird. Sur d'autres SGBD, la méthode correspond à l'appel de Rollback, puis de StartTransaction.
Exemple
procedure TForm1.DoThatButtonClick(Sender: TObject);
begin
FDConnection1.StartTransaction;
try
if CustomerQuery.Locate('ID', [100]) then begin
CustomerQuery.Edit;
CustomerQuery.FieldByName('status').AsString := 'top';
CustomerQuery.Post;
FDConnection1.ExecSQL('delete from debt where CustID = 100');
FDConnection1.CommitRetaining;
end;
except
FDConnection1.RollbackRetaining;
raise;
end;
end;