Mega Code Archive

 

Categories / VB.Net / ADO Database

 

Employee Table Metadata

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