How to Create Multi User Login Form in VB.NET using SQL Server Database?

1. Open your Visual Studio and click on File>new project, From the left side of your window, select Visual Basic>Windows and from the middle side select Windows Forms Application and then give the name of your project and then click OK which is shown in below.

2. Drag and drop three Label (for username, password and user type), two TextBox (for letting user to input username and password), one ComboBox (letting user to select the types of user like admin, user etc) and one Button(For login) from the toolbox and change the text and name of these control from the properties of these controls. And from the item properties of ComboBox add the items like admin, user etc. This complete the designing part.

3. To create a database and table in SQL Server Database, open SQL Server application, and Right click over Database and then click new, give the database name whatever you want and click OK. After then expand that Database directory which you can see in the left pane of the SQL Server Studio Software and expand that Database directory and then expand your recently created Database. And then you will see Table directory. Right click that Table Directory click on Table and click OK. You will see the new window which looks like this:

and then give the column name such as username, password, usertype, set the data type as varchar for each column and save that table by pressing ctrl+s and give the table name whatever you want.

And then Right click your Table and then select Edit top 200 Rows click OK and then write the username, password and user type(like admin, user) and click close button; this will save the username password and user type in your table.

4. We need to connect our application to the database for this, click on the Server Explore which is in the right side(may be left side) of the Toolbox in the left pane of your visual studio. And then right click on the Data Connection>Add connection. New window will appear select your Data Source; in our Case Data Source is Microsoft SQL Server. To do this click on change and select Microsoft SQL Server, Click OK. And then New window will appear, select your Server Name your Database Name and click OK.

5. Now Double Click in that Login Button (or right click over your form select view code) and write the following code:

a. import the namespace at the top of your code.

Imports System.Data.SqlClient

b. Inside the clicking event of that login button write the following code:

Dim con As SqlConnection = New SqlConnection("Data Source=RAN-PC;Initial Catalog=vbmultiuser;Integrated Security=True")
Dim cmd As SqlCommand = New SqlCommand("select * from login where username='" & txtUser.Text & "' and password='" & txtPass.Text & "' and usertype='" & cmbUserType.SelectedItem & "'", con)
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable()
sda.Fill(dt)
If (dt.Rows.Count>0) Then

MessageBox.Show(("you are login as " + dt.Rows(0)(2)))

If (ComboBox1.SelectedIndex = 0) Then
Dim a As New Admin
a.Show()
Me.Hide()
Else
Dim u As New User
Me.Hide()
u.Show()
End If

Else

MessageBox.Show("error")

End If

NOTE: Change this code in your context (because your connection string (Data Source = RAN-PC; Initial Catalog = vbmultiuser; Integrated Security = True) is different than mine)

6. Run your project by click the green triangular button, input username and password, select any comboxBox item and click Login. If your provided input is match with the database value you will be able to go to the new form otherwise get message box saying incorrect. That’s it.