Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class MainClass
Public Shared Sub Main()
Using con As New SqlConnection
con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI"
Using com As SqlCommand = con.CreateCommand
com.CommandType = CommandType.Text
com.CommandText = "SELECT e.BirthDate,c.FirstName,c.LastName FROM HumanResources.Employee e INNER JOIN Person.Contact c ON e.EmployeeID=c.ContactID ORDER BY e.BirthDate;SELECT * FROM HumanResources.Employee"
con.Open()
Using reader As SqlDataReader = com.ExecuteReader
While reader.Read
Console.WriteLine(" {0,18:D} - {1} {2}", reader.GetDateTime(0), reader("FirstName"), reader(2))
End While
If (reader.NextResult()) Then
For field As Integer = 0 To reader.FieldCount - 1
Console.WriteLine(" Column Name:{0} Type:{1}", reader.GetName(field), reader.GetDataTypeName(field))
Next
End If
End Using
con.Close()
End Using
End Using
End Sub
End Class