|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Preencher uma combo com os dados do banco, sem duplicá-los usando SQL x DAO
|
 |
|
|
|
Postada em 13/2/2007 por Álvaro
Para você que quer preencher um combobox com valores sem duplicá-los, segue abaixo um esqueminha rápido e sem complicação.
Na minha tabela funcionario,estou selecionando todos os registros do campo funcao e estou pedindo que guarde tudo o que for diferente ( distinct )
Set DB2 = OpenDatabase(App.Path & "Cadastro.mdb")
Set Cargo = DB2.OpenRecordset("SELECT distinct(funcao) FROM funcionario")
'Enquanto não for o fim de arquivo adiciona o campo funcao ao combobox
While Not Cargo.EOF
CboFuncao.AddItem Cargo!Funcao
Cargo.MoveNext
Wend
Simples né ?!
Abraço a todos
|
|
|
|
|
