3 respuestas en este tema

[giulichajari]

Tengo un codigo tipico de delphi donde uso una transaccion. Supongamos el caso de agregar un cliente. primero se agregan los datos en la tabla persona. si no se concreta el insert en la tabla cliente, se hara rollback sobre la de persona.

 

O si no se puede asociar un banco a un cheque supongamos, fallara la insercion del cheque y se hara rollback.

 

Pero como podria identificar en estas 2 y en toda situacion que desee cual fue el fallo transaccional y mostrar un mensaje en lenguaje humano.

 

Por ej:

 

Fallo en la transaccion: no hay banco asociado al cheque.

 

osea existe algun manejador para esto?

 

Gracias

[Wilson]

Mira este hilo del 2009, aunque con la actualización del foro veo que se han estropeado algunas cosas, la idea general se entiende y, puedes adaptarlo a tu necesidad.

http://delphiaccess....ror-al-usuario/

 

Saludos.

[Nikolas]

Tengo un codigo tipico de delphi donde uso una transaccion. Supongamos el caso de agregar un cliente. primero se agregan los datos en la tabla persona. si no se concreta el insert en la tabla cliente, se hara rollback sobre la de persona.

 

O si no se puede asociar un banco a un cheque supongamos, fallara la insercion del cheque y se hara rollback.

 

Pero como podria identificar en estas 2 y en toda situacion que desee cual fue el fallo transaccional y mostrar un mensaje en lenguaje humano.

 

Por ej:

 

Fallo en la transaccion: no hay banco asociado al cheque.

 

osea existe algun manejador para esto?

 

Gracias

 

Lo que hago es verificar todos los datos antes de hacer la sentencia SQL.

 

si es un cliente, verifico que no existe y tenga sus datos correctos y completos, similar para el cheque o cualquier dato a insertar.

¿me explico?

[giulichajari]

Lo que hago es verificar todos los datos antes de hacer la sentencia SQL.

 

si es un cliente, verifico que no existe y tenga sus datos correctos y completos, similar para el cheque o cualquier dato a insertar.

¿me explico?

Obvio que te entiendo, pero me parece que a veces es conveniente verificar algunas cosas del lado del server. Aunque se lo puede hacer en tiempo real del lado del cliente. Osea esto se usaria en ambientes mas complejos. Una posible solucion:

delphi

procedure TForm1.Button3Click(Sender: TObject);
var
      iCodigoProducto,iCodigoFactura,iCantidad  : integer;
      fPrecio                                   : Double;
begin
      iCodigoProducto:=StrToInt(edProducto.Text);
      iCodigoFactura:=StrToInt(edFactura.Text);
      iCantidad:=StrToInt(edCantidad.Text);
      fPrecio:=StrToFloat(edPrecio.Text);
 
 
      ZConnection1.StartTransaction;
 
      try
            zDetalle.Insert;
 
            zDetalleProdCodigo.Value:=iCodigoProducto;
            zDetalleFactCodigo.Value:=iCodigoFactura;
            zDetalleCantidad.Value:=iCantidad;
            zDetallePrecio.Value:=fPrecio;
 
            zDetalle.Post;
            ZConnection1.Commit;
      except
            //on E: EZSQLException do   //<--- Ya no uso esta excepcion
            on E:EZDatabaseError do     //<--- Esta esta mejor
            begin
                case E.ErrorCode of
                  1062:                 // Este era el codigo que buscaba
                        begin
                              ShowMessage('Duplicado');     // El mensaje que yo quiera
                        end
                  else
                        ShowMessage('Error codigo: '+IntToStr(E.ErrorCode)+' - '+E.Message);
                end;
                ZConnection1.Rollback;
                zDetalle.Cancel;
 
            end;
 
      end;
 
end;