FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como capturar un error de base de datos
Hola amigos, tengo un problema, quiero atrapar los errores de la base de datos pero no me funciona, por ejemplo cuando se inserta una valor que ya existe siendo llave primaria, quiero mandar un mensaje de que ya existe ese dato, estoy utilizando tablas de DB2.
Con tablas de paradox utilizaba el sig. Código en el botón de guardar. begin try if (pass.Text='') or (pass2.Text='') or(nom.Text='') or (userr.Text='') then begin guardar.enabled:=false; application.messagebox('No Puede Haber Campos Vacios','Validacion De Datos',mb_ok+mb_iconerror); end else begin tuser.Post; tuser.First; pass2.Text:=''; end; except on EDBEngineError do begin application.messagebox('Este Usuario Ya Existe','Validacion De Usuario',mb_ok+mb_iconerror); cancelarClick(Sender); end; end; pero no me funciona con tablas de db2. Un amigo me paso el sig. Codigo If (e is EDBEngineError) then If EDBEngineError(e).errorcode=9729 Then showmessage (‘este usuario ya existe’) Else Raise; Pero tampoco me funciona, me marca error donde dice errorcode Y como yo soy nuevo en eso de atrapar errores estoy hecho bolas. Alguien podria echarme una mano, según los comentarios que me han hecho llegar el segundo codigo es el mas adecuado para lo que quiero realizar, pero no lo he podido implementar. Podrían decirme que es lo que debo de declarar para que me funcione, si lo tengo que manejar como un procedimiento o como un evento o si alguien fuera tan amable y pudiera darme un pequeño ejemplo se agradecería eternamente. Su amigo carlos |
|
|
|