transacciones y tdatabase

[DarkBlue]

se supone que con eso se haria pero no lo hace el roll back me tira error de primary key , en fin he leido pero no se como usar el tsession o el tdatabase alguien podria ensenarme esto para lograr hacer un commit y roll back

Código Delphi [-]



  try
     m.conexion.Open;//este es un componente del tipo tadoconnection
     m.conexion.BeginTrans;
     m.consulta.AutoCalcFields:=false;
     m.consulta.SQL.Clear;

     m.consulta.SQL.Add(' insert into servicioscarros (folio) values (567)  ');
     m.consulta.SQL.Add(' insert into servicioscarros (folio) values (7655)  ');

     m.consulta.ExecSQL;
     m.conexion.CommitTrans;

    //updating, deleting or inserting

  except
    on E:Exception do m.conexion.RollbackTrans;
  end;//try
end;

muchas gracias, espero me puedan ayudar que tengan buena suerte