Validar una String en Vb6

rafuru · #1 (**permalink**) 07/12/2009, 18:16

Saludos!

Pues aqui dando lata de nuevo

..

Veran, necesito validar una cadena de texto para un formulario que me compruebe un usuario y contraseña.. estos ya estan establecidos (no es un programa muy complejo aun)

Pero al usar if txtUsr = "usuario" then ...

Resulta que me manda error con el tipo de datos .. estoy seguro que estoy saltandome algo al comprobar la cadena, pero no se que sea

Agradezco la ayuda y atencion

pana99 · #2 (**permalink**) 07/12/2009, 21:01

Hola
"usuario" es un string ? o una variable ? porque asi como lo escribis funciona correctamente (0 sea valida que lo que tenes en el textbox sea la palabra usuario)

rafuru · #3 (**permalink**) 07/12/2009, 23:15

Tengo algo parecido a esto:

Código:

'Si es valida la info, entrar
        usr = "usuario"
        pass = "pass"
        If txtUsr.Text = usr & txtPass.Text = pass Then
            MsgBox "Bienvenid@ " & usr, vbInformation, "Bienvenid@!"
            frmMenu.Show
            frmMain.Hide
             End If

Pero me aparece el error que ya les platicaba con el tipo de dato

rafuru · #4 (**permalink**) 07/12/2009, 23:19

idiota... he dado con el error, jeje xD.. aun asi dejo abierto este hilo si me lo permiten para futuras consultas :)

ComprasDesdeCasa · #5 (**permalink**) 08/12/2009, 05:03

pues... sí un error de lo más tonto... ese & en la condición IF no es muy correcto que digamos...

Saludos

pana99 · #6 (**permalink**) 08/12/2009, 06:18

Correcto ese es el error
De tdas formas tambien es conveniente declarar las variables

Código:

Dim usr As String, pass As String
        usr = "usuario"
        pass = "pass"
        If txtUsr.Text = usr And txtPass.Text = pass Then
            MsgBox "Bienvenid@ " & usr, vbInformation, "Bienvenid@!"
            frmMenu.Show
            frmMain.Hide
         End If