Ler dados com o ADO.net

Neste simples exemplo, mostrarei como fazer, para substituir o ADO tradicional, pelo ADO.net para retornar os dados de uma base de dados, usando VB.net.

obs: uso a leitura e inserção dos dados num listbox, no evento load da página

Imports System.Data
' declaração de chamada necessária, para usar ado.net

Sub Page_Load  ' evento load (carregamento) da página
Dim conn as New System.DATA.OledbConnection(SUA STRING DE CONEXÃO AQUI)
Dim SQL as string = "SELECT * FROM tabela"
Dim comando as new OleDBCommand(SQL, conn)
conn.open

Dim leitor as OLEDbDataReader
Leitor = Command.ExecuteReader
' no .net não há o Set

' Abaixo o LOOP num listbox:
While Leitor.READ
List.Items.ADD Leitor.Item("campo")
End While

End sub

Esta matéria foi postada originalmente no ASP4Developers por Oscar Pires (BLADE) (site), que na época era "Desenvolvedor ASP e Visual Basic, desenvolve sites interativos e sistemas para empresas. ". Hoje, vai saber...