Problema para capturar Errores
Hola amigos tengo un problema ojala puedan ayudarme u orientarme, se los voy a agradecer infinitamente, ya tengo mas de una semana y no he podido solucionar este problema., dejen les explico. Lo que quiero es cachar los errores que manda la base de datos cuando se comete un error por ejemplo duplicación de una llave primaria y mandar un mensaje hecho por mí evitando que el sistema truene y siga corriendo.
Anteriormente usaba el EDBEngineError y me jalaba perfectamente, por ejem. El sig. Código lo tenía en el botón de guardar y cuando se cometía un error de duplicación de llaves primarias me manda un mensaje. procedure TForm33.guardarClick(Sender: TObject); 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; nom.ReadOnly:=true; userr.ReadOnly:=true; pass.ReadOnly:=true; pass2.Enabled:=false; primer.Enabled:=true; siguiente.Enabled:=true; anterior.Enabled:=true; ultimo.Enabled:=true; eliminar.Enabled:=true; editar.Enabled:=true; guardar.Enabled:=false; nuevo.Enabled:=true; cancelar.Enabled:=false; salir.Enabled:=true; 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; end; Pero mi problema ahora es que estoy utilizando tablas de DB2 montadas en un servidor AS/400 y la rutina anterior no me funciona., alguien podría ayudarme a salir de este problema, se los voy a agradecer eternamente. Su amigo Charles Que DIOS los bendiga |
Por favor no repitas el mismo mensaje en varios foros (y menos cuando no tiene nada que ver con el tema del foro)
* Lee: http://www.clubdelphi.com/foros/guiaestilo.php#foros Utiliza TAG's en los mensajes (en éste caso en a parte de código): * Lee: http://www.clubdelphi.com/foros/misc.php?do=bbcode Guía de estilo |
Este hilo queda cerrado por estar duplicado con este otro.
|
La franja horaria es GMT +2. Ahora son las 21:39:37. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi