VB.Net by API/System.Data/DataViewRowState

Материал из VB Эксперт
Перейти к: навигация, поиск

DataViewRowState.CurrentRows

<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")
     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


 </source>