El Ejemplo sencillo de como hacer un login en VB.Net
Para empezar en el Module1 debes de colocar :
VB.NET:
-
Sub Main()
-
-
Dim frm As New frmLogin
-
If frm.ShowDialog() = DialogResult.OK Then
-
UserActivado = frm.TxtUsuario.Text
-
Else
-
End
-
End If
-
-
Dim frmMain As New frmPrincipal
-
Application.Run(frmMain)
-
End Sub
En el formulario de Login utilizaremos :
Dos cajas de texto = TxtUsuario y TxtPassword
Dos botones = uno de salida y el otro de login donde colocaras esta rutina
Una etiqueta = LblMensaje
VB.NET:
-
Imports System.Data.SqlClient
-
-
Dim usuarioTmp As String = Trim(Me.TxtUsuario.Text)
-
Dim passwordTmp As String = Trim(Me.TxtPassword.Text)
-
Dim cnString As String = "user id=" & DBUser & ";pwd=" & DBPass & ";Data Source=" & DBServer & ";initial catalog=" & DBName & "; persist security info=false"
-
-
If usuarioTmp <> "" And passwordTmp <> "" Then
-
Dim connection As New SqlConnection(cnString)
-
Try
-
connection.Open()
-
Dim command As New SqlCommand("Select Password from Usuarios where usuario='" & usuarioTmp & "' and Password='" & passwordTmp & "'", connection)
-
Dim myPassword As String = Trim(command.ExecuteScalar.ToString)
-
-
'CompareMethod.Text si deseas hacer una comparacion
-
'no importando las mayusculas y minusculas
-
-
If StrComp(myPassword, passwordTmp, CompareMethod.Binary) = 0 Then
-
connection.Close()
-
Me.DialogResult = Windows.Forms.DialogResult.OK
-
If Not Me.Modal Then Me.Close()
-
Else
-
Me.LblMensaje.Text = "Datos no Coinciden "
-
End If
-
Catch ex As Exception
-
Finally
-
If connection IsNot Nothing AndAlso connection.State <> ConnectionState.Closed Then
-
connection.Close()
-
End If
-
End Try
-
End If
gracias por el aporte me ayudo bastante es lo que andaba buscando.
bye. Dtb!
OYES MUCHAS GRACIAS POR EL CODIGO PERO TENGO MUCHISIMOS “ORRORES”
USERACTIVADO NUNCA FUE DECLARODO
OYE SI ME PUDIERAAS MANDAR EL MANUAL COMPLETO COMO HACERLO DESDE CRANDO LOS USUARIOS EN SQL SERVER Y DESPUES LO KE SIGUE SOY NUEVO EN ESTO.ME URGE SERIA MUCHA AYUADA PAR MI DE ANTEMANO ESTARIA MUY AGREDECIDO SE ME LO PUDIERAS MANDAR..ESTOY EN UN PROYECTO EN LA ESCUELA Y NO LOGRO HACERLO..PORFASSS
Disculpa pero te queria pedir un favor…
si me podias mandar la BD que tengas creada al mail..
esque me tira un error en esta parte
#
Dim cnString As String = “user id=” & DBUser & “;pwd=” & DBPass & “;Data Source=” & DBServer & “;initial catalog=” & DBName & “; persist security info=false”
#
soy estudiante de primer año u.u… y tengo que hacer un login con sql server…
la verdad esque estoy recien aprendiendo
espero tu respuesta
Hola amigos hay un ejemplo mas completo y con los archivos del código
http://ayuda.fotopex.com/programacion/net/login-en-vbnet-y-ms-access/