Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-06-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 19
el_barto Va por buen camino
Despues de Mensaje de error en user y password

Código:
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
   DataModule2.IBDatabase1.Params.Values['USER_NAME'] := Edit1.Text;
   DataModule2.IBDatabase1.Params.Values['PASSWORD']  := Edit2.Text;
   try
	 DataModule2.IBDatabase1.open;
	 DataModule2.IBTransaction1.Active := True;
	 DataModule2.IBDataSet1.Active := True;
   except
	 MessageDlg ('SU USER O PASSWORD NO ES VALIDO', mtError,[mbyes],0);
   end;
   if DataModule2.IBDatabase1.Connected then
	 begin
	   ModalResult := mrOk;  //  Avisamos que todo esta OK
	 end;
end;

Buenos dias foro tengo un problemilla con este codigo compila superbien, lo que hace es que cuando el user o pass esta mal saca un mensaje de error pero sin embargo me deja entrar al aplicativo, no se que meter en el except para que cuando despues de que me saque el mensaje me siga mostrando la pantalla que pide el user y pass.

Gracias por prestarme atencion
Responder Con Cita
  #2  
Antiguo 21-06-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
Tienes varias opciones... o bien:

Código Delphi [-]
  try
    CheckearUsuario;
    IniciarAplicacion;
  except
    ...
  end;

en tu mismo esquema pero en lugar de mostrar un mensaje y capturar el error, crear tu propio error:

Código Delphi [-]
  try
    ...
  except
    raise Exception.Create('Usuario o contraseña inválida...');
  end;

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 21-06-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 19
el_barto Va por buen camino
Fede probe tu segunda opcion compila bien pero cuando digito mal la contraseña o el user se queda parada la plicacion y no responde mas por que sera??
No hay un posibilidad que con mi codigo despues de mostrar el mensaje nuevamente llame al form3 es decir que siempre que entre por el except muestre el mensaje que yo coloque y luego muestre el form3???
Responder Con Cita
  #4  
Antiguo 21-06-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
Ese código esta "disparando" el error a la captura anterior de errores... no se como creas tu formulario, pero es posible que producir un error inesperado haga que tu código quede inestable. Ten en cuenta que esto puede suceder con cualquier otro error, por lo que no estaría nada bien.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #5  
Antiguo 21-06-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 19
el_barto Va por buen camino
Tenes toda la razon si cuando se dispara el formulario 3 existe algun error ya sea de lo que sea y produce una excepion siempre va a tomar como si fuese error de user o password, Gracias voy a replantear eso.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 12:25:45.


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
Copyright 1996-2007 Club Delphi