Find Records Based on RadioButton in VB.Net

[lhbenja02]

In this tutorial, I will teach how to find record based on RadioButton in vb.net. This method has the ability to find records in the database based on the value of the radio button. This is so simple yet very powerful methods that can be learn in few minutes. All you have to do is follow the instructions below to see how it’s done.

Creating Database

Create a database named “profile”
Do the following query to create a table and add the data inside the table.

1. CREATE
   
   TABLE
   
   `profile`
   
   (
   
2. `id`
   
   int
   
   (
   
   100
   
   )
   
   NOT
   
   NULL
   
   ,
   
3. `name`
   
   varchar
   
   (
   
   100
   
   )
   
   DEFAULT
   
   NULL
   
   ,
   
4. `email`
   
   varchar
   
   (
   
   100
   
   )
   
   DEFAULT
   
   NULL
   
   ,
   
5. `photo`
   
   varchar
   
   (
   
   250
   
   )
   
   DEFAULT
   
   NULL
   
   ,
   
6. `joindate`
   
   date
   
   NOT
   
   NULL
   
   
   
7. )
   
   ENGINE
   
   =
   
   MyISAM DEFAULT
   
   CHARSET
   
   =
   
   latin1;
   
8. 
   
9. --
   
10. -- Dumping data for table `profile`
    
11. --
    
12. 
    
13. INSERT
    
    INTO
    
    `profile`
    
    (
    
    `id`
    
    ,
    
    `name`
    
    ,
    
    `email`
    
    ,
    
    `photo`
    
    ,
    
    `joindate`
    
    )
    
    VALUES
    
    
    
14. (
    
    1
    
    ,
    
    'Jaison Joy'
    
    ,
    
    '[email protected]'
    
    ,
    
    'http://jaisonjoy.com//image/man.png'
    
    ,
    
    '2019-01-01'
    
    )
    
    ,
    
15. (
    
    2
    
    ,
    
    'Vini'
    
    ,
    
    '[email protected]'
    
    ,
    
    'http://jaisonjoy.com/image/female.png'
    
    ,
    
    '2019-01-15'
    
    )
    
    ,
    
16. (
    
    3
    
    ,
    
    'John'
    
    ,
    
    '[email protected]'
    
    ,
    
    'http://jaisonjoy.com/image/male.png'
    
    ,
    
    '2019-02-03'
    
    )
    
    ,
    
17. (
    
    4
    
    ,
    
    'Test'
    
    ,
    
    'Test'
    
    ,
    
    NULL
    
    ,
    
    '2019-02-14'
    
    )
    
    ,
    
18. (
    
    5
    
    ,
    
    'test2'
    
    ,
    
    'Test2'
    
    ,
    
    NULL
    
    ,
    
    '2019-02-14'
    
    )
    
    ;
    

Creating Application

Step 1

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

Step 2

Do the form just like shown below.

Step 3

Go to the code view and add a namespace for mysql above the class.

1. Imports MySql.Data.MySqlClient
   

Step 4

Inside the class, create a connection between MySQL and Visual Basic 2015. After that, declare all the classes that are needed.

1. Dim
   
   con As
   
   MySqlConnection = New
   
   MySqlConnection("server=localhost;user id=root;password=;database=profile;sslMode=none"
   
   )
   
2. Dim
   
   cmd As
   
   MySqlCommand
   
3. Dim
   
   da As
   
   MySqlDataAdapter
   
4. Dim
   
   dt As
   
   DataTable
   
5. Dim
   
   sql As
   
   String
   

Step 5

Create a sub procedure for retrieving data in the database

1. 
   
2. Private
   
   Sub
   
   findData(sql As
   
   String
   
   , dtg As
   
   DataGridView)
   
3. Try
   
4. con.Open
   
   ()
   
5. cmd = New
   
   MySqlCommand
   
6. With
   
   cmd
   
7. .Connection = con
   
8. .CommandText = sql
   
9. End
   
   With
   
10. da = New
    
    MySqlDataAdapter
    
11. da.SelectCommand = cmd
    
12. dt = New
    
    DataTable
    
13. da.Fill(dt)
    
14. dtg.DataSource = dt
    
15. Catch ex As
    
    Exception
    
16. MsgBox(ex.Message)
    
17. Finally
    
18. con.Close
    
    ()
    
19. da.Dispose()
    
20. End
    
    Try
    
21. End
    
    Sub
    

Step 6
Do the following codes for retrieving data in the first load of the form.

1. Private
   
   Sub
   
   Form1_Load(sender As
   
   Object
   
   , e As
   
   EventArgs) Handles MyBase.Load
   
2. sql = "SELECT `id` as 'ID', `name` as 'NAME', `gender` as 'Sex', `email` as 'E-MAIL', `photo` as 'Image', `joindate` As 'JoinDate' FROM `profile`"
   
3. findData(sql, dtgList)
   
4. End
   
   Sub
   

Step 7
Do the following codes for finding records when the radio button is checked.

1. Private
   
   Sub
   
   rdoMale_Click(sender As
   
   Object
   
   , e As
   
   EventArgs) Handles rdoMale.Click, rdoFemale.Click
   
2. If
   
   rdoFemale.Checked = True
   
   Then
   
3. sql = "SELECT `id` as 'ID', `name` as 'NAME', `gender` as 'Sex', `email` as 'E-MAIL', `photo` as 'Image', `joindate` As 'JoinDate' FROM `profile` WHERE gender='"
   
   & rdoFemale.Text & "'"
   
4. findData(sql, dtgList)
   
5. Else
   
6. sql = "SELECT `id` as 'ID', `name` as 'NAME', `gender` as 'Sex', `email` as 'E-MAIL', `photo` as 'Image', `joindate` As 'JoinDate' FROM `profile` WHERE gender='"
   
   & rdoMale.Text & "'"
   
7. findData(sql, dtgList)
   
8. End
   
   If
   
9. End
   
   Sub
   

For any questions about this article. You can contact me @
Email – [email protected]
Mobile No. – 09305235027 – TNT
Or feel free to comment below.