Descrição:
Como carregar em um combo box todos os valores contidos em uma coluna do banco de dados?
Solução:
Para realizar esse comando, deve-se utilizar o método GetADORecordset em uma Consulta do seu Banco de Dados. Segue abaixo um exemplo de script utilizando essa Consulta e armazenando os valores em um combo box:
'Limpa a ComboBox Clear() 'Busca os dados da Consulta set RS = Screen.Item("Consulta1").GetADORecordset() 'Adiciona todos os registros encontrados na ComboBox for i=1 to RS.RecordCount AddItem RS.Fields("Name").Value RS.MoveNext Next
Gostaria de deixar minha contribuição, na linha 06 estava dando problema pois faltou:
(“E3Browser1”)
Assim, o script fica:
‘Limpa a ComboBox
Clear()
‘Busca os dados da Consulta
set RS = Screen.Item(“E3Browser1”).Item(“Consulta1”).GetADORecordset()
‘Adiciona todos os registros encontrados na ComboBox
for i=1 to RS.RecordCount
AddItem RS.Fields(“Name”).Value
RS.MoveNext
Next
End Sub