VB.Net/Database ADO.net/DataView

Create DataView From DataTable

<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 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 Table
        Dim dt As DataTable = ds.Tables("Employee")
        " Create Data View
        Dim dv As New DataView(dt, _
           "FirstName = "Joe"", _
           "FirstName", DataViewRowState.CurrentRows)
        " Display Data In Data View
        For Each row As DataRowView In dv
           For i As Integer = 0 To dv.Table.Columns.Count - 1
              Console.Write(row(i).PadRight(20))
           Next
           Console.WriteLine()
        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>