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
|