Home

Sorting Records

 

Sorting the Records in the Table Window

The lists of records we get with a SELECT statement are presented in the order they have in the table. SQL allows you to arrange records in alphabetical order, in chronological order or in numeric incremental order. After selecting a series of columns, you may want to list the records following an alphabetical order from one specific field. To get an alphabetical or an incremental order of records, you must let the database know what field would be used as reference.

To specify the order, if you are using a table window in Microsoft SQL Server Management Studio or in Microsoft Visual Studio:

  • In the Diagram section, you can right-click a field and select either Sort Ascending or Sort Descending
  • In the Criteria section of the window, under the Sort Type column, click the corresponding box of the desired column. This would reveal that it is a combo box. Then click the arrow of that combo box and make your selection between Ascending and Descending:

Using the Table Window

If you select Ascending or Sort Ascending, the list of records would be re-arranged based on the type of the selected column:

  • If the column is text-based (char, varchar, and their variants), the records would be arranged in alphabetical order
  • If the column is date or time-based (datetime or smalldatetime), the records would be arranged in chronological order
  • If the column is number-based, the records would be arranged in incremental order
  • If the column is Boolean-based (bit), the FALSE records would appear first

If you select Descending or Sort Descending, the list of records would be re-arranged based on the type of the selected column:

  • If the column is text-based (char, varchar, and their variants), the records would be arranged in reverse alphabetical order
  • If the column is date or time-based (datetime or smalldatetime), the records would be arranged in reverse chronological order
  • If the column is number-based, the records would be arranged in decremental order
  • If the column is Boolean-based (bit), the TRUE records would appear first

After selecting the desired Sort Type, you can execute the SQL statement.

