CARREGAR COMBOBOX

ALTAIR148 07/04/2011 06:46:48
#370704
Estou tentando carregar um combobox com os seguinte conexão, mas quando cliclo na combobox ela não retorna nenhum valor. Abaixo segue meu código para conexao:



Dim reader As MySql.Data.MySqlClient.MySqlDataReader
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
cmd = New MySql.Data.MySqlClient.MySqlCommand([Ô]select nome from tb_portadores[Ô], GetConexao1)
reader = cmd.executereader

While reader.read
Combo1.Items.Add(reader([Ô]nome[Ô]))
End While

Obrigado
PEGUDO 07/04/2011 08:04:03
#370706
Esquceu de botar o [Ô][txt-color=#0000f0].Value.ToString[/txt-color][Ô] no final do RecordSet

Coloque o código assim:

[txt-color=#0000f0]While [/txt-color] reader.read
Combo1.Items.Add(reader([txt-color=#e80000][Ô]nome[Ô][/txt-color]).Value.ToString)
[txt-color=#0000f0]End While[/txt-color]
ALTAIR148 07/04/2011 08:37:58
#370708
PEGUDO, ainda não deu certo, to pesquisando aqui para ver o que pode estar de errado.
JONATHANSTECKER 07/04/2011 08:49:00
#370710
Faça assim e veja se chega a exibir a Mensagem.
        Dim reader As MySql.Data.MySqlClient.MySqlDataReader
        Dim cmd As MySql.Data.MySqlClient.MySqlCommand
        cmd = New MySql.Data.MySqlClient.MySqlCommand([Ô]select nome from tb_portadores[Ô], GetConexao1)
        reader = cmd.executereader
        
        If reader.HasRows Then
            MessageBox.Show([Ô]OK[Ô])
            While reader.read
                Combo1.Items.Add(reader([Ô]nome[Ô]))
            End While
        End If
ALTAIR148 07/04/2011 08:51:36
#370711
JONATHANSTECKER, ele não retornou nem os dados e nem a mensagem.
JONATHANSTECKER 07/04/2011 08:59:33
#370712 Resposta escolhida
Isso quer dizer que o SELECT não retornou nada.
Tem certeza que na coluna nome da tabela tb_portadores existe dados adicionados?
ALTAIR148 07/04/2011 09:06:29
#370714
JONATHANSTECKER, realmente não tinha dados na tabela, eu havia limpado ela e me esqueci, mas agora já inseri alguns dados nela, ai a mensagem [Ô]OK[Ô] aparece, mas mesmo assim ela não retorna nenhum resultado.
JONATHANSTECKER 07/04/2011 09:09:44
#370716
Vamos lá...
        Dim reader As MySql.Data.MySqlClient.MySqlDataReader
        Dim cmd As MySql.Data.MySqlClient.MySqlCommand
        cmd = New MySql.Data.MySqlClient.MySqlCommand([Ô]select nome from tb_portadores[Ô], GetConexao1)
        reader = cmd.executereader
        
        If reader.HasRows Then
            While reader.read
                Combo1.Items.Add(reader.itens([Ô]nome[Ô]))
            End While
        End If
ALTAIR148 07/04/2011 09:13:17
#370717
Agora sim funcionou, muito obrigado.
JONATHANSTECKER
Tópico encerrado , respostas não são mais permitidas
Voltar