VB.Net/Database ADO.net/Filter

Use Filter to filter Data Table

<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.SqlClient

public class MainClass

  Shared Sub Main()
     Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
         "integrated security=sspi;database=MyDatabase")
     " Sql Query 
     Dim sql As String = "SELECT ID, FirstName, LastName FROM Employee"
     Try
        " Create Data Adapter
        Dim da As New SqlDataAdapter
        da.SelectCommand = New SqlCommand(sql, thisConnection)
        " Create and fill Dataset
        Dim ds As New DataSet
        da.Fill(ds, "Employee")
        " Get the Data Tables Collection
        Dim dtc As DataTableCollection = ds.Tables
        " Get and Display First Data Table
        " 1. Display header
        Console.WriteLine("Results From Employee Table")
        Console.WriteLine("FirstName".PadRight(25) & " | LastName")
        " 2. Set display filter
        Dim filter1 As String = "FirstName = "Joe""
        " 3. Set sort
        Dim sort1 As String = "LastName asc"
        " 4. Display filtered and sorted data
        For Each row As DataRow In dtc("Employee").Select(filter1, sort1)
           Console.WriteLine("{0} | {1}", _
              row("FirstName").ToString().PadRight(25), _
              row("LastName"))
        Next

     Catch ex As SqlException
        " Display error
        Console.WriteLine("Error: " & ex.ToString())
     Finally
        " Close Connection
        thisConnection.Close()
        Console.WriteLine("Connection Closed")
     End Try
  End Sub

End Class

      </source>