|
Yo lo hago de este modo:
// El post, lo protejo con una excepcion
try
DM.Tb.Post;
except
on E: EDBEngineError do // Ctrl de la Key Violation
begin
// Entro aqui pq se ha producido un error de clave duplicada
MessageDlg ('Posible clave DUPLICADA', mtError, [mbYes], 0);
end
else
begin
MessageDlg ('Error GENERAL en la Base de datos',[mbYes], 0);
end
end; // Del try
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí.
|