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
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