Login en VB.NET y MsSQL
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
Categories: .NET
gracias por el aporte me ayudo bastante es lo que andaba buscando.
bye. Dtb!