Usuario y Contyraseña en Visual Basic 6.0

Buenas,
Les cuento que tengo un programa en visual basic 6. y con una base de datos en access.
Esta base tienes varias tablas entre ella la de VALIDAR, esta tiene dos campos (nomusu y password) deseo hacer un nuevo formulario donde me pida mediante dos textbox el usuario y la clave, estos dos textos sean buscado en la BD de access(VALIDAR) si estos existen que entre al siguiente formulario sino salga msgbos de error.
Nota: son varios usuarios que manejan el programa
{"lat":5.61598581915534,"lng":-73.125}

1 respuesta

1
Respuesta de
El siguiente código realiza una serie de validaciones:
1.- Que los TextBox no estén vacíos.
2.- Que el nombre de usuario exista.
3.- Que la clave escrita sea correcta [esto en caso de que el usuario exista].
4.- Tanto el usuario como su clave son evaluados respetando el uso de mayúsculas o minúsculas [esto gracias a la función de VB "StrComp"].
Después de estas evaluaciones hay 2 opciones:
1.- Si tanto el nombre de usuario como la clave son correctos se cierra el formulario actual [llamémosle "FrmAcceso"] y se muestra un nuevo formulario [llamémosle "FrmMenu"].
2.- Si el nombre de usuario o la clave son incorrectos se envía un mensaje al usuario indicando un error.
NOTA: Se asume que se usa un método de conexión [yo uso una variable de tipo conexión: "Dim Cnx As New ADODB.Connection"] y el uso de sentencias SQL.
Private Sub CmdAceptar_Click()
    Dim Rst As New Recordset
    Dim i As Integer
    Dim ClaveCorrecta As Boolean
    If TxtUsuario.Text <> "" And TxtClave.Text <> "" Then
        Rst.Open "SELECT nomusu, passwor FROM Validar", Cnx, adOpenStatic, adLockPessimistic, adAsyncFetch
        If Rst.RecordCount Then
            For i = 1 To Rst.RecordCount
                If StrComp(Rst(0).Value, TxtUsuario) = 0 Then
                    If StrComp(Rst(1).Value, TxtClave) = 0 Then
                        ClaveCorrecta = True
                        UsuarioActivo = TxtUsuario
                        EntornoUsuario
                        Exit For
                    End If
                End If
                Rst.MoveNext
            Next i
        End If
        If ClaveCorrecta Then
            Unload Me
            FrmMenu.Show
        Else
            MsgBox "Ha escrito incorrectamente el nombre de usuario o la clave", _
            vbExclamation, "Atención"
        End If
    Else
        MsgBox "Debe escribir en nombre de usuario y la clave", _
        vbExclamation, "Atención"
    End If
End Sub
Espero te haya sido de utilidad, aunque si tienes alguna duda puedes consultarme nuevamente.
Saludos desde México. Juan Pablo E.P.
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje