BatchLongTran (CM)
De Wiki1000
(Différences entre les versions)
(Nouvelle page : <source lang='delphi'>procedure BatchLongTran;</source> Cette procédure valide et transmet les objets en transaction au serveur SQL si le nombre d'objet est supérieur ou égale à...) |
|||
| Ligne 17 : | Ligne 17 : | ||
begin | begin | ||
doProcessItem(idx); | doProcessItem(idx); | ||
| − | ClassManager.BatchLongTran; | + | if idx mod 100=0 then ClassManager.BatchLongTran; |
end; | end; | ||
ClassManager.CommitLongTran; | ClassManager.CommitLongTran; | ||
| Ligne 27 : | Ligne 27 : | ||
</source> | </source> | ||
| − | Voir aussi | + | Voir aussi : |
| + | * [[BeginLongTran (CM)|BeginLongTran]] | ||
{{Footer|Gestion des transactions (CM)}} | {{Footer|Gestion des transactions (CM)}} | ||
[[category:ClassManager]] | [[category:ClassManager]] | ||
[[category:CMT]] | [[category:CMT]] | ||
Version du 8 janvier 2010 à 13:41
procedure BatchLongTran;
Cette procédure valide et transmet les objets en transaction au serveur SQL si le nombre d'objet est supérieur ou égale à BatchSize de la transaction.
| Pas de paramètre |
Exemple
var idx:Integer; begin ClassManager.BeginLonTran(100,'MaClass'); try for idx:=0 to VeryBigInt do begin doProcessItem(idx); if idx mod 100=0 then ClassManager.BatchLongTran; end; ClassManager.CommitLongTran; except ClassManager.RollBackLongTran; raise; end; end;
Voir aussi :
