Utilizando classe de Conexao VB.net Mysql. Exemplo 2

Agora vou mostrar outro exemplo de como utilizar o DataReader do MySqlConnector.



        Try
            Dim cn As New ConexaoMySql("localhost", "root", "", "sistema")
            Dim dr As MySqlDataReader
            Dim sql As String = "SELECT * FROM usuario WHERE login='herberthudson'"
            dr = cn.ExecutaDataRead(sql)
            While dr.Read
                MessageBox.Show(dr(0))
                MessageBox.Show(dr("login"))
                MessageBox.Show(dr(2))
                MessageBox.Show(dr(3))
                MessageBox.Show(dr(4))
            End While
            cn.DesconectarMySql()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

A classe se encontra aqui.

Obs.: Todos os exemplos com a Classe VB.net Mysql, devem possuir a referência do MySqlConnector, e pode ser baixada aqui. Após baixar é só adicionar a referência da biblioteca, e incluir no começo do código:
Imports MySql.Data.MySqlClient