VB.Net by API/System.Data.Odbc/OdbcConnection

New OdbcConnection

  
Imports System
Imports System.Data
Imports System.Data.Odbc
Module OdbcProvider
   Sub Main()
      " Set up connection string
      Dim ConnString As String = "dsn=NorthwindOdbc"
      " Set up query string
      Dim CmdString As String = "SELECT * FROM employees"
      "Declare Connection and DataReader variables
      Dim Conn As OdbcConnection
      Dim Reader As OdbcDataReader
      Try
         "Open Connection
         Conn = New OdbcConnection(ConnString)
         Conn.Open()
         "Execute Query
         Dim Cmd As New OdbcCommand(CmdString, Conn)
         Reader = Cmd.ExecuteReader()
         "Display output header
         Console.WriteLine("Querying database {0} with query {1}" & _
            ControlChars.NewLine, Conn.Database, Cmd.rumandText)
         Console.WriteLine("FirstName" & ControlChars.Tab & "LastName")
         "Process The Result Set
         While (Reader.Read())
            Console.WriteLine(Reader("FirstName").PadLeft(9) & _
               ControlChars.Tab & Reader(1))
         End While
      Catch ex As Exception
         Console.WriteLine("Error: {0}", ex)
      Finally
         "Close Connection
         Reader.Close()
         Conn.Close()
      End Try
   End Sub
End Module