Autentificar Usuario .NET con SQL

[Bazookao]

tengo mi base de datos en SQL y quiero que solo los usuarios usen el programa, para esto tengo una tabla usuarios (id,nombre,contraseña)
ya tengo un LoginForm para que se carga cuando se ejecuta el programa,
lo que quiero es que el usuario ponga su nombre y contraseña
si es correcto que lo deje entrar al programa si no que no pueda avanzar de ahi hasta que digite correctamente los datos de acceso

lei un post que esta en las FAQ's de VB pero no me deja poner el enlace por que medio nuevo en el foro


pero es para VB6 y yo quiero para .NET y la verdad si cambian varias cosas

podrian ser lo mas detallado posible sobre todo para el proceso de coneccion con la base de datos que esta en SQL 2008 y tengo VS2008

gracias de antemano

[Avellaneda]

Prueba así:

Código vb.net:

Imports System.Data.SqlClient
 
Public Class LoginForm1
    Dim cont As Int32 = 0
    ' conexión a una BD SQLExpress
    Dim con As New SqlConnection("Server=.\SQLEXPRESS;Integrated Security=True;Database=BaseSQL")
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If VerificarUsuario(UsernameTextBox.Text, PasswordTextBox.Text) Then
            ' correcto, salimos a True
            EsOk = True
            Me.Close()
        Else
            ' le damos 4 intentos y si no, salimos a False
            MsgBox("Usuario o contraseña incorrectos" & vbNewLine & "Quedan " & 3 - cont & " intentos")
            cont += 1
        End If
        If cont = 4 Then Me.Close()
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
 
    Private Function VerificarUsuario(ByVal ElUser As String, ByVal ElPass As String) As Boolean
        Dim dr As SqlDataReader
        Dim strSQL As String = "SELECT * FROM Usuarios Where Nombre = '" & ElUser & "' And Pass = '" & ElPass & "'"
        con.Open()
        Dim cmd As New SqlCommand(strSQL, con)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows = True Then Return True
        con.Close()
    End Function
End Class
 

En el Load del form de inicio:

Código vb.net:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show() ' si quieres mostrar el Login dentro del Form de inicio
        LoginForm1.ShowDialog()
        If EsOk = False Then End
 
' ....instrucciones de inicio
 
End Sub
 

[Bazookao]

muchas gracias por el codigo

mmm pero si quisiera hacer lo mismo con una DB en acces 2007??

[Avellaneda]

Iniciado por Bazookao

muchas gracias por el codigo

mmm pero si quisiera hacer lo mismo con una DB en acces 2007??

Es igual, sólo cambia la cadena de conexión:

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=x:\Ruta\BD2007.accdb;Persist Security Info=False"

[Bazookao]

mmm mo em a funcionado el uso en acces 2007
pongo la cadena de conexion pero me dice que provider es una palabra clave no permitida
que hago?

[Trulala de cordoba]

Hola.
Si vas a usar access debes usar OleDb, por lo tanto a todos los tipos datos SQL de tu codigo debes cambiarle el Sql por OleDb:

SqlConnection lo debes cambiar por OleDbConnection

SqlCommand lo cambias por OleDbCommand
y así.

Podes ver si queres ejemplo de acceso a datos con access acá:
http://www.startvbdotnet.com/ado/msaccess.aspx

[sabao]

Iniciado por Avellaneda

Prueba así:

Código vb.net:

Imports System.Data.SqlClient
 
Public Class LoginForm1
    Dim cont As Int32 = 0
    ' conexión a una BD SQLExpress
    Dim con As New SqlConnection("Server=.\SQLEXPRESS;Integrated Security=True;Database=BaseSQL")
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If VerificarUsuario(UsernameTextBox.Text, PasswordTextBox.Text) Then
            ' correcto, salimos a True
            EsOk = True
            Me.Close()
        Else
            ' le damos 4 intentos y si no, salimos a False
            MsgBox("Usuario o contraseña incorrectos" & vbNewLine & "Quedan " & 3 - cont & " intentos")
            cont += 1
        End If
        If cont = 4 Then Me.Close()
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
 
    Private Function VerificarUsuario(ByVal ElUser As String, ByVal ElPass As String) As Boolean
        Dim dr As SqlDataReader
        Dim strSQL As String = "SELECT * FROM Usuarios Where Nombre = '" & ElUser & "' And Pass = '" & ElPass & "'"
        con.Open()
        Dim cmd As New SqlCommand(strSQL, con)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows = True Then Return True
        con.Close()
    End Function
End Class
 

En el Load del form de inicio:

Código vb.net:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show() ' si quieres mostrar el Login dentro del Form de inicio
        LoginForm1.ShowDialog()
        If EsOk = False Then End
 
' ....instrucciones de inicio
 
End Sub
 

Hola el primer codigo donde lo coloco.. sera en login.aspx, lo otro como direcciono ala pagina que esta dentro del sistema o sea cuando el user es valido..
necesito orientacion, saludos

[dwaks]

Creo que la meta real de este proceso no es que copies y pegues y funcione, la meta es que entiendas cada paso que te brindan en el código para que después hagas las cosas por tu cuenta.

Te dejo este artículo que habla sobre como trabajar con bases de datos desde .NET:
http://www.dotnetpanama.com/dotnetpa...os-en-NET.aspx

También te dejo este otro que explica porque se debe cerrar una conección a la base de datos siempre:
http://www.dotnetpanama.com/dotnetpa...-de-datos.aspx

Lee los artículos y aprende las cosas como se hacen, tienes el ejemplo que te dejo Avellaneda que es claro. Creeme Avellaneda se sentira mejor sabiendo que aprendiste a viendote siempre preguntando por código.

Saludos,