Ver Mensaje Individual
  #1  
Antiguo 08-03-2008
gorsan gorsan is offline
Miembro
 
Registrado: jun 2003
Ubicación: Alcala de Henares (Madrid)
Posts: 87
Reputación: 21
gorsan Va por buen camino
Control de excepciones

Hola a todos.
Aunque, creo, que lo que les voy a plantear es algo muy simple para la mayoria, para mi es complejo porque lo desconozco pero me encantaria poder manejar bien estas situaciones.

Trabajo con IBX6 y Delphi 7.
En el diseño de la base de datos tengo definidas algunas excepciones:
Código SQL [-]
CREATE EXCEPTION "MAL_DNI" 'DNI incorrecto. Debe estar comprendido entre 1 y 99999999.';
CREATE EXCEPTION "MAL_N_IDEN" 'Número incorrecto. Debe estar comprendido entre 1 y 99.';
entre otras.
Mi pregunta es ¿como lanzo una excepcion definida en la base de datos desde el código delphi?
Hasta ahora un codigo parecido al siguiente me bastaba:
Código Delphi [-]
procedure TForm1.BotonGrabarClick(Sender: TObject);
begin
   try
      //las acciones a proteger
   except
      //el lanzamiento de la excepcion en caso de error
     ShowMessage('Asignación incorrecta o repetida.');
     raise;
   end;
end;
Pero cuando en la tabla donde se añade el nuevo registro hay varios campos con la restriccion UNIQUE, necesito saber:
1 cual es el que da el error para lanzar una u otra
2 como lanzo las excepciones definidas por mi en la base de datos.

Muchas gracias por su tiempo.
Responder Con Cita