USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página