MYSQL: ADO.NET - DATAREADER - FAZER LOOP

FBUR 30/11/2011 18:11:11
#390325
Boa tarde.

Uso o MySQL no VB 2010 com ADO.NET.

Pergunta: Como eu faço um loop para ler todos os registros do DataSet?
Eis o código. Preciso adicionar todos os dados na ListBox

  
        Dim cn As MySqlConnection
        Dim strCon As String
        strCon = [Ô]Server=127.0.0.1;[Ô] & _
                            [Ô]Database=usiminas;[Ô] & _
                            [Ô]Uid=root;[Ô] & _
                            [Ô]Pwd=50264315;[Ô] & _
                            [Ô]Connect Timeout=30;[Ô]
        cn = New MySqlConnection(strCon)

        [ô]define o comando
        Dim cmd As New MySqlCommand

        [ô]associa o comando à conexão
        cmd.Connection = cn

        [ô]define a instrução de consulta sql
        Dim strSQL As String
        strSQL = [Ô]SELECT * FROM tbl_temp[Ô]

        [ô]passa a instrução para o comando
        cmd.CommandText = strSQL

        [ô]especifica o tipo de comando
        cmd.CommandType = CommandType.Text

        [ô]define o leitor de dados
        Dim dr As MySqlDataReader
        [ô]Dim sql As String = [Ô]SELECT * FROM tbl_cabecalho[Ô]

        [ô]abre a conexão
        cn.Open()

        [ô]executa a instrução SELECT e retorna os dados comforme a instrução
        dr = cmd.ExecuteReader()

        If dr.Read() Then

            ListBox1.Items.Add(dr([Ô]nome[Ô])).ToString()

        End If

        cn.Close()
ALTAIR148 30/11/2011 18:18:39
#390327 Resposta escolhida
Vê se assim vai


        Dim cn As MySqlConnection
        Dim strCon As String
        strCon = [Ô]Server=127.0.0.1;[Ô] & _
                            [Ô]Database=usiminas;[Ô] & _
                            [Ô]Uid=root;[Ô] & _
                            [Ô]Pwd=50264315;[Ô] & _
                            [Ô]Connect Timeout=30;[Ô]
        cn = New MySqlConnection(strCon)

        [ô]define o comando
        Dim cmd As New MySqlCommand

        [ô]associa o comando à conexão
        cmd.Connection = cn

        [ô]define a instrução de consulta sql
        Dim strSQL As String
        strSQL = [Ô]SELECT * FROM tbl_temp[Ô]

        [ô]passa a instrução para o comando
        cmd.CommandText = strSQL

        [ô]especifica o tipo de comando
        cmd.CommandType = CommandType.Text

        [ô]define o leitor de dados
        Dim dr As MySqlDataReader
        [ô]Dim sql As String = [Ô]SELECT * FROM tbl_cabecalho[Ô]

        [ô]abre a conexão
        cn.Open()

        [ô]executa a instrução SELECT e retorna os dados comforme a instrução
        dr = cmd.ExecuteReader()

        If dr.Read() Then
while dr.reader
            ListBox1.Items.Add(dr([Ô]nome[Ô])).ToString()
end while
        End If

        cn.Close()
FBUR 01/12/2011 16:46:57
#390393
ptz... fácil...

Tópico encerrado , respostas não são mais permitidas
Voltar