FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
No puedo detectar la excepción "EDatabaseError"
Saludos,
Tengo el siguiente problema, trabajo con Delphi 7 y una Base de Datos Interbase 7.0, estoy usando una tabla que contiene información, la llave primaria es mi número de expediente que es de tipo char de 10 caracteres y la tengo definida como la Primary key "PK_NEXPEDIENTE". En mi programa de delphi uso los componentes del DBexpress y al momento de insertar un registro con un expediente que ya existe, deseo atrapar la excepción y mostrar un mensaje al usuario que diga "Expediente ya existente". mi código es el siguiente: try clientdataset1.Post; if (clientdataset1.ChangeCount > 0) then clientdataset1.ApplyUpdates(-1); except on E: Exception do begin ShowMessage('Expediente ya existente'); end pero al correr el programa e introducir el dato duplicado, nunca me arroja la excepción. Si lo corro desde delphi, el compilador si me arroja el error de "EdatabaseError violation of primary key..." pero nunca me arroja el mensaje de excepción. Y al correrlo fuera de delphi, obviamente nunca me marca el error a pesar de que no lo puede insertar por estar duplicado el expediente. también intenté lo siguiente: try clientdataset1.Post; if (clientdataset1.ChangeCount > 0) then clientdataset1.ApplyUpdates(-1); except on E: EDatabaseError do begin ShowMessage('Expediente ya existente'); end y tampoco la atrapa, se sigue de largo. Alguna idea para solucionarlo???? Gracias de Antemano Adán |
|
|
|