Comparar valor d 1 campo d una tabla con 1 txtbox
Publicado por Jesus (32 intervenciones) el 18/05/2005 17:55:12
Hola!! Tengo el siguiente codigo para la validacion de un usuario:
lcDbfDir = [d:\Planos\Data\Password.dbf]
lcCon = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
lh = SQLStringConnect( lcCon )
? SQLTables(lh)
Ssql = "select * from password where login=(thisform.lOGIN.Value) and password= ?UPPER(Thisform.password.Value)"
liResult = SQLExec( lh,Ssql,"C_Valid")
IF USED("C_Valid")
SELECT C_Valid
GO Top
IF !EOF()
MESSAGEBOX("Bienvenido al Sistema")
thisform.Release()
ELSE
MESSAGEBOX("Usuario Incorrecto")
ENDIF
ELSE
MESSAGEBOX("Usuario Incorrecto")
ENDIF
Pero no lo hace, podrian decirme en que estoy mal o que me falta por favor, la verdad no soy muy experto en Fox y pues no se que me falta..Ojala puedan ayudarme ... Gracias de ante mano
lcDbfDir = [d:\Planos\Data\Password.dbf]
lcCon = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
lh = SQLStringConnect( lcCon )
? SQLTables(lh)
Ssql = "select * from password where login=(thisform.lOGIN.Value) and password= ?UPPER(Thisform.password.Value)"
liResult = SQLExec( lh,Ssql,"C_Valid")
IF USED("C_Valid")
SELECT C_Valid
GO Top
IF !EOF()
MESSAGEBOX("Bienvenido al Sistema")
thisform.Release()
ELSE
MESSAGEBOX("Usuario Incorrecto")
ENDIF
ELSE
MESSAGEBOX("Usuario Incorrecto")
ENDIF
Pero no lo hace, podrian decirme en que estoy mal o que me falta por favor, la verdad no soy muy experto en Fox y pues no se que me falta..Ojala puedan ayudarme ... Gracias de ante mano
Valora esta pregunta
0