Imports System.Data
Imports System.Data.SqlClientPartial Class conexao_dataReader
Inherits System.Web.UI.Page

Sub Page_load()
‘cria atring de conexao
Dim strConnection As String = “User id=sa;password=sa;”
strConnection += “database=loja;server=localhost; connect timeout=30;”
‘mostra a string usando label
data_src.Text = strConnection
‘cria a consulta sql em string
Dim strSQL As String = “SELECT id, sdescricao, sdetalhes from tbProduto”
‘cria string para depois exibir os dados.
Dim strResultHolder As String
‘cria objeto de conexao(e faz referencia a string de conexao criada acima)
Dim objConnection As New SqlConnection(strConnection)
‘cria o objeto de comando SQL ado.net
Dim objCommand As New SqlCommand(strSQL, objConnection)
‘cria uma instancia para ler o objeto.
Dim objDataReader As SqlDataReader

Try ‘testa a conexao

objConnection.Open() ‘abre a conexao
con_open.Text = “conexao estabelecida com exito.”
objDataReader = objCommand.ExecuteReader() ‘efetua a ligacao com o banco X comando.

strResultHolder = “”
Do While objDataReader.Read() = True
strResultHolder += objDataReader(“id”) & ” ; “
strResultHolder += objDataReader(“sdescricao”) & ” ; “
strResultHolder += objDataReader(“sDetalhes”) & “<br>”
Loop

div_resultado.InnerHtml = strResultHolder
objDataReader.Close()
objConnection.Close()
con_close.Text = “conexao fechada…”

Catch ex As Exception
con_open.Text = “falha na conexao!!!”
con_open.Text = ex.ToString()
End Try

End Sub
End Class