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")
' Sql Query
Dim sql As String = "SELECT FirstName, LastName FROM Employee"
Try
' Create Data Adapter
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand(sql, thisConnection)
' Create and fill Dataset
Dim ds As New DataSet
da.Fill(ds, "Employee")
' Get The Data Table
Dim dt As DataTable = ds.Tables("Employee")
' Create Data View
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
|
