VB.Net by API/System.Data.Odbc/OdbcConnection
New OdbcConnection
<source lang="vbnet"> 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
</source>