FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
try
Lo que quiero hacer es muy sencillo y no entiendo que hago mal.
Quiero poder borrar una entrada a una tabla, pero tengo otra tabla que la usa como clave foranea y evidentemente salta una excepcion. Quiero capturar esa excepcion y lanzar un mensaje que diga que esa entrada no se puede borrar. Pongo el try al principio del codigo que quiero controlar y despues pongo un: try {codigo a controlar} except on EMySqlException do showmessage('mi mensaje personalizado'); end; y sigue no funciona, salta el mensaje de excepcion del mysql y casca la aplicacion, ¿que hago mal?. |
#2
|
|||
|
|||
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. |
#3
|
|||
|
|||
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. |
#4
|
||||
|
||||
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. |
#5
|
||||
|
||||
Hola.
De todas forma,tal y como dice Lepe, serai conveniente que dieras mas informacion: Sistema deBD,componentes,etc,etc Saludos |
#6
|
||||
|
||||
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 |
#7
|
||||
|
||||
Hola.
Asi: Tools->Debugger Options->Languaje Excetions y desmarcar el check "Stop on Delphi Exceptions". saludos |
#8
|
|||
|
|||
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. |
#9
|
||||
|
||||
|
#10
|
|||
|
|||
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? |
#11
|
|||
|
|||
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.
|
#12
|
||||
|
||||
Bueno, a ver si esto ya "chuta"
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 |
#13
|
|||
|
|||
Cita:
|
#14
|
|||
|
|||
memsana, ¿como se accede al ide para desactivar el break on exception?.
Perdona por ni otrpeza, pero he buscado por todas partes. |
#15
|
||||
|
||||
Buenas!
Kalimero lo respondió antes: Cita:
|
#16
|
|||
|
|||
Tools / Debugger options / Language exceptions / Stop on Delphi exceptions
|
#17
|
|||
|
|||
Muuuuuchas gracias, ese era el unico problema, ya rula bien, no peta y salta el mensaje que yo he puesto.
Graaaaaaaaaaaaaaaacias. |
|
|
|