resultado de una consulta

[cloayza]

Empezado por Yulka

mi problema es el siguiente , tengo que validar que si "elimino" una clinica esta no se encuentre ya utilizada.

Y para eso no se debe utilizar la integridad referencial?

Creo que es un problema de diseño de la base de datos...

Para que inventar la rueda!!!

Saludos

[Yulka]

Si , tenes razón Cloayza , ya tengo bien la integridad referencial solo me queda capturar el error para escribir un mensaje.
Gracias

[Yulka]

Hola, este es mi procedimiento

Código Delphi [-]
procedure TfrmTAlta.cmdEliminarClick(Sender: TObject);
begin
   try
    if (MessageDlg('¿Desea eliminar el Tipo de Alta?', mtWarning,[mbYes, mbNo],0) = mrYes) then
      DMABMTablas.ABMTablas.TTalta.Delete;
   except
   on EDatabaseError do
      MessageDlg ('Error en el acceso a la Base de Datos',mtError,[mbOK],0);
   on E: Exception do
      MessageDlg('Error en ' + E.ClassName + ': '+ #10 + E.Message,mtError,[mbOK],0);
   on EAccessViolation do
      MessageDlg ('Error en el acceso a la Base de Datos2',mtError,[mbOK],0);
   end;
    
end;

pero no logro capturar el error de "Violation foreign key......." para mostrar un cartel de error
Gracias