DataViewRowState.CurrentRows : DataViewRowState « System.Data « VB.Net by API

1. VB.Net by API
2. System.Data
3. 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

   
    
  

Related examples in the same category