Como capturar mensaje cuando se intenta duplicar una clave primaria de una BD

[Casimiro Noteví]

Empezado por Neftali

O desactiva los mensajes de error en el IDE;
Tool / Debugger Options / Languages Exceptions / Stop on Delphi Exceptions

Y te acuerdas de activarlo después, ya que no volverás a ver un error, aunque exista.

[RedVenom]

Y como seria desde fuera??

[[maeyanes]]

Empezado por RedVenom

Y como seria desde fuera??

Ejecutas directamente desde Windows el ejecutable generado por Delphi, no desde el IDE...


Saludos...

[RedVenom]

Me sigue apareciendo lo mismo primero el mensaje y luego el que manda la base de datos. Alguna sugerencia??

[[Al González]]

Action := daAbort;

[RedVenom]

lo que hice fue cambiar

Código Delphi [-]
MessageDlg('MENSAJE DE ERROR: '+E.Message, mtWarning, [mbOK], 0);

Por:

Código Delphi [-]
E.Message:="Mensaje de Error Capturado

Pero ya no creo yo mi mensaje lo unico que puedo hacer es cambiarle el texto al mensaje de error que manda la base de datos ahora lo que quisiera es solo cambiarlo cuando sea algun tipo de error especifico.

[RedVenom]

Con la instrucción:

Código Delphi [-]
Action := daAbort;

Ya logro hacer que solo aparez ca mi mensaje, ya solo me faltaria que solo apareciera dependiendo del mensaje de error recibido.
Les agradezco infinitamente su ayuda.

[[Al González]]

Eres un ejemplo de forista paciente y decidido. Te dejas ayudar muy bien, eso da gusto.

Empezado por RedVenom

[...] ya solo me faltaria que solo apareciera dependiendo del mensaje de error recibido.

Sabes, los objetos EDatabaseError no contienen información adicional que te permita discernir el tipo de error que ocurrió, de hecho la clase EDatabaseError es prácticamente igual que Exception (al menos hasta Delphi 7). Miré el código del método virtual TCustomADODataSet.InternalPost (ADODB.pas) y descubro que la excepción arrojada por ADO es sustituida por un simple EDatabaseError. Ignoro si la excepción original u otro tipo de información puede ser consultada mediante otros caminos (como la interfaz ADODataSet1.Recordset o el objeto TADOConnection), pero es a través del propio mensaje de texto (analizando su contenido) como podrás averiguar el tipo de error ocurrido.

De hecho así lo tuve que hacer hace tiempo con dbExpress y Firebird, porque desafortunadamente en las excepciones no venían incluidos los códigos de error nativos del motor.