Practical LearningPractical Learning: Introducing Data Sorting

  1. Start Microsoft Visual Basic and create a new Windows Application named AltairRealtors4
  2. In the Solution Explorer, right-click Form1.vb and click Rename
  3. Type AltairRealtors.vb and press Enter
  4. Right-click the form and click View Code
  5. Just above the Public Class line, import the System.Data.SqlClient namespace
  6. In the Class Name combo box, select (AltairRealtors Events)
  7. In the Method Name combo box, select Load and implement the event as follows:
    Imports System.Data.SqlClient
    
    Public Class AltairRealtors
    
        Private Sub AltairRealtors_Load(ByVal sender As Object, _
                                        ByVal e As System.EventArgs) _
                                        Handles Me.Load
            Using Connect As SqlConnection = _
      		New SqlConnection("Data Source=(local);" & _
      				  "Integrated Security='SSPI';")
    
                Dim strDatabase As String = "IF EXISTS (" & _
                 		"SELECT * " & _
                 		" FROM sys.databases " & _
                 		" WHERE name = N'AltairRealtors1' " & _
                 		")" & _
                 		"DROP DATABASE AltairRealtors1;" & _
                 		"CREATE DATABASE AltairRealtors1;"
    
                Dim cmdAltairRealtors As SqlCommand = New SqlCommand(strDatabase, _
                Connect)
    
                Connect.Open()
                cmdAltairRealtors.ExecuteNonQuery()
    
                MsgBox("The AltairRealtors1 database has been created")
            End Using
    
            Using Connect As SqlConnection = _
         		New SqlConnection("Data Source=(local);" & _
         				  "Database='AltairRealtors1';" & _
         				  "Integrated Security='SSPI';")
    
                Dim strAltairRealtors As String = _
                 		"CREATE TABLE Properties" & _
                 		"(" & _
                 		"PropertyID int identity(1,1) NOT NULL," & _
                		"PropertyNumber char(6)," & _
                 		"Address varchar(100)," & _
                 		"City varchar(50)," & _
                 		"State char(2)," & _
                 		"ZIPCode varchar(12)," & _
                 		"PropertyType varchar(40)," & _
                 		"Condition varchar(32)," & _
                 		"Bedrooms smallint," & _
                 		"Bathrooms float," & _
                 		"FinishedBasement bit," & _
                 		"IndoorGarage bit," & _
                 		"Stories smallint," & _
                 		"YearBuilt smallint," & _
                 		"MarketValue money" & _
                               ");"
    
                Dim cmdAltairRealtors As SqlCommand = _
          		 New SqlCommand(strAltairRealtors, _
          				Connect)
    
                Connect.Open()
                cmdAltairRealtors.ExecuteNonQuery()
    
                MsgBox("The Properties table has been created")
            End Using
    
            Using Connect As SqlConnection = _
    	      New SqlConnection("Data Source=(local);" & _
          				"Database='AltairRealtors1';" & _
          				"Integrated Security='SSPI';")
    
                Dim strAltairRealtors As String = _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
         "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
               "VALUES('524880', '1640 Lombardo Ave', 'Silver Spring', 'MD'," & _
         "'20904', 'Single Family', 'Good', 4, 2.5, 3, 1, 3, 1995, 495880.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
           "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
               "VALUES('688364', '10315 North Hacht Rd', 'College Park', 'MD'," & _
                "'20747', 'Single Family', 'Excellent', 4, 3.5, 3," & _
                "1, 2, 2000, 620724.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, FinishedBasement," & _
                "Stories, MarketValue)" & _
                "VALUES('611464', '6366 Lolita Drive', 'Laurel', 'MD'," & _
                "'20707', 'Single Family', 'Good', 1, 2, 422625.00);" & _
                          "" & _
                "INSERT INTO Properties(Address, City, PropertyType," & _
                "Bedrooms, MarketValue)" & _
                "VALUES('9002 Palasko Hwy', 'Tysons Corner'," & _
                "'Condominium', 2, 422895.00);" & _
                          "" & _
                "INSERT INTO Properties(PropertyNumber, State," & _
                "ZIPCode, Bedrooms, YearBuilt, MarketValue)" & _
                "VALUES('420115', 'DC'," & _
                "'20011', 2, 1982, 312555);" & _
                          "" & _
                "INSERT INTO Properties(PropertyNumber, City, ZIPCode," & _
                "PropertyType, Bedrooms, YearBuilt, MarketValue)" & _
                "VALUES('917203', 'Alexandria', '22024'," & _
                "'Single Family', 3, 1965, 345660.00);" & _
                          "" & _
                "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "PropertyType, Condition, Bedrooms, Bathrooms, MarketValue)" & _
                "VALUES('200417', '4140 Holisto Crt', 'Germantown', 'MD'," & _
                "'Condominium', 'Excellent', 2, 1, 215495.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
           "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
           "VALUES('927474', '9522 Lockwood Rd', 'Chevy Chase', 'MD'," & _
                "'20852', 'Townhouse', 'Bad Shape', 3, 2.5, 3, 0, 3," & _
                "1992, 415665.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
           "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
                "VALUES('207850', '14250 Parkdoll Rd', 'Rockville', 'MD'," & _
                "'20854', 'Townhouse', 'Good', 3, 2.5, 2, 1, 2," & _
                "1988, 325995.00);" & _
                          "" & _
                "INSERT INTO Properties(City, PropertyType, Bedrooms," & _
                "YearBuilt, MarketValue)" & _
                "VALUES('Washington', 'Townhouse', 4, 1975, 366775.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
                "YearBuilt, MarketValue)" & _
          "VALUES('288540', '10340 Helmes Street #408', 'Silver Spring', 'MD'," & _
                "'20906', 'Condominium', 'Good', 1, 1, 2000, 242775.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
          "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
               "VALUES('247472', '1008 Coppen Street', 'Silver Spring', 'MD'," & _
                "'20906', 'Single Family', 'Excellent'," & _
                "3, 3, 3, 1, 3, 1996, 625450.00);" & _
                          "" & _
                "INSERT INTO Properties(City, ZIPCode, PropertyType, " & _
                "Stories, YearBuilt, MarketValue)" & _
                "VALUES('Chevy Chase', '20956', 'Single Family', " & _
                "3, 2001, 525450.00);" & _
                          "" & _
                "INSERT INTO Properties(Address, City, State," & _
                "PropertyType, Condition, Bedrooms, MarketValue)" & _
                "VALUES('686 Herod Ave #D04', 'Takoma Park', 'MD'," & _
                "'Condominium', 'Excellent', 2, 360885.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
            "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
                "VALUES('297446', '14005 Sniders Blvd', 'Laurel', 'MD'," & _
                "'20707', 'Townhouse', 'Needs Repair'," & _
                "4, 1.5, 3, 1, 2, 2002, 412885.00);" & _
                          "" & _
               "INSERT INTO Properties(City, ZIPCode, Condition, Bedrooms," & _
                "Stories, YearBuilt)" & _
                "VALUES('Silver Spring', '20905', 'Good'," & _
                "4, 2, 1965);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
           "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
                "VALUES('924792', '680 Prushia Rd', 'Washington', 'DC'," & _
                "'20008', 'Single Family', 'Good'," & _
                "5, 3.5, 3, 0, 3, 2000, 555885.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
           "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
           "VALUES('294796', '14688 Parrison Street', 'College Park', 'MD'," & _
                "'20742', 'Single Family', 'Excellent'," & _
                "5, 2.5, 2, 1, 2, 1995, 485995.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
                "YearBuilt, MarketValue)" & _
               "VALUES('811155', '10340 Helmes Street #1012', 'Silver Spring'," & _
                "'MD', '20906', 'Condominium', 'Good'," & _
                "1, 1, 2000, 252775.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
           "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
               "VALUES('447597', '4201 Vilamar Ave', 'Hyattsville', 'MD'," & _
                "'20782', 'Townhouse', 'Excellent'," & _
                "3, 2, 2, 1, 3, 1992, 365880.00);" & _
                          "" & _
                "INSERT INTO Properties(Address, ZIPCode, Bathrooms)" & _
                "VALUES('1622 Rombard Str', 20904, 2.5);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
           "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
               "VALUES('297415', '980 Phorwick Street', 'Washington', 'DC'," & _
                "'20004', 'Single Family', 'Good'," & _
                "4, 3.5, 3, 3, 1, 2004, 735475.00);" & _
                          "" & _
               "INSERT INTO Properties(PropertyNumber, Address, City, State," & _
                "ZIPCode, PropertyType, Condition, Bedrooms, Bathrooms," & _
           "FinishedBasement, IndoorGarage, Stories, YearBuilt, MarketValue)" & _
               "VALUES('475974', '9015 Marvin Crow Ave', 'Gaithersburg', 'MD'," & _
                "'20872', 'Single Family', 'Needs Repair'," & _
                "4, 2.5, 3, 1, 1, 1965, 615775.00);"
    
                Dim cmdAltairRealtors As SqlCommand = _
                 New SqlCommand(strAltairRealtors, _
                Connect)
    
                Connect.Open()
                cmdAltairRealtors.ExecuteNonQuery()
    
                MsgBox("Some records have been created in the Properties table.")
            End Using
        End Sub
    End Class
  8. Execute the application
  9. Close the form and return to your programming environment
  10. Return to the form (or display the form)
  11. From the Menu & Toolbars section of the Toolbox, click ContextMenuStrip and click the form
  12. Name it cmnProperties
  13. Create the menu items as follows:
     
    Text (Name) Image
    Filter by &Selection mnuFilterBySelection filtsel.ico 
    Filter &Excluding Selection mnuFilterExclSel filtexcl.ico 
    Separator    
    Sort &Ascending mnuSortAscending Ascending.ico 
    Sort &Descending mnuSortDescending Descending.ico 
    Separator    
    &Remove Filter/Sort  mnuRemoveFilterSort rmvfiltsrt.ico 
  14. Design the form as follows:
     
    Solas Property Rental: Form Design
    Control Text Name Other Properties
    DataGridView   dgvProperties Anchor: Top, Bottom, Left, Right
    ContextMenuStrip: cmnProperties
    GroupBox Fields to Show grpFieldsToShow Anchor: Bottom, Left, Right
    RadioButton Show all Fields rdoShowAllFields  
    RadioButton Show Only rdoShowSomeFields  
    CheckedListBox   clbColumns CheckOnClick: True
    MultiColumn: True
    Anchor: Bottom, Left, Right
    Button Execute btnExecute Anchor: Bottom, Right
    Button Close btnClose Anchor: Bottom, Right
  15. Right-click the form and click View Code
  16. Change the Load event as follows:
    Private Sub AltairRealtors_Load(ByVal sender As Object, _
                                    ByVal e As System.EventArgs) _
                                    Handles Me.Load
        Using Connect As SqlConnection = _
    	  New SqlConnection("Data Source=(local);" & _
          			    "Database='AltairRealtors1';" & _
          			    "Integrated Security='SSPI';")
    
            Dim strSelect As String = "SELECT * FROM Properties;"
    
            Dim cmdProperties As SqlCommand = _
                        New SqlCommand(strSelect, _
            		           Connect)
            Dim sdaProperties As SqlDataAdapter = _
                 New SqlDataAdapter(cmdProperties)
            Dim bsProperties As BindingSource = New BindingSource
    
            Dim dsProperties As DataSet = New DataSet("PropertiesSet")
            sdaProperties.Fill(dsProperties)
    
            Connect.Open()
            bsProperties.DataSource = dsProperties.Tables(0)
    
            dgvProperties.DataSource = bsProperties
            For Each col As DataColumn In dsProperties.Tables(0).Columns
                clbColumns.Items.Add(col.ColumnName)
            Next
        End Using
    
        rdoShowAllFields.Checked = True
    End Sub
  17. In the Class Name combo box, select btnExecute
  18. In the Method Name combo box, select Click and implement the event as follows:
    Private Sub btnExecute_Click(ByVal sender As Object, _
                                 ByVal e As System.EventArgs) _
                                 Handles btnExecute.Click
        Using Connect As SqlConnection = _
    	 New SqlConnection("Data Source=(local);" & _
         			   "Database='AltairRealtors1';" & _
         			   "Integrated Security='SSPI';")
    
            Dim strColumns As String = ""
    
            For Each str As String In clbColumns.CheckedItems
                strColumns = strColumns & ", " & str
            Next
    
            Dim strResult As String
    
            If rdoShowAllFields.Checked = True Then
                strResult = "SELECT * FROM Properties"
            Else
                strResult = "SELECT " & _
                            strColumns.Substring(1) & _
                            " FROM Properties"
            End If
    
            Dim cmdProperties As SqlCommand = _
                New SqlCommand(strResult, Connect)
            Dim sdaProperties As SqlDataAdapter = _
                 New SqlDataAdapter(cmdProperties)
            Dim bsProperties As BindingSource = New BindingSource
    
            Dim dsProperties As DataSet = New DataSet("PropertiesSet")
            sdaProperties.Fill(dsProperties)
    
            Connect.Open()
            bsProperties.DataSource = dsProperties.Tables(0)
    
            dgvProperties.DataSource = bsProperties
        End Using
    End Sub
  19. In the Class Name combo box, select clbColumns
  20. In the Method Name combo box, select SelectedIndexChanged and implement the event as follows:
    Private Sub clbColumns_SelectedIndexChanged(ByVal sender As Object, _
                                           ByVal e As System.EventArgs) _
                                  Handles clbColumns.SelectedIndexChanged
        If clbColumns.CheckedItems.Count < 1 Then
            rdoShowAllFields.Checked = True
        Else
            rdoShowSomeFields.Checked = True
        End If
    End Sub
  21. In the Class Name combo box, select btnClose
  22. In the Method Name combo box, select Click and implement the event as follows:
    Private Sub btnClose_Click(ByVal sender As Object, _
                               ByVal e As System.EventArgs) _
                               Handles btnClose.Click
        End
    End Sub
  23. Execute the application to see the result
     
    Altair Realtors
  24. Click a few check boxed in the bottom control
  25. Click the Execute button
     
    Altair Realtors
  26. Close the form and return to your programming environment

