Control Errores en Firebird

[[Héctor Randolph]]

Te pongo un ejemplo, este código lo escribes en el evento OnPostError de tu tabla que es donde se detectarán los errores de registros duplicados.

Código Delphi [-]
procedure TForm1.Table1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  if EIbInterbaseError(E).IBErrorCode=isc_unique_key_violation then
  begin
     ShowMessage('Registro duplicado');
     Action:=daAbort;
  end;
end;

En este caso el mensaje se muestra si se produce un error de tipo isc_unique_key_violation, existen otras constantes definidas para controlar el resto de los errores.

Saludos