Invalid transaction Object


2008-05-09 03:09:30 PM
delphi34
RAD Studio 2007
DBExpress DBX4
What do I do wrong?
Mikael
1. Invalid transaction Object
DBXTrans:= SQLConnection1.BeginTransaction(TDBXIsolations.ReadCommitted);
Try
Pot:= IncDay(now, (KeepDays - (2 * KeepDays)));
sPOT:=FormatDateTime('c', POT);
WriteReport('Delete rows older then: ' + sPOT,4,4);
SQLquery1.Close;
SQLquery1.ParamByName('P_POT').AsString := sPOT;
AffectedRows:=SQLquery1.ExecSQL(False);
WriteReport('Number of deleted rows was: ' +
IntToStr(AffectedRows),2,4);
SQLConnection1.RollBackFreeAndNil(DBXTrans);
<<-------------------------------- Invalid transaction Object
// SQLConnection1.CommitFreeAndNil(DBXTrans);
Except
on e:exception do begin
// SQLConnection1.RollBackFreeAndNil(DBXTrans);
ErrorMessage:=ErrorMessage + 'e: ' + e.message;
Raise;
end;
End;