excepciones!!!!!
hola tengo un problema con excepciones... lo que pasa es ke quiero atrapar 2 excepciones una es para cuando el usuario quiere insertar un registro con la misma clave.... y otra cuando borro me marca un error pero si hace los cambio en mi bd...
la excepcion de insertar clave duplicada ya sale pero ahora cada vez que kiero modificar o bien borrar mis registros me marca el error de la clave duplicada...
ke es lo que pasa???
bueno el error que me marca cuando borro un registro es "row cannot be located for updating. Some values may have been changed since it was last read" al buscar este error encontre que es el de AspGridInsertError y trato de atraparlo pero siempre entra al de la clave duplicada...si fuera el mismo error como puedo saber cual error ocurrio para mandar el mensaje????
abajo agrego mi codigo por si alguien puede ayudarme...
procedure TForm1.error(Sender: TObject; E: Exception);
begin
if E.ClassNameIs('EConvertError') then
MessageDlg('No que no!!!',mtWarning,[mbYes],0)
else
if E.ClassNameIs('EDataBaseError') then
MessageDlg('Clave duplicada ',mtWarning,[mbYes],0)
else
if E.ClassNameIs('AspGridInsertError')then
MessageDlg('intentando borrar',mtWarning,[mbYes],0);
ADOTable1.Cancel;
end;
gracias y espero ke alguien pueda ayudarme
|