Como preencher uma caixa de combinação VB com dados da tabela de banco de dados

Você pode preencher uma caixa de combinação VB a partir de uma tabela de banco de dados.

No Visual Basic, caixas de combinação são frequentemente utilizados em programas de entrada de dados e quando a apresentação de informações através de formulários on-line. Por exemplo, talvez seja necessário selecionar a partir de uma lista de estados ou códigos postais e clicando em uma lista drop-down apresenta-lhe várias selecções. Uma caixa de combinação é preenchida com itens definidos pelo usuário que normalmente são adicionadas pelo programador em tempo de design, mas você também pode preencher uma caixa de combinação com itens de uma tabela de banco de dados usando apenas algumas linhas de código.

Coisas que você precisa

  • Visual Basic instalado
  • arquivo de banco de dados
  • Inicie Visual Basic, clicando no "Começar" botão e selecionando "programas," "Microsoft Visual Studio" e depois "Microsoft Visual Basic [número da versão]."

  • selecionar "standard EXE" debaixo de "Novo projeto" caixa de diálogo. Clique "Aberto" para abrir um novo formulário.

  • Clique no "Caixa combo" o controle da caixa de ferramentas no lado esquerdo e arraste-o para a forma centro. Definir suas propriedades sob a janela Propriedades do lado direito.

  • Adicionar um "ADO" controlar no formulário. Defina sua "Visível" propriedade para "Falso."



  • Clique no "view Code" botão na parte superior da janela do Project Explorer para começar a adicionar código. No exemplo abaixo, os 50 estados dos EUA será adicionada na caixa de combinação a partir de uma tabela de banco de dados. Quando o formulário é carregado em tempo de execução, a caixa de combinação é preenchida automaticamente. Vou ao "Form_Load" evento e digite um código semelhante ao seguinte:

    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Set Conn = DBEngine.OpenDatabase (App.Path & " dbDatabase.mdb")
    Set rs = conn.OpenRecordset ("tblStates")

    Se rs.RecordCount gt; 0 Then
    Do While Not rs.EOF
    com Combo1
    .AddItem rs.Fields ("USStateName")
    End With
    .MoveNext
    laço
    Fim se

  • aperte o "F5" tecla no teclado para executar o programa.

  • Salve seu projeto Visual Basic, clicando em "Arquivo" e depois "Salvar projeto como" a partir do menu.

De esta maneira? Compartilhar em redes sociais:

LiveInternet