Board index » delphi » Invalid transaction Object
Mikael
Delphi Developer |
Invalid transaction Object2008-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; |