ComboBox + Access

[Anakia 0]

eu ostaria de abrir a tela de cadastro e automaticamente o combobox ser preenchido com as opções que estão no banco de dados Access alguem pode me ajudar a fazer isso por favor eu nao sei fazer...

[Marcos A Sanches 0]

Bom dia eu acho que isso pode te ajudar, você faz um distinct no campo da tabela que você quer preencher na combo, fica algo mais ou menos assim

 

Dim SSQL as string

SSQL = "Select distinct(<Campo a ser carregado>) as campo_do_banco from tabela
set rs = conexao.execute(SSQL)

Depois você faz um loop e joga estes dados na combo, fica mais ou menos assim.

 

if rs.recordcount = 0 then
      exit sub
else
      while not rs.eof
          suacombo.additem(campo_do_banco)
          rs.movenext
      wend
end if 

Espero ter ajudado.

Abraços