![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
#1
|
|||
|
|||
Cita:
El código no lanza excepciones. Si ocurre esto, entonces debes revisar los eventos de error de la tabla/query/dataset/... Posibilidad 2: La excepción generada no es la que intentas capturar. Para comprobarlo, puedes capturar todas las excepciones (usando la clase "Exception") y comprobar el valor de E.ClassName. |
#2
|
|||
|
|||
Pues si que lanza una excepcion, porque peta la aplicacion y sale una ventana diciendo exactamente que no puedo borrar una linea padre, porque hay otra tabla que la usa y me da el nombre de excepcion EMySqlException y hasta el numero de exception, justo cuando peta, pero claro, el mensaje es muy tecnico para lanzarselo al cliente final y ademas es que me peta la aplicacion y esa no es la idea.
Quiero capturarlo, lanzarle un mensaje mas amigable y no borrar la entrada. ¿Alguna otra idea?, me he leido toda la ayuda del delphi y sigo sin encontrar el fallo. Muchas gracias. |
#3
|
||||
|
||||
Será mejor que pegues el código exacto. Lo que ocurre es la posiblidad 1 pero con una variante, las instrucciones en {codigo a controlar} realmente no lanzan la excepción, sino que dicha excepción se produce como fallo colateral de ese código a controlar
Sería muy conveniente decir qué base de datos usas, qué componentes usas para acceder a esas tablas (BDE, ADO, IBX, etc) y el código exacto que estas usando; ya que la filosofía que usas es la correcta, pero puede haber detalles que se escapen. Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 18-10-2006 a las 14:33:23. |
#4
|
||||
|
||||
Hola.
De todas forma,tal y como dice Lepe, serai conveniente que dieras mas informacion: Sistema deBD,componentes,etc,etc Saludos |
#5
|
||||
|
||||
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 |
#6
|
||||
|
||||
Hola.
Asi: Tools->Debugger Options->Languaje Excetions y desmarcar el check "Stop on Delphi Exceptions". saludos |
#7
|
|||
|
|||
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. |
![]() |
|
|
![]() |
|