Comparar 2 campos
Publicado por Silvia (63 intervenciones) el 18/05/2007 07:21:51
Hola: Tengo un problema que no entiendo. Tengo un formulario de acceso a una aplicación y utilizo la clase blowfish para decodificar la contraseña. Introduzco la contraseña "M" y la valido con la del fichero que es "MAPA". Al comparar las 2 con el if de abajo, me dice que son iguales. El programa lo he depurado y me dá que tmp_campo1="M" y tmp_campo2="MALA".
----------------------------------------------------------------------------------------
tmp_campo1 = THISFORM.blowfish1.DecodificarBlowfish(tbl_usuari.fld_pasusu,'FOX'))
tmp_campo2 = ALLTRIM(UPPER(THISFORM.txt_pasusu.value))
IF tmp_campo1 <> tmp_campo2
MESSAGEBOX("Contraseña errónea", 0+16, "Error en la contraseña")
ELSE
tmp_usuari = thisform.txt_abrusu.Value
ENDIF
-----------------------------------------------------------------------------------------
Gracias
----------------------------------------------------------------------------------------
tmp_campo1 = THISFORM.blowfish1.DecodificarBlowfish(tbl_usuari.fld_pasusu,'FOX'))
tmp_campo2 = ALLTRIM(UPPER(THISFORM.txt_pasusu.value))
IF tmp_campo1 <> tmp_campo2
MESSAGEBOX("Contraseña errónea", 0+16, "Error en la contraseña")
ELSE
tmp_usuari = thisform.txt_abrusu.Value
ENDIF
-----------------------------------------------------------------------------------------
Gracias
Valora esta pregunta
0