VB.Net by API/System.Data/DataViewRowState

DataViewRowState.CurrentRows

  

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")
      Dim sql As String = "SELECT FirstName, LastName FROM Employee"
      Try
         Dim da As New SqlDataAdapter
         da.SelectCommand = New SqlCommand(sql, thisConnection)
         Dim ds As New DataSet
         da.Fill(ds, "Employee")
         Dim dt As DataTable = ds.Tables("Employee")
         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