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

Quisiera saber si hay alguna forma de capturar el mensaje de error que manda la base de datos cuando se intenta duplicar el valor de una llave primaria, esto es para mostrarle un mensaje personalizado al usuario de la aplicacion en lugar del que mande el sistema.
Les agradezco su ayuda de antemano.

¿Qué base de datos?

Es SQL Server 2008

Porque no creas una función para saber si existe tal dato en la tabla, no creo que sea buena idea que la base de datos te devuelva un error de la existencia de dicho dato.

un saludo.

¿Cómo estás accediendo? ¿ADO, DBExpress?

Utiliza un Try..Except y captura el mensaje de vuelta. Segun la clase podrás acceder al código o en su defecto al mensaje; A partir de ahí podrás personalizar el mensaje:

Código Delphi [-]
try
  ADOQuery1.Update;
except
  on E:EOLEException do begin
    ==> E.ErrorCode    Codigo de error.
    ==> E.Message      Mensaje de error
  end;
end;

Esto es más o menos lo que puedes utilizar para ADO; Para DbExpress algo similar.

Es que la base de datos sola me devuelve ese error cuando intento duplicar una llave primaria lo que deseo es interceptarlo para que yo muestre mi propio mensaje, no me convence lo de crear una funcion tendria que estar llamando a la funcion cada vez que agrego un registro cuando la base de datos ya te da el mensaje.

Creo que deberias pensar mejor lo de la funcion...

Si bien la base te envia un mensaje cuando el codigo de registro esta duplicado, para un sistema en donde se ingresa un registro con grandes cantidades de información... (por unos 30 0 50 campos por lo minimo)... haras que el usuario digite todos los campos.... y cuando presiones guardar se de cuenta que ya existe?:confused::confused::confused:

Creo que lo mejor es ingresar el campo clave (codigo, campo clave o como lo llames) y preguntar si en la base existe algun registro con dicho codigo.. si existe lanzas el mensaje que existe un registro... en caso contrario sigues ingresando....:p:p


Salu2:p

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.

Con una función de verificación no hay garantía de que, entre la llamada a la función y el envío de los datos, otro programa o usuario ocupe el valor que no se quiere duplicar.

Una solución como la de Neftali me parece la más adecuada (o usar el evento OnReconcileError en caso de que RedVenom esté utilizando objetos TClientDataSet). Esperemos a ver qué nos dice.

Saludos. :)

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

+1 Al González
+1 Neftalí

Esto tiene el problema de concurrencia que ya han mencionado. Lo que he hecho a veces, para evitar la captura innecesaria es:

1. Preguntar la clave.
2. Insertar un nuevo registro con esa clave.
3. Esperar... (a ver qué dice el servidor :D)
4. Presentar un formulario para llenar los datos restantes.
5. Hacer el UPDATE a la base.

Por cierto, además del try-except también puede usarse el evento OnPostError del DataSet.

// Saludos

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

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.

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;

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

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

Y como seria desde fuera??

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


Saludos...

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