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

[[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.

[Casimiro Notevi]

En firebird 1.0 (no sé con versiones recientes) algunos de los errores que devolvía son estos:

-530 : Violación de clave foránea.
-625 : Dato no válido.
-803 : Clave primaria repetida.
-832 : No existe registro relacionado.
-836 : Excepción de la BD.;
-913 : 'deadlock'