Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) ComboBox exibe registros errados


rodrigotnoma

Pergunta

quando efetuo um select em um BD e tento exibir o resultado em um combobox, os registros são mostrados todos em uma linha só e não várias linhas, sendo cada uma um registro do BD.

O código usado no Button "verificar":

Dim sql2 As String
        Dim conn2 As System.Data.OleDb.OleDbConnection
        Dim cmd2 As System.Data.OleDb.OleDbCommand
        Dim dr2 As System.Data.OleDb.OleDbDataReader

        ComboBox1.Text = " "

        sql2 = "select * from produtos1"

        conn2 = New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=c:\inetpub\wwwroot\sistema_natureza\produtos1.mdb;")

        conn2.Open()

        cmd2 = New System.Data.OleDb.OleDbCommand(sql2, conn2)

        dr2 = cmd2.ExecuteReader

        Do While dr2.Read()

            ComboBox1.Text += dr2("nome") & vbCrLf

        Loop

        conn2.Close()

Se não estiver bem explicado é só me avisar.

Obrigado.

Rodrigo

Editado por quintelab
Adicionado BBCode Code
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...