VB.Net by API/System.Data/DataView — различия между версиями

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

Текущая версия на 12:49, 26 мая 2010

New DataView

  

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