# | Line 1123 | Line 1123 | begin | |
---|---|---|
1123 | tr := StartTransaction(TPB,taCommit); | |
1124 | try | |
1125 | Result := ExecuteSQL(tr,sql,SQLDialect,params); | |
1126 | < | tr.Commit; |
1126 | > | tr.CommitRetaining; |
1127 | except | |
1128 | tr.Rollback(true); | |
1129 | raise; | |
# | Line 1247 | Line 1247 | begin | |
1247 | tr := StartTransaction([isc_tpb_read,isc_tpb_wait,isc_tpb_concurrency],taCommit); | |
1248 | try | |
1249 | Result := OpenCursorAtStart(tr,sql,FSQLDialect,Scrollable,params); | |
1250 | < | tr.Commit; |
1250 | > | tr.CommitRetaining; |
1251 | except | |
1252 | tr.Rollback(true); | |
1253 | raise; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |