resultado de una consulta

[Yulka]

perdon, estoy usando delphi 7 con interbase
mi problema es el siguiente , tengo que validar que si "elimino" una clinica esta no se encuentre ya utilizada.

en QCLin : Tibquery

Código SQL [-]
Select * from CIRUGIA where ( CIRLUGAR= :clinica)

Código Delphi [-]
procedure TfrmClinicas.cmdEliminarClick(Sender: TObject);
begin
    try  //recorro la tabla cirugia
      QClin.Open;
      QClin.Prepare;
      if QClin ..... // tengo que evaluar y me tiene que devolver True o Fasle
    if (MessageDlg('¿Desea eliminar la Clinica o Intitución?', mtWarning,[mbYes, mbNo],0) = mrYes) then
      DMABMTablas.ABMTablas.TClinicas.Delete;
    except
      on EDatabaseError do
         ShowMessage('Error en el acceso a la Base de Datos');
      on E: Exception do
         ShowMessage('Error ' + E.ClassName + ': '+ E.Message);
      end; }

Gracias, espero que se entienda mejor

[Casimiro Noteví]

Por ejemplo:

Código Delphi [-]
QClin.Open;
if QClin.RecordCount>0 then
  etc...

El QClin.Prepare ahí no sirve de mucho.

[Yulka]

Si tenes razon ahora que lo veo me acuerdo,son los nervios de la entrega.
muchas gracias a todos

[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