FireDAC.Comp.Client.TFDCustomTransaction.Commit
Delphi
procedure Commit;
C++
void __fastcall Commit(void);
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
procedure function |
public | FireDAC.Comp.Client.pas FireDAC.Comp.Client.hpp |
FireDAC.Comp.Client | TFDCustomTransaction |
Description
Enregistre de façon permanente les modifications apportées aux données dans la transaction en cours, et met facultativement fin aux transactions en cours.
Appelez Commit pour enregistrer de façon permanente les modifications, comme les commandes INSERT / UPDATE / DELETE, apportées à la base de données lors de la transaction en cours.
Comme FireDAC supporte les transactions imbriquées, la transaction en cours est celle qui a été démarrée par l'appel 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 des transactions imbriquées à l'aide de points de sauvegarde.
Avant d'appeler Commit, une application peut vérifier l'état de la propriété Active. Si une application appelle Commit alors qu'aucune transaction n'est en cours, une exception est déclenchée.
Un appel Commit à InterBase / Firebird va fermer et annuler la préparation de tous les ensembles de données et commandes, associés à cet objet de transaction. Dans d'autres SGBD, un appel invalidera tous les ensembles de résultats actifs (c'est le cas, par exemple, dans MS SQL Server 2005).
Exemple
procedure TForm1.ChangeButtonClick(Sender: TObject);
begin
FDQuery1.Transaction := FDTransaction1;
FDQuery1.SQL.Text := 'update employees set salary = salary * :k where id = :id';
FDTransaction1.StartTransaction;
try
FDQuery1.ExecSQL('', [1.2, 100]);
FDQuery1.ExecSQL('', [1.3, 200]);
FDTransaction1.Commit;
except
FDTransaction1.Rollback;
raise;
end;
end;