Filtering a Dataset Using Dataview and Select Method in VB.NET

Here we will see how to filter and sort data in a dataset.

Data view holds the filtered or required rows that are been retrieved based upon a particular condition. Here we can get a customized view of a Data Table for Sorting and filtering data.

Program

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")

    Dim con As OleDbConnection = New OleDbConnection(ConnectionString)

    Dim com As OleDbCommand

    Dim oledbda As OleDbDataAdapter

    Dim ds As DataSet

    Dim dt As DataTable

    Dim str As String

    Private Sub btnfilterdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfilterdata.Click

        Try

            con.Open()

            str = "select * from student"

            com = New OleDbCommand(str, con)

            oledbda = New OleDbDataAdapter(com)

            ds = New DataSet

            oledbda.Fill(ds, "student")

            Dim dv As DataView = New DataView(ds.Tables("student"))

            dv.RowFilter = "smarks>70"

            dv.Sort = "smarks asc"

            ListBox1.DataSource = dv

            ListBox1.DisplayMember = "smarks"

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        con.Close()

    End Sub

End Class
 

Output

 
 

Data table Select method accepts a filter and sort argument to return an array.

Program

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")

    Dim con As OleDbConnection = New OleDbConnection(ConnectionString)

    Dim com As OleDbCommand

    Dim oledbda As OleDbDataAdapter

    Dim ds As DataSet

    Dim dt As DataTable

    Dim str As String

    Private Sub btnfilterdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfilterdata.Click

        Try

            con.Open()

            str = "select * from student"

            com = New OleDbCommand(str, con)

            oledbda = New OleDbDataAdapter(com)

            ds = New DataSet

            oledbda.Fill(ds, "student")

            dt = ds.Tables("student")

            Dim s1 As String

            Dim s2 As String

            s1 = "smarks>60"

            s2 = "smarks asc"

            Dim result() As DataRow

            result = dt.Select(s1, s2)

            Dim ctr As Integer

            For ctr = 0 To (result.Length - 1)

                ListBox1.Items.Add(result(ctr)("smarks"))

            Next

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        con.Close()

    End Sub

End Class

Output