ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/client/FBAttachment.pas
(Generate patch)

Comparing ibx/branches/udr/client/FBAttachment.pas (file contents):
Revision 387 by tony, Wed Jan 19 13:34:42 2022 UTC vs.
Revision 390 by tony, Sat Jan 22 16:15:12 2022 UTC

# Line 1099 | Line 1099 | begin
1099    tr := StartTransaction(TPB,taCommit);
1100    try
1101      ExecImmediate(tr,sql,aSQLDialect);
1102 +    tr.Commit;
1103    except
1104      tr.Rollback(true);
1105      raise;
# Line 1122 | Line 1123 | begin
1123    tr := StartTransaction(TPB,taCommit);
1124    try
1125      Result := ExecuteSQL(tr,sql,SQLDialect,params);
1126 +    tr.CommitRetaining;
1127    except
1128      tr.Rollback(true);
1129      raise;
# Line 1245 | 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.CommitRetaining;
1251    except
1252      tr.Rollback(true);
1253      raise;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines