PRIVATE contador AS Integer = 0
PUBLIC SUB Button2_Click()
DIM entrar AS Boolean
coneccion.asisresul = coneccion.asiscon.Exec("SELECT * FROM acceso")
IF TextBox1.Text = "" OR TextBox2.Text = ""
Message.Info("DEBE LLENAR LOS CAMPOS REQUERIDOS ")
ELSE
IF coneccion.asisresul nombre LIKE "*" & TextBox1.Text & "*" THEN
IF coneccion.asisresul contrasena LIKE "*" & TextBox2.Text & "*" THEN
Message.Info("CONTRASEÑA CORRECTA BIENVENIDO O BIENBENIDA")
ME.Close
cargaacceso.Show
ENDIF
ELSE
Message.Error("NOMBRE O CONTRASEÑA INCORRECTA VUELVA A INTENTARLO")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
contador = contador + 1
IF contador = 3 THEN
Message.Warning("HA INTENTADO ACCESAR MAS DE 3 VECES POR SEGURIDAD ESTE SISTEMA SE CERRARÁ")
ME.Close
ENDIF
ENDIF
ENDIF
END
PUBLIC SUB Button2_Click()
DIM entrar AS Boolean
coneccion.asisresul = coneccion.asiscon.Exec("SELECT * FROM acceso")
IF TextBox1.Text = "" OR TextBox2.Text = ""
Message.Info("DEBE LLENAR LOS CAMPOS REQUERIDOS ")
ELSE
IF coneccion.asisresul nombre LIKE "*" & TextBox1.Text & "*" THEN
IF coneccion.asisresul contrasena LIKE "*" & TextBox2.Text & "*" THEN
Message.Info("CONTRASEÑA CORRECTA BIENVENIDO O BIENBENIDA")
ME.Close
cargaacceso.Show
ENDIF
ELSE
Message.Error("NOMBRE O CONTRASEÑA INCORRECTA VUELVA A INTENTARLO")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
contador = contador + 1
IF contador = 3 THEN
Message.Warning("HA INTENTADO ACCESAR MAS DE 3 VECES POR SEGURIDAD ESTE SISTEMA SE CERRARÁ")
ME.Close
ENDIF
ENDIF
ENDIF
END
La entrada se valida bien y todo pero por ejemplo cuando se introduce algun caracter que se asemeje dentro de la tabla de la base de datos y la contraseña tambien deja entrar a cualquiera por ejemplo: si dentro de la base de datos sqlite introduzco campo nombre:fulano y en campo 12345, al introducir en la texbox1.text aunque sea la primera letra f y la texbox2.text contraseña 1 o 2 o 3 hasta 5 deja entrar al individuo pero si se pasa de estos 5 "digitos" no deja entrar que sentencia me pregunto habrá para que valide el nombre completo del campo y la contraseña completa del campo me explico que si introduzco el 1 no deje entrar o el 2 como sea debe validar todos los digitos igual pasa con los caracter si introduzco ful mas nada deja entrar tambien agradezco de antemano alguien que sepa gracias.
Perdon por la mala ortografia es que de verdad no he podido salir de esta situación gracias.