Cita:
Empezado por rochi
Es decir, antes de hacer un Post, si decido cancelar datos, no tiene sentido hacer RollBack. No veo otros casos....quizás por mi inexperiencia.
|
Como yo entiendo esto que haz dicho es cierto, pero
te puedo poner un ejemplo de como usar las transacciones(ya que no encuentro la forma de explicar en un ejemplo el Rollback sin poner el StartTransaction o incluso el Commit) desde un punto de vista:
Imaginate que necesitas hacer una aplicacion en la que tienes que guardar una tabla maestra(DOC) y una tabla detalle(DOCDET) (estas relacionadas al "Documento" que el usuario esta digitando) y que ademas deba llenar otras dos tablas(CONTA y CONTADET) que estan relacionadas tambien al mismo "Documento" pero en las cuales guardaras información contable....
En dichas tablas deben haber llaves foraneas(Recuerden que es un ejemplo), indicando por ejemplo que el codigo de IVA que se guardara en la tabla CONTADET debe existir en la tabla llamada IVA.
Nota: Podemos extender un poco mas el ejemplo utiizando Tquery's para guardar los registros en las tablas pero temo que esto se puede poner algo Tedioso haciendolo de esa manera, asi que solo usaremos el DataSet.POST simulando que hemos trabajado con un TTable.
Entonces, supongamos que en el Boton Guardar(btGuardar) ponemos el siguiente codigo.
Código Delphi
[-]
procedure TForm1.btnGuardarClick(sender :TObject);
begin
tblDOC.Post;
tblDOCDET.Post;
tblCONTA.Post;
tblCONTADET.Post;
end;
en teoria, eso guardaria correctamente los registros en dichas tablas, pero ¿que sucede si el codigo de IVA que tiene que guardar en la tabla CONTA no existe en la tabla llamada IVA?
R//. - Pues se guardaran solo los registros de la tabla DOC y DOCDET y los de las tablas CONTA y CONTADET no.
- Debido a esto se "Desincronizara" la información que se debe mostrar en posiblemente futuros reportes.
- Mostraria un horrible error de INTEG_### que asustaria a cualquiera (De hecho deberia hacerlo).
El tercer problema tiene una solución muy sencilla, podriamos poner por ejemplo:
Código Delphi
[-]
procedure TForm1.btnGuardarClick(sender :TObject);
begin
try
tblDOC.Post;
tblDOCDET.Post;
tblCONTA.Post;
tblCONTADET.Post;
except
end;
end;
Y listo, no mostraria el temido error, pero ¿ese en realidad es el verdadero problema?
R//. No, el problema real es que debemos cuidar la integridad de nuestra aplicación y garantizar de que se guardaron correctamente los datos o no.
Para eso podriamos utilizar un "Bloque protegido con transacciones", podria ser algo como esto:
Código Delphi
[-]
procedure TForm1.btnGuardarClick(sender :TObject);
begin
DB.StartTransaction; try
tblDOC.Post;
tblDOCDET.Post;
tblCONTA.Post;
tblCONTADET.Post;
DB.Commit; except
DB.RollBack; raise; end;
end;
De esta manera podemos garantizar que todos o ninguno de los datos seran guardados.
Espero me haga entender y que ademas te sirva de algo.