![]() | Products |
| Home » Technical Support » DBISAM Technical Support » Product Manuals » DBISAM Version 4 Manual for RAD Studio XE (Delphi) » Using DBISAM » Cached Updates |
var
TablesList: TStrings;
begin
TablesList:=TStringList.Create;
try
with MyTable do
begin
TablesList.Add(TableName);
Database.StartTransaction(TablesList);
try
ApplyCachedUpdates;
Database.Commit;
except
Database.Rollback;
raise;
end;
finally
TablesList.Free;
end;
end;procedure TMyForm.MyTableCachedUpdateError(Sender: TObject;
CurrentRecord: TDBISAMRecord; E: Exception;
UpdateType: TUpdateType; var Action: TUpdateAction);
begin
Action:=uaFail;
if (E is EDBISAMEngineError) then
begin
if (EDBISAMEngineError(E).ErrorCode=DBISAM_RECLOCKFAILED) then
Action:=uaRetry;
end;
end;This web page was last updated on Tuesday, September 16, 2025 at 04:56 PM | Privacy Policy © 2025 Elevate Software, Inc. All Rights Reserved Questions or comments ? |

