Consulta BD

[rubarax]

Hola,

Es una operación sencilla, y en google podrás encontrar muchos ejemplos de ello, aquí te pongo un código de ejemplo:

En este ejemplo el data source ODBC ya tiene que estar definido como TestDS

Código:

Imports Microsoft.Data.Odbc
Module Module1
Sub Main()
  Dim conn As OdbcConnection
  Dim comm As OdbcCommand
  Dim dr As OdbcDataReader
  Dim connectionString As String
  Dim sql As String

  connectionString = "DSN=TestDS;UID=Tester;Pwd=Tester;"
  sql = "SELECT CustomerID, ContactName, ContactTitle FROM Customers"
  conn = New OdbcConnection(connectionString)
  conn.Open()
  comm = New OdbcCommand(sql, conn)
  dr = comm.ExecuteReader()

  While (dr.Read())
    Console.WriteLine(dr.GetValue(0).ToString())
    Console.WriteLine(dr.GetValue(1).ToString())
    Console.WriteLine(dr.GetValue(2).ToString())
  End While
  conn.Close()
  dr.Close()
  comm.Dispose()
  conn.Dispose()
End Sub
End Module

Saludos!