Como hacer Login En VB2005 - VB-MUNDO

elcientifico · #1 (**permalink**) 22-03-2007, 00:35:49

Necesito su ayuda para crear login en vb 2005 ya tengo los formularios hechos y la conexion a la base de datos pero no se como validar a los usuarios cuando aga clic a login. thanks.

Posteare la imagen del login...

Javier2315 · #2 (**permalink**) 22-03-2007, 15:37:38

hola, prueba con esto (con una bd Sql)

'

Código:

'''' en el evento Load del Form:
Dim Usuarios As String = "SELECT Usuario,Password FROM Password ORDER BY Usuario"
Dim Adaptador_Usuarios As New SqlDataAdapter(Usuarios, My.Settings.Base_DatosConnectionString)
Tabla_Usuarios = New DataTable
Adaptador_Principales.Fill(Tabla_Usuarios)
'----
'---
'--- yo te aconsejo que los usuarios vayan en un combobox para que solo el Usuario seleccione uno el combo
'Preguntamos si hay registros en la tabla
If Tabla_Usuarios.Rows.Count <> 0 Then
  For I As Short = 0 To Tabla_Usuarios.Rows.Count - 1
     Me.CboUsuarios.Items.Add (Tabla_Usuarios.Rows(I).Item(0))
  Next
End If

''''' en el evento click del Button:
If Me.TxPassword.Text = Tabla_Usuarios.Rows(Me.CboUsuarios.SelectIndex).Item(1).ToString Then
   Messagebox.Sow ("Bienvenido(a) :" & Me.CboUsuarios.Text, "Titulo", -->los demas controles
Else
   Messagebox.Sow ("Password Incorrecto, por favor ingrese su Password", "Titulo", -->los demas controles
End If

Para que estés seguro primero antes de validar el textbox password asegurate que el combo esté seleccionado, espero te sirva nos vemos.

PD. en el combo cambia su propiedad DropDownStyle a DropDownList y My.Settings.Base_DatosConnectionString contiene el connection a mi bd.

Pruebalo y nos comentas, nos vemos

nestor_vbasic · #3 (**permalink**) 09-05-2007, 15:46:29

Gracias loco me has ayudado mucho!!!!

ROBOT · #4 (**permalink**) 30-04-2008, 07:43:22

A mi tambien me interesa saber como hacer un login pero ligado a una base de datos en access

alguien que haga el favor de postear un ejemplo, se lo agradeceria mucho!!!!

GRACIAS!!!

coyotevdm · #5 (**permalink**) 01-05-2008, 18:28:17

Esto es lo que utilizo yo para hacer un login desde una base de datos. utilizo el formulario login q este seria su codigo y una clase clsusuario q esta mas adelante.

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butOK.Click
Static n_intentos As Single = 1
gclsUsuario.Clave = txtPass.Text
gclsUsuario.Usuario = txtUser.Text
gclsUsuario.Conexion = gclsConexion.Conexion
If n_intentos < 3 Then
If gclsUsuario.Usuario_OK = True Then
Me.Close()
Else
MessageBox.Show("Error!!!!, Nombre de usuario, contraseÃ±a incorrecto.", "Error!!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtPass.Text = ""
txtPass.Focus()
n_intentos += 1
End If
Else
MessageBox.Show("Error, Ha superado el nÂº mÃ¡ximo de intentos para acceder, " _
& "su cuenta ha sido bloqueada!!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
gclsUsuario.Bloquear_Cuenta_Usuario(txtUser.Text)
Application.Exit()
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butCancel.Click
Application.Exit()
End Sub
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler gclsUsuario.cuenta_bloqueada, AddressOf cuenta_bloqueada
End Sub
Public Sub cuenta_bloqueada()
MsgBox("Su cuenta esta bloqueada", MsgBoxStyle.Critical, "Cuenta bloqueada")
Application.Exit()
End Sub
End Class

-----------Esta es la clase usuario--------------

Private sClave As String
Public Property Clave() As String
Get
Return sClave
End Get
Set(ByVal value As String)
sClave = value
End Set
End Property
Public Function Usuario_OK() As Boolean
Dim sConstructor As New System.Text.StringBuilder("")
sConstructor.Append("SELECT * FROM USUARIO WHERE usuario='")
sConstructor.Append(sUsuario)
sConstructor.Append("' AND password='")
sConstructor.Append(sClave)
sConstructor.Append("'")

Dim UsuarioAdapter As New MySqlDataAdapter(sConstructor.ToString, cnConexion)
Dim TablaUsuarios As New DataTable
UsuarioAdapter.Fill(TablaUsuarios)
If TablaUsuarios.Rows.Count > 0 Then
If CDbl(TablaUsuarios.Rows(0).Item("bloqueado").ToStr ing) = 0 Then
sRol = CInt(TablaUsuarios.Rows(0).Item("cod_categoria").T oString)
Return True
Else
RaiseEvent cuenta_bloqueada()
End If
Else
Return False
End If
End Function
Public Sub Bloquear_Cuenta_Usuario(ByVal usuario As String)
Dim sconstructor As New System.Text.StringBuilder("")
sconstructor.Append("UPDATE usuario SET usuario.bloqueado = 1 WHERE usuario.usuario='")
sconstructor.Append(sUsuario)
sconstructor.Append("';")
Dim comando As New MySqlCommand
comando.Connection = cnConexion
comando.CommandType = CommandType.Text
comando.CommandText = sconstructor.ToString
Try
comando.ExecuteNonQuery()
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub

Bueno, esta claro que tendras que hacer muchisimas modificaciones y todo eso. pero al menos espero que te sirva de idea.

ROBOT · #6 (**permalink**) 04-05-2008, 06:15:25

Cita:

Empezado por coyotevdm

Esto es lo que utilizo yo para hacer un login desde una base de datos. utilizo el formulario login q este seria su codigo y una clase clsusuario q esta mas adelante.

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butOK.Click
Static n_intentos As Single = 1
gclsUsuario.Clave = txtPass.Text
gclsUsuario.Usuario = txtUser.Text
gclsUsuario.Conexion = gclsConexion.Conexion
If n_intentos < 3 Then
If gclsUsuario.Usuario_OK = True Then
Me.Close()
Else
MessageBox.Show("Error!!!!, Nombre de usuario, contraseÃ±a incorrecto.", "Error!!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtPass.Text = ""
txtPass.Focus()
n_intentos += 1
End If
Else
MessageBox.Show("Error, Ha superado el nÂº mÃ¡ximo de intentos para acceder, " _
& "su cuenta ha sido bloqueada!!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
gclsUsuario.Bloquear_Cuenta_Usuario(txtUser.Text)
Application.Exit()
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butCancel.Click
Application.Exit()
End Sub
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler gclsUsuario.cuenta_bloqueada, AddressOf cuenta_bloqueada
End Sub
Public Sub cuenta_bloqueada()
MsgBox("Su cuenta esta bloqueada", MsgBoxStyle.Critical, "Cuenta bloqueada")
Application.Exit()
End Sub
End Class

-----------Esta es la clase usuario--------------

Private sClave As String
Public Property Clave() As String
Get
Return sClave
End Get
Set(ByVal value As String)
sClave = value
End Set
End Property
Public Function Usuario_OK() As Boolean
Dim sConstructor As New System.Text.StringBuilder("")
sConstructor.Append("SELECT * FROM USUARIO WHERE usuario='")
sConstructor.Append(sUsuario)
sConstructor.Append("' AND password='")
sConstructor.Append(sClave)
sConstructor.Append("'")

Dim UsuarioAdapter As New MySqlDataAdapter(sConstructor.ToString, cnConexion)
Dim TablaUsuarios As New DataTable
UsuarioAdapter.Fill(TablaUsuarios)
If TablaUsuarios.Rows.Count > 0 Then
If CDbl(TablaUsuarios.Rows(0).Item("bloqueado").ToStr ing) = 0 Then
sRol = CInt(TablaUsuarios.Rows(0).Item("cod_categoria").T oString)
Return True
Else
RaiseEvent cuenta_bloqueada()
End If
Else
Return False
End If
End Function
Public Sub Bloquear_Cuenta_Usuario(ByVal usuario As String)
Dim sconstructor As New System.Text.StringBuilder("")
sconstructor.Append("UPDATE usuario SET usuario.bloqueado = 1 WHERE usuario.usuario='")
sconstructor.Append(sUsuario)
sconstructor.Append("';")
Dim comando As New MySqlCommand
comando.Connection = cnConexion
comando.CommandType = CommandType.Text
comando.CommandText = sconstructor.ToString
Try
comando.ExecuteNonQuery()
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub

Bueno, esta claro que tendras que hacer muchisimas modificaciones y todo eso. pero al menos espero que te sirva de idea.

Wow!! te sacaste un 10 amigo!!,

GRACIAS por tu tiempo y por responder, y ps si tengo problemillas te aviso

sale!!