try

[epuigdef]

Buenas!

A parte de lo que te han comentado, ten en cuenta que si ejecutas el programa desde el IDE de Delphi te va a saltar el mensaje "feo" de todas formas. Prueba de ejecutar la aplicación desde fuera del IDE y a lo mejor ves que no es tal error. El lanzamiento de las excepciones dentro del IDE se pueden deshabilitar, pero no recuerdo cómo.

Un saludo

Edu

[kalimero]

Hola.
Asi:
Tools->Debugger Options->Languaje Excetions y desmarcar el check
"Stop on Delphi Exceptions".

saludos

[chipsoni]

Este es el codigo exacto

try
with Query do
begin
SQL.Clear;
SQL.Add('delete from tactividad');
SQL.Add('where (nombre like :nombre)');
ParamByName('nombre').AsString := DBLCBseleccion.Text;
Execute;
end;
ShowMessage('La actividad '+DBLCBseleccion.Text+' ha sido eliminada');
except
on EMySqlException do showmessage('La actividad empresarial no puede ser eleminada');
end;

Y el error en tiempo de ejecucion es:

"Project Vicerrectorado.exe raised exception class EMySqlException with message '#23000No puede deletear una linea padre: falla la clave extrajera constraint.' Process stopped. Use Step or Run to continue"

La base de datos es MySql y la entrada a la tabla tactividad tiene como clave primaria un codigo que en la tabla tempresa se usa en el campo actividad.
El error salta cuando intento borrar una actividad empresarial y hay alguna empresa que tiene en actividad el codigo de dicha actividad empresarial y en ese caso lo que quiero es que esa actividad no se pueda borrar.

La actividad la selecciono de un DBLookUpComboBox que muestra el campo nombre de la tabla tactividad.

Para accedere a las tablas uso la componente MyDAC.

No se si se me olvida alguna de las cosas que me han preguntado. Espero que ahora sea mas facil saber en que me equivoco.

[kalimero]

Código Delphi [-]
try
  with Query do
  begin
    SQL.Clear;
    SQL.Add('delete from grocs');
    SQL.Add('where (nombre like :nombre)');
    ParamByName('nombre').AsString := '1';
    Execute;
  end;
  ShowMessage('La actividad '+DBLCBseleccion.Text+' ha sido eliminada');
except
  on E:EMySqlException do showmessage('La actividad empresarial no puede ser eleminada');
end;

[chipsoni]

Esa modificación me da un error de compilación:

Identificador EMySqlException undeclared y EMySqlException es de la clase Exception y ya esta definido, ¿tengo que redefinir un tipo que ya esta definido?

[chipsoni]

Se me olvidaba, si pongo Exception, en lugar de EMySqlException, compila, pero sigue dando el mismo problema, la aplicación casca y salta el mensaje predeterminado de la excepción.

[kalimero]

Bueno, a ver si esto ya "chuta"

Código Delphi [-]
try
  with Query do
  begin
    SQL.Clear;
    SQL.Add('delete from tabla');
    SQL.Add('where (nombre like :nombre)');
    ParamByName('nombre').AsString := 'cadena';
    Execute;
  end;
  ShowMessage('La actividad '+DBLCBseleccion.Text+' ha sido eliminada');
except
  on E:EMyError do showmessage('La actividad empresarial no puede ser eleminada');
end;

Pero para que todos esto funcione debes añadir en la clausula "uses": MyClasses
En la ayuda de los comnponente tienes abundate informacion sobre el tema
Saludos

[mensana]

Empezado por chipsoni

...No puede deletear una linea padre: falla la clave extrajera constraint.' Process stopped. Use Step or Run to continue"

Tienes activado "Break on exception" en el IDE.

[chipsoni]

memsana, ¿como se accede al ide para desactivar el break on exception?.
Perdona por ni otrpeza, pero he buscado por todas partes.

[epuigdef]

Buenas!

Kalimero lo respondió antes:

Hola.
Asi:
Tools->Debugger Options->Languaje Excetions y desmarcar el check
"Stop on Delphi Exceptions".

Edu

[mensana]

Tools / Debugger options / Language exceptions / Stop on Delphi exceptions

[chipsoni]

Muuuuuchas gracias, ese era el unico problema, ya rula bien, no peta y salta el mensaje que yo he puesto.

Graaaaaaaaaaaaaaaacias.