Ver Mensaje Individual
  #2  
Antiguo 27-05-2006
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
 
Registrado: dic 2004
Posts: 882
Reputación: 20
Héctor Randolph Va por buen camino
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
Responder Con Cita