VB.Net by API/System.Data/DataView — различия между версиями
Admin (обсуждение | вклад) м (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