Olá amigos,

Como faço para exibir as informações do Banco de Dados em uma ComboBox? Precisa de Código? Mandem exemplo.

 

Grato,

Marcos.

dim rst as recordset

set rst = vgdb.openrecorset ("Select Campo From Tabela")

if rst.recorcount > 0 then

  rst.moveMin

  do while not rst.eof

    combobox.additem rst!Campo

    rst.movenext

  loop

end if

if rst not is nothing then

  rst.close

  set rst = nothing

end if

Valeu! Valeu!