Sorting the Records in SQL

In SQL, to specify the sorting order, use the ORDER BY expression. The formula to follow is:

SELECT What FROM WhatObject ORDER BY WhatField;

The column used as the basis must be recognized as part of the selected columns. For example, to get a list of students in alphabetical order based on the LastName column, you can use the following statement:

SELECT FirstName, 
       LastName, 
       DateOfBirth, 
       Sex
FROM Students
ORDER BY LastName;

This would produce:

Using the SQL

In the same way, you can get the list of girls followed by the list of boys by ordering the list in alphabetical order based on the Sex column. The statement to get this result can be written as follows:

SELECT FirstName, LastName, Gender, EmailAddress
FROM Students
ORDER BY Gender

As another example, to list all students arranged in alphabetical order by their last name, you can change the statement as follows:

SELECT * FROM Students
ORDER BY LastName

By default, records are ordered in Ascending order. Nevertheless, the Ascending order is controlled using the ASC keyword specified after the based field. For example, to sort the last names in Ascending order including the first and last names, you would use a statement as follows:

SELECT * FROM Students
ORDER BY LastName ASC

On the other hand, if you want to sort records in reverse order, you can use the DESC keyword instead. It produces the opposite result to the ASC effect. Here is an example:

SELECT FirstName,
       LastName,
       Gender,
       ParentsNames,
       SPHome
