carlos gonzalez
17-06-2005, 16:02:15
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
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