No atrapa la excepcion

[[egostar]]

Empezado por analia1979

hola a todos...

Tengo un codigo con try except que no esta tomando la excepcion y la maneja el handler interno cuando lo ejecuto desde el IDE de delphi.

Si lo ejecuto fuera del ide no hace nada.

Si alguien me puede ayudar.. en que estoy fallando, mil gracias..

Hola, trata con esto

Código Delphi [-]
if MessageBox(Handle, PChar('Desea Eliminar'), PChar('Confirmacion'), $00000024) = IDYES then
  begin
    try
      TClientDataSet(dsBase.DataSet).Delete;
      TClientDataSet(dsBase.DataSet).ApplyUpdates(0);
    except
      ShowMessage('Ese registro está relacionado con otras tablas');
    end;
  end;
end;

Salud OS

[[Al González]]

¡Hola a todos!

Analia1979:

Estás creando y elevando una excepción en la sección Except de un bloque Try, lo cual es particularmente raro. El acercamiento que propone Egostar es más acertado, genéricamente hablando.

Pero tratándose del método TClientDataSet.ApplyUpdates, no esperes que las excepciones por errores en el servidor lleguen a ese punto del código. El método ApplyUpdates las atrapa y las canaliza al evento OnReconcileError. Es en él donde puedes mostrar el mensaje al usuario.

Por otro lado, no es del todo confiable asumir que cualquier error después de intentar eliminar un registro, se deba a que éste se encuentre relacionado con otra tabla. Puede haber más causas. Aunque, si no quieres complicarte, simplemente podrías cambiar el mensaje por "No pudo eliminarse el registro. Probablemente hay otros registros de la base de datos que están relacionados con él".

Por favor, no dejes de retroalimentar este hilo con tus avances o en caso de tener más dudas.

Un abrazo atrapado.

Al González.

[analia1979]

Hola a todos!!..

Muchas gracias a todos los que acudieron a mi problema.
Al Gonzales use tu solucion y es verdad lo que dices, use el evento onReconcileError para mostrar el mensaje al usuario.
Es verdad tb que no todo errror al eliminar se deba a que esta relacionada con otra tabla, voy a intentar ver como puedo hacer para asegurarme que ese sea el error.., cualquier duda recurro a ustedes.
Muchas gracias...
Saludos..