Get Colunm Data type

參考引用:Get Colunm Data type
--
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 1
      Dim sql As String ="SELECT ID,  FirstName, LastName FROM Employee;  "

      'Create Command object
      Dim thisCommand As New SqlCommand _
         (sql, thisConnection)

      Try
         ' Open Connection
         thisConnection.Open()
         Console.WriteLine("Connection Opened")

         ' Execute Query
         Dim thisReader As SqlDataReader = thisCommand.ExecuteReader()

         ' Get column data types
         Console.WriteLine("Data types: {0} | {1}", _
            thisReader.GetDataTypeName(0).PadLeft(13), _
            thisReader.GetDataTypeName(1))


         'Close DataReader
         thisReader.Close()

      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