Skip to main content

Filtering a Group of Data in VB.Net and SQL Server 2019

Screenshot
Body
In this tutorial, I will teach you how to filter a group of data using VB.Net SQL Server 2019. This method has the ability to filter a group of data in the datagridview with the use of the radio buttons. You can select whether “Firstname”, “Lastname”, or “All” you want to display in the datagridview. I used Microsoft Visual Studio 2015 and SQL Server 2019 to develop this program. Let’s Begin:

Creating Database

1. Install the MSSMS 2019 on your machine. 2. Open the MSSMS 2019 . After that, right click the database, then select “New Database” and name it “dbpersonfig 1 3. Do the following query to create a table in the database that you have created
  1.  
  2. USE [dbperson]
  3. GO
  4.  
  5. /****** Object: Table [dbo].[tblperson] Script Date: 11/10/2019 11:15:11 AM ******/
  6. SET ANSI_NULLS ON
  7. GO
  8.  
  9. SET QUOTED_IDENTIFIER ON
  10. GO
  11.  
  12. CREATE TABLE [dbo].[tblperson](
  13. [PersonID] [INT] IDENTITY(1,1) NOT NULL,
  14. [Fname] [nvarchar](50) NULL,
  15. [Lname] [nvarchar](50) NULL
  16. ) ON [PRIMARY]
  17. GO

Creating Application

Step 1

Open Microsoft Visual Studio 2015 and create a new windows form application for visual basic. ps1

Step 2

Add three RadioButtons, a GroupBox, and a DataGridview inside the Form. Then do the Form just like shown below. fig 2

Step 3

Press F7 to open the code editor. In the code editor, add a namespace to access SQL Server libraries.
  1.  
  2. Imports System.Data.SqlClient

Step 4

Create a connection between Visual Basic 2015 and SQL Server database. After that, declare and initialize all the classes and variables that are needed.
  1.  
  2. Dim con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;Database=dbperson;trusted_connection=true;")
  3. Dim cmd As SqlCommand
  4. Dim da As SqlDataAdapter
  5. Dim dt As DataTable
  6. Dim sql As String

Step 5

Create a method for displaying data in the database and display it in the datagridview.
  1.  
  2. Private Sub displayData(sql As String, dtg As DataGridView)
  3. Try
  4. con.Open()
  5. cmd = New SqlCommand()
  6. da = New SqlDataAdapter
  7. dt = New DataTable
  8.  
  9. With cmd
  10. .Connection = con
  11. .CommandText = sql
  12. End With
  13. With da
  14. .SelectCommand = cmd
  15. .Fill(dt)
  16. End With
  17. dtg.DataSource = dt
  18.  
  19. Catch ex As Exception
  20. MsgBox(ex.Message)
  21. Finally
  22. con.Close()
  23. da.Dispose()
  24. End Try
  25. End Sub

Step 6

Write the following codes to retrieve the data in the datagridview in the first load of the form.
  1.  
  2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3. sql = "SELECT Fname as Firstname, Lname as Lastname FROM tblperson"
  4. displayData(sql, DataGridView1)
  5. End Sub

Step 7

Write the following codes for the selection of data.
  1. 'first name
  2. Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
  3. sql = "SELECT Fname as Firstname FROM tblperson"
  4. displayData(sql, DataGridView1)
  5. End Sub
  6. 'last name
  7. Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
  8. sql = "SELECT Lname as Lastname FROM tblperson"
  9. displayData(sql, DataGridView1)
  10. End Sub
  11. 'all
  12.  
  13. Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
  14. sql = "SELECT Fname as Firstname, Lname as Lastname FROM tblperson"
  15. displayData(sql, DataGridView1)
  16. End Sub
The complete source code is included. You can download it and run it on your computer. For any questions about this article. You can contact me @ Email – [email protected] Mobile No. – 09305235027 – TNT Or feel free to comment below.

Comments

Add new comment