FROM Students
ORDER BY LastName DESC;

This would produce:

Sorting Records

Practical LearningPractical Learning: Sorting the Records

  1. Change the design of the form as follows:
     
    Solas Property Rental: Form Design
    Control Text Name Other Properties
    Label Arrange    
    ComboBox   cbxColumns DropDownStyle: DropDownList
    Label in    
    ComboBox   cbxAscendingDescending DropDownStyle: DropDownList
    Items:
    Ascending Order
    Descending Order
  2. Right-click the form and click View Code
  3. Change the Load event as follows:
    Private Sub AltairRealtors_Load(ByVal sender As Object, _
                                    ByVal e As System.EventArgs) _
                                    Handles Me.Load
        ' Open a connection to the database
        Using Connect As SqlConnection = _
    	 New SqlConnection("Data Source=(local);" & _
         			   "Database='AltairRealtors1';" & _
         			   "Integrated Security='SSPI';")
    
            ' This statement creates a list of all properties
            Dim strSelect As String = "SELECT * FROM Properties;"
            ' This data set will hold the tables of the database
            Dim dsProperties As DataSet = New DataSet("PropertiesSet")
    
            ' Create a command to perform on the connection
            Dim cmdProperties As SqlCommand = _
            New SqlCommand(strSelect, _
                           Connect)
    
            ' Create a data adapter that will populate the data set
            Dim sdaProperties As SqlDataAdapter = _
        	         New SqlDataAdapter(cmdProperties)
    
            ' Create a binding source
            Dim bsProperties As BindingSource = New BindingSource
    
            ' Fill the data set with the values
            sdaProperties.Fill(dsProperties)
    
            ' Open the connection
            Connect.Open()
    
            ' Get the table from the data set
            Dim tblProperties As DataTable = dsProperties.Tables(0)
            ' Assign that table to the binding source
            bsProperties.DataSource = tblProperties
    
            ' Apply that binding source to the data grid view
            dgvProperties.DataSource = bsProperties
    
            ' Get a list of the columns of the table and
            ' put them the names of those columns in the checked list box
            For Each col As DataColumn In dsProperties.Tables(0).Columns
                clbColumns.Items.Add(col.ColumnName)
                cbxColumns.Items.Add(col.ColumnName)
            Next
    
            rdoShowAllFields.Checked = True
            cbxColumns.SelectedIndex = 0
            cbxAscendingDescending.SelectedIndex = 0
        End Using
    End Sub
  4. Change the code of the Click event of the Execute button as follows:
    Private Sub btnExecute_Click(ByVal sender As Object, _
                                 ByVal e As System.EventArgs) _
                                 Handles btnExecute.Click
            
        ' Open a connection to the database
        Using Connect As SqlConnection = _
    	      New SqlConnection("Data Source=(local);" & _
            	  	        "Database='AltairRealtors1';" & _
             			"Integrated Security='SSPI';")
    
            ' Get the list of columns checked in the list box
            ' and put it in the Arrange combo box
            Dim strColumns As String = ""
    
            For Each str As String In clbColumns.CheckedItems
                strColumns = strColumns + ", " & str
            Next
    
            ' Find out what radio button is selected and use it
            ' to know what column(s) will be used
            Dim strResult As String = ""
    
            If rdoShowAllFields.Checked = True Then
                strResult = "SELECT * FROM Properties"
            Else
                strResult = "SELECT " & _
    	                strColumns.Substring(1) & _
                	        " FROM Properties"
            End If
    
            ' Find out what sort order is selected and apply it
            If cbxAscendingDescending.Text = "Ascending Order" Then
                strResult = strResult + " ORDER BY " & cbxColumns.Text & " ASC;"
            Else
                strResult = strResult + " ORDER BY " & cbxColumns.Text & " DESC;"
            End If
    
            ' Create a command to execute on the database
            Dim cmdProperties As SqlCommand = _
         		New SqlCommand(strResult, Connect)
            ' Create a data adapter that will populate the data set
            Dim sdaProperties As SqlDataAdapter = _
     	           New SqlDataAdapter(cmdProperties)
            ' Create a binding source
            Dim bsProperties As BindingSource = New BindingSource
            ' Create a data set
            Dim dsProperties As DataSet = New DataSet("PropertiesSet")
    
            ' Fill the data set with the records in the data adapter
            sdaProperties.Fill(dsProperties)
    
            ' Open the connection
            Connect.Open()
            ' Assign the Properties table to the binding source
            bsProperties.DataSource = dsProperties.Tables(0)
    
            ' Assign the binding source to the data grid view
            dgvProperties.DataSource = bsProperties
        End Using
    End Sub
  5. Change the code of the SelectedIndexChanged event of the checked list box as follows:
    Private Sub clbColumns_SelectedIndexChanged(ByVal sender As Object, _
                                                ByVal e As System.EventArgs) _
                                       Handles clbColumns.SelectedIndexChanged
        ' This list will hold the names of checked columns in the list box
        Dim lstColumns As List(Of String) = New List(Of String)
    
        ' Assist the user with checking the radio buttons
        ' based on the contents of the list box
        If clbColumns.CheckedItems.Count < 1 Then
            rdoShowAllFields.Checked = True
        Else
            rdoShowSomeFields.Checked = True
        End If
    
        ' If the second radio button is selected, get the columns 
        ' checked in the list box and add them to the Arrange combo box
        If rdoShowSomeFields.Checked = True Then
            cbxColumns.Items.Clear()
    
            For Each objItem As Object In clbColumns.CheckedItems
                cbxColumns.Items.Add(objItem)
            Next
            cbxColumns.SelectedIndex = 0
        End If
    End Sub
  6. Execute application and test the form
  7. Close the form and return to your programming environment

Sorting the Records in the Data Grid View

If you use a data grid view in your application, you can sort records without writing a single line of code. To sort the records based on a particular column, click the column header. After clicking for the first time, the column is sorted alphabetically, incrementally, or chronologically and an up-pointing arrow button would appear on the column header. Here is an example on the City column:

Sorting Records Using the Data Grid View

To sort records in reverse order based on a particular column, you can click the column again. Or, you must first click the column header to sort in order, then click the same column header again to reverse. When the records are sorted in reverse, a down-pointing arrow button would appear on the column header. Here is an example on the ZIPCode column:

Sorting Records Using the Data Grid View

Practical LearningPractical Learning: Sorting the Records Using the Data Grid View

  1. In the top section of the file, declare a DataGridViewColumn variable named colSelected:
    Imports System.Data.SqlClient
    
    Public Class AltairRealtors
        Private colSelected As DataGridViewColumn
    
        . . . No Change
  2. In the Load event, initialize the new variable using the default constructor of its class:
    Private Sub AltairRealtors_Load(ByVal sender As Object, _
                                        ByVal e As System.EventArgs) _
                                        Handles Me.Load
            colSelected = New DataGridViewColumn
    
        . . . No Change
  3. In the Class Name combo box, select dgvProperties
  4. In the Method Name combo box, select MouseDown and implement the event as follows:
    Private Sub dgvProperties_MouseDown(ByVal sender As Object, _
                           ByVal e As System.Windows.Forms.MouseEventArgs) _
                                        Handles dgvProperties.MouseDown
        ' Identity the point where the mouse landed
        Dim hti As DataGridView.HitTestInfo = dgvProperties.HitTest(e.X, e.Y)
        ' Create a cell reference based on the coordinates of the mouse
        Dim celSelected As DataGridViewCell = _
    	    dgvProperties.Rows(hti.RowIndex).Cells(hti.ColumnIndex)
    
        ' Just in case the user right-clicked, select that cell
        dgvProperties.CurrentCell = celSelected
    
        ' Identify the selected column and initialize our variable with it
        colSelected = dgvProperties.Columns(hti.ColumnIndex)
    End Sub
  5. In the Class Name combo box, select mnuSortAscending
  6. In the Method Name combo box, select Click and implement the event as follows:
    Private Sub mnuSortAscending_Click(ByVal sender As Object, _
                                       ByVal e As System.EventArgs) _
                                       Handles mnuSortAscending.Click
        ' Since we know what column is going to be used to sort the record, 
        ' synchronize it with the Arrange combo box
        cbxColumns.Text = colSelected.Name
        ' Since the user clicked Ascending, synchronize with the in combo box
        cbxAscendingDescending.SelectedIndex = 0
        ' Sort the records using the data grid view
        dgvProperties.Sort(colSelected, _
                           System.ComponentModel.ListSortDirection.Ascending)
    End Sub
  7. In the Class Name combo box, select mnuSortDescending
  8. In the Method Name combo box, select Click and implement the event as follows:
    Private Sub mnuSortDescending_Click(ByVal sender As Object, _
                                        ByVal e As System.EventArgs) _
                                        Handles mnuSortDescending.Click
        ' Since we know what column is going to be used to sort the record, 
        ' synchronize it with the Arrange combo box
        cbxColumns.Text = colSelected.Name
        ' Since the user clicked Ascending, synchronize with the in combo box
        cbxAscendingDescending.SelectedIndex = 1
        ' Sort the records using the data grid view
        dgvProperties.Sort(colSelected, _
    		       System.ComponentModel.ListSortDirection.Descending)
    End Sub
  9. Execute the application
  10. Right-click a value in a column and sort the records
  11. Close the form and return to your programming environment
 
 

Home Copyright © 2008-2012 FunctionX