Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como passar dados de um formulário em um Access Query
Saber usar os controles em um formulário e passar valores a partir desses controles para uma consulta você pode economizar tempo ao trabalhar com bancos de dados. Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional comumente usado para bancos de dados menores . Uma caixa de combinação é um controle usado em interfaces gráficas (GUI) para fornecer ao usuário com mais flexibilidade para manipular dados. Um controle de caixa de lista é útil quando você precisa exibir os resultados da consulta para o usuário. Visual Basic for Applications (VBA) é uma linguagem de programação de computador utilizado para automatizar tarefas de rotina em Access e outros aplicativos do MS Office . Coisas que você precisa
Microsoft Office Access
Show Mais instruções
1

Abra o banco de dados Northwind do Microsoft Office Access. O banco de dados Northwind está incluído no pacote do Microsoft Office .
2

Selecione a aba " Criar" e "Formulário de Design" para criar um novo formulário. Clique em " caixa de combinação " no painel " Controles " , depois clique em seu formulário e arraste o mouse para criar um novo controle de caixa de combinação. Clique em " Button" no painel " Controles " e adicione um novo botão ao seu formulário. Selecione "Caixa de lista" e adicionar um novo controle de caixa de listagem ao seu formulário.
3

botão direito do mouse " Command0 " e selecione " Propriedades". Clique na aba " Evento " e selecione " [Procedimento de evento ]" ao lado de " On Click. " Clique nas reticências (... ) para abrir a janela "Microsoft Visual Basic" . Pressione " Ctrl" e "A" e pressione " Delete" para remover todo o código existente.
4

Copie e cole o seguinte código para o seu novo módulo. O código irá usar a tabela " Funcionários" para obter informações.

Option Compare Database

Private Sub Command0_Click ()

Dim strSQL As String Dim

nameSelected As String

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = "SELECT funcionários . [ Cargo ] , Funcionários. [E- mail ] "

strSQL = strSQL &" FROM Employees "

strSQL = strSQL &" WHERE ( ( ( Employees. [Last Name ]) = '"& ( nameSelected ) &" ')) , "

Me.List0.RowSourceType =" Tabela /Consulta "

Me.List0.RowSource = strSQL

End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo0.RowSourceType = " Tabela /Consulta "

Me.Combo0.RowSource = " Funcionários SELECT. [Last Name ] FROM Funcionários ; "

End Sub
5

Feche a " "janela e clique com o botão direito " Microsoft Visual Basic Form1 "e selecione " Form View " . Selecione um último nome do controle de caixa de combinação. Clique em " Command0 " para exibir a informação do empregado no controle de caixa de lista com base no último nome que você selecionou.

Anterior :

Próximo : No
  Os artigos relacionados
·Como ativar a API janela para mostrar em VB6 
·Como abrir uma URL , clicando em um código VB6 Imagem 
·HTML para esconder barras de rolagem em VBScript 
·Como parar um loop infinito em Macro 
·Como prevenir várias chamadas de eventos em VBA 
·Como converter Seconds to Time for Visual Basic 6 
·Idéias para aplicativos Visual Basic 
·Como usar uma função em VBA 
·Como atualizar ComboBox sobre Mudança de outro valor e…
·Como usar MsgBox em VB6 
  Artigos em destaque
·Como usar a classe de caracteres em Java 
·Por que meu computador não abre um arquivo PHP 
·Como usar o PHP SQLite como um Cache 
·Como usar Mirage OS 
·Como salvar um arquivo PHP com Filezilla 
·Como ocultar uma DIV em uma postagem em JavaScript 
·Como carregar um arquivo CSV para um conjunto de dados 
·Como redefinir um AppPool IIS Com PowerShell 
·Como adicionar CRLF em um String em Python 
·NetBeans e do Oracle Tutorial 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados