Gambas 2 - Listar dados em comboxbox

Achei aqui no meu Google Docs, uma dica que tinha guardado a muito tempo.


Pode ser que seja útil pra alguém.


' Gambas class file
 PUBLIC combo AS ComboBox
PUBLIC SUB ToggleButton1_Click()
  
 

   listacombo(ComboBox1, "select * from cadastro")
 

END

PROCEDURE listacombo(Combo AS ComboBox, busca AS String)
  DIM r AS Result
  DIM conta AS Integer
   conexao.conectar_banco
   r = conexao.bd.Exec(busca)
   r.MoveFirst
   Combo.Add(r!nome_cad)
   FOR conta = 1 TO r.Count - 1
       r.MoveNext
       Combo.Add(r!nome_cad)
   NEXT
END