VB.Net by API/System.Data/DataViewRowState
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>