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

[Neftali [Germán.Estévez]]

Empezado por Al González

Para mí, de hecho, es mejor que sea el motor de base de datos quien valide ese tipo de cuestiones y capturar desde la aplicación el mensaje de excepción, convirtiéndolo en algo amigable y entendible por el usuario.

+1

Correcto. Muy correcto.

Primero porque estaremos haciendo trabajo doble.
Segundo porque si ya hay alguien que saber hacer ese trabajo, mejor que lo haga él (SGBD).
Tercero, porque los métodos de hacerlo del SGDB son mucho más eficientes que hacerlo desde el cliente (delphi).
Cuarto, porque hacerlo nosotros no es tan sencillo como parece, por los temas de concurrencia que comenta Al.

[Casimiro Noteví]

+1 Al González
+1 Neftalí

[[Al González]]

Y uno más para Casimiro +1. Por darme su voto.

[RedVenom]

Estoy usando ADODataset no entendi muy bien el codigo que me dio neftali en donde lo debo colocar para capturar y como lo paso al mensaje que yo deseo presentar.
Les agradezco mucho suayu da y opinion, ah y si yo tambien soy de la opinion de usar lo que ya hace la base de datos en lugar de volvr a programar lo que ya esta programado y verificado.

[RedVenom]

Ya logre poner mi mensaje cuando da el error la Base de Datos puse el siguiente codigo en el evento OnPostError y si aparece mi mensaje pero despues de que le doy aceptar aparece enseguida el mensaje de error de la base de datos, ahora mi pregunta es como le hago para que solo aparezca mi mensaje??, y otra cuestion y si solo quisiera interceptar ciertos errores de la base de datos se podria hacer??

Código Delphi [-]
procedure TForm1.ADODataSet1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
   MessageDlg('MENSAJE DE ERROR: '+E.Message, mtWarning, [mbOK], 0);
end;

[Casimiro Noteví]

Eso es porque lo has ejecutado desde delphi, pruébalo desde fuera, verás

[Neftali [Germán.Estévez]]

Empezado por Casimiro Notevi

Eso es porque lo has ejecutado desde delphi, pruébalo desde fuera, verás

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