para no dejar duplicar registros en InterBase

[kinobi]

Hola,

Posteado originalmente por digital
una duda.
las exception declaradas en la Base de datos se puede utilizar en el Ejemplo. que pones.

no a través del código de error. Para el caso de excepciones InterBase (CREATE EXCEPTION ....) la clase de excepciones EIBError recibe un código de error común para todas ellas, el valor 335544517 (si utilizas IBX tienes una constante definida para ese valor en la unit "IBErrorCodes.pas"; la constante es: "isc_except"). Por tanto no podrás discriminar entre excepciones utilizando el código de error enviado por el servidor. Pero sí puedes hacerlo a través del mensaje que devuelve, ya que es el mensaje de la excepción InterBase.

Por cierto, el código que puse anteriormente tiene un error. El código correcto es ...

  try 
    ...
    // intento de envío de actualización al servidor
    MiDataset.Post;
    ...
  except
    on E:EIBError do // error InterBase
    begin
      if E.IBErrorCode = isc_unique_key_violation 
// la constante isc_unique_key_violation 
// está definida en la unit IBErrorCodes (IBX)
        ...
        ShowMessage('Clave duplicada   ...'); 
// sustituir ShowMessage por el procesamiento que se desee
        ...
    end;    
  else Raise; // no es error InterBase
  end;

Para el caso de utilizar las cadenas de los mensajes de error de las excepciones InterBase ...

  try 
    ...
    // intento de envío de actualización al servidor
    MiDataset.Post;
    ...
  except
    on E:EIBError do // error InterBase
    begin
      if E.Message = <mensaje_excepción_InterBase>
        ...
        ShowMessage(E.Message);
        ...
    end;    
  else Raise; // no es error InterBase
  end;

Saludos.