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
