Preencher combobox com dados de banco access

Question

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

Answer 1

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
[e-mail]

Answer 2

Leandro,

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