none
COMO VALIDAR USUARIO Y CONTRASEÑA RRS feed

Respuestas

  • hola

    pero como es que te conectas a la db, usas los objetos de ado.net, me refieor al OleDbConnection, OleDbCommand, o usas dataset tipados con sus tableadapter ?

    tienes en la db una tabla de usuario

     

    podrias hacer algo como esto

    Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb"
    Using conexion As New OleDbConnection(connstring)
        conexion.Open()
       
        Dim sql As String = "SELECT Count(*) FROM Usuarios WHERE usuario = @usuario and password = @password"
       
        Dim cmd As New OleDbCommand(sql, conexion)
        cmd.Parameters.AddWithValue("@usuario", txtUsuario.Text)
        cmd.Parameters.AddWithValue("@password", txtPassword.Text)
       
        Dim i As Integer = Cint(cmd.ExecuteScalar())
       
        if i = 0 Then
            MessageBox.Show("No paso la autenticacion")
        Else
            MessageBox.Show("autenticacion correcta")
        End If
       
    End Using

    saludo


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    jueves, 29 de abril de 2010 4:03
  • Hola:

    Si por una casualidad de la vida, estás utilizando la seguridad a nivel de usuario del motor Microsoft Jet, en la cadena de conexión con el origen de datos tienes que pasar el identificador y la contraseña del usuario, a parte de especificar la ruta del archivo de información de grupos de trabajo, el famoso archivo System.mdw. Es decir, si solamente quieres validar las credeciales de un usuario cualquiera, bien te podría servir la siguiente función:

        Private Function Login( _
            ByVal userName As String, _
            ByVal password As String) As Boolean

            Using cnn As New OleDbConnection()

                Try
                    cnn.ConnectionString = _
                        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=C:\Carpeta\System.mdw;" & _
                        "Jet OLEDB:System Database=C:\Carpeta\System.mdw;" & _
                        "User Id=" & userName & _
                        ";Password=" & password

                    cnn.Open()

                    ' Credenciales correctas
                    Return True

                Catch ex As Exception
                    ' Credenciales incorrectas
                    Return False

                End Try

            End Using

        End Function

    Ahora, llamarías a la función de la siguiente manera:

            Dim log As Boolean = Login("cenamico", "contraseña_cenamico")

            MessageBox.Show(log.ToString)

    Un saludo

     


    Enrique Martínez [MS MVP - VB]
    jueves, 29 de abril de 2010 12:29
    Moderador

Todas las respuestas

  • hola

    pero como es que te conectas a la db, usas los objetos de ado.net, me refieor al OleDbConnection, OleDbCommand, o usas dataset tipados con sus tableadapter ?

    tienes en la db una tabla de usuario

     

    podrias hacer algo como esto

    Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb"
    Using conexion As New OleDbConnection(connstring)
        conexion.Open()
       
        Dim sql As String = "SELECT Count(*) FROM Usuarios WHERE usuario = @usuario and password = @password"
       
        Dim cmd As New OleDbCommand(sql, conexion)
        cmd.Parameters.AddWithValue("@usuario", txtUsuario.Text)
        cmd.Parameters.AddWithValue("@password", txtPassword.Text)
       
        Dim i As Integer = Cint(cmd.ExecuteScalar())
       
        if i = 0 Then
            MessageBox.Show("No paso la autenticacion")
        Else
            MessageBox.Show("autenticacion correcta")
        End If
       
    End Using

    saludo


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    jueves, 29 de abril de 2010 4:03
  • Hola:

    Si por una casualidad de la vida, estás utilizando la seguridad a nivel de usuario del motor Microsoft Jet, en la cadena de conexión con el origen de datos tienes que pasar el identificador y la contraseña del usuario, a parte de especificar la ruta del archivo de información de grupos de trabajo, el famoso archivo System.mdw. Es decir, si solamente quieres validar las credeciales de un usuario cualquiera, bien te podría servir la siguiente función:

        Private Function Login( _
            ByVal userName As String, _
            ByVal password As String) As Boolean

            Using cnn As New OleDbConnection()

                Try
                    cnn.ConnectionString = _
                        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=C:\Carpeta\System.mdw;" & _
                        "Jet OLEDB:System Database=C:\Carpeta\System.mdw;" & _
                        "User Id=" & userName & _
                        ";Password=" & password

                    cnn.Open()

                    ' Credenciales correctas
                    Return True

                Catch ex As Exception
                    ' Credenciales incorrectas
                    Return False

                End Try

            End Using

        End Function

    Ahora, llamarías a la función de la siguiente manera:

            Dim log As Boolean = Login("cenamico", "contraseña_cenamico")

            MessageBox.Show(log.ToString)

    Un saludo

     


    Enrique Martínez [MS MVP - VB]
    jueves, 29 de abril de 2010 12:29
    Moderador
  • GRACIAS fue de gran utilidad!!!

    jueves, 8 de noviembre de 2012 12:05