Hallo,
ich habe das so gelöst, dass ich mir eine Funktion geschrieben habe
etwa so
Delphi-Quellcode:
function jrd_StartTransaction: Boolean;
var
bError: Boolean;
begin
Result:= False;
bError:= True;
try
IBDB.StartTransaction;
bError:= False;
Result:= True;
except
end;
if bError then
begin
IBDB.Connected:= False;
IBDB.Connected:= True;
IBDB.StartTransaction;
Result:= True;
end;
end;
Diese Funktion wird im Code aufgerufen, statt direkt auf die
DB-Komponente zuzugreifen.
Heiko