Popular combo box

[SubZer0 0]

Aê galera,to usando ADO para me conectar ao banco de dados,porém preciso de algumas coisas urgentemente.Preciso que o combo box mostre todos os nomes de condominios (tabela condominios, campo nome).No load está assim:Private Sub Form_Load()adoCondominios.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _"Persist Security Info=False;" & _"Data Source=C:\condominios_97.mdb"adoCondominios.RecordSource = "Select * from condominios"Set cboNome.DataSource = adoCondominioscboNome.DataField = "nome"...Tenho que fazer um loop ?Quando o cliente adicionar um novo cliente irá atualizar sozinho o combo box ?Me ajudem !

[Rafael Portal 0]

Olá amigo... Seguinte cara desta forma aqui:

 

Set cboNome.DataSource = adoCondominioscboNome.DataField = "nome"

Eu nunca fiz mas como você perguntou você pode fazer um Loop:

 

Do While Rs.EOF = False      CboNome.AddItem Rs!Nome     Rs.MoveNextLoop

Tipo eu te aconselharia a usar um CboNome.Clear antes desta verificação por que senão quando o usuário abrir novamente o combo os dados vão se repetir....

 

Espero ter ajudado..

 

Rafael Portal