none
Preencher combobox com dados de banco access RRS feed

  • Pergunta

  • Caros,

    Boa noite,

    Tenho o código abaixo que preenche uma combobox Cidade.

    Gostaria de saber se existe alguma forma de gravar de uma só vez no combobox.

    Private Function Carrega_Cbo_Cidades()
    Dim i As Long
    Dim C As Integer

    Sql = "SELECT CIDADE FROM CIDADES ORDER BY CIDADE ASC"
    Me.CB_CIDAD.Clear
     Set Tabela = xConnect(Sql)
     If Not Tabela.BOF Then
        Do While Not Tabela.EOF
        Me.CB_CIDAD.AddItem Tabela("CIDADE")
        Tabela.MoveNext
        Loop
       End If
    End Function

    sexta-feira, 8 de junho de 2018 23:09

Todas as Respostas

  • Olá!

    Você poderia utilizar a propriedade DataSource do ComboBox.

        cboCidades.DataSource = Nothing
        cboCidades.DisplayMember = "Cidade"
        cboCidades.DataSource = Tabela
        cboCidades.Refresh

    []´s


    Leandro Ferreira
    Desenvolvedor .Net

    Skype: leandro.vipsolucoes
    GitHub: github.com/leandrovip
    leandro@vipsolucoes.com

    sábado, 9 de junho de 2018 00:00
  • Leandro,

    Esqueci de mencionar, esse código ele preenche a combo que esta num formulário feito em vba Excel.


    sábado, 9 de junho de 2018 00:20