Como crear un login vb.net y sqlserver
Código básico.
Imports System.Data.SqlClient
Imports System.IO
Public Class LoginForm1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim conexion As New SqlConnection(TextBox1.Text)
Dim command As New SqlCommand("select * from Users where Username = @Username and User_Pass = @User_Pass", conexion)
command.Parameters.Add("@Username", SqlDbType.VarChar).Value = UsernameTextBox.Text
command.Parameters.Add("@User_Pass", SqlDbType.VarChar).Value = PasswordTextBox.Text
Dim adapter As New SqlDataAdapter(command)
Dim table As New DataTable()
adapter.Fill(table)
If table.Rows.Count() <= 0 Then
MessageBox.Show("Username Or Password Are Invalid")
Else
MessageBox.Show("Login Successfully")
Dim frm As New Admin
Me.Hide()
frm.Show()
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Dim lic As New StreamReader("\Cone.txt")
TextBox1.Text = lic.ReadLine
Catch ex As Exception
MsgBox("La conexion aun no a sido creada porfavor configurar")
End Try
End Sub
Private Sub UsernameLabel_Click(sender As Object, e As EventArgs) Handles UsernameLabel.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Conexionfrm.Show()
End Sub
End Class