Como consultar vários bancos de dados em Access
Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como consultar vários bancos de dados em Access
Saber como abrir e consultar vários bancos de dados você pode economizar tempo quando você precisa usar dados de vários arquivos de banco de dados. Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional desenvolvido pela Microsoft. Acesso é um popular aplicativo utilizado para criar bancos de dados locais. Uma consulta é usada para recuperar informações de uma tabela do banco de dados . Visual Basic for Applications , também conhecido como VBA, é uma linguagem de programação de computador que pode ser usado para consultar vários bancos de dados . Coisas que você precisa
Microsoft Office Access
Mostrar Mais instruções
1

Comece Microsoft Office Access , selecione "Banco de Dados em Branco " , em seguida, clique em "Criar ". Clique em " Ferramentas de banco de dados " e selecione " Visual Basic ". Selecione o menu "Inserir ", clique em " . Module"
2

Digite o seguinte para criar os " sub-rotina " queryMultipleDbs :

Sub queryMultipleDbs privados ()

Pressione " Enter".
3

Digite o seguinte para declarar novas variáveis ​​:

Dim rst Como Recordset

Dim dbs as Database
< p> Dim dbs2 as Database
4

Digite o seguinte para abrir o primeiro banco de dados:

Set dbs = OpenDatabase ( "C: \\ Adamastor 2007.accdb " )
< p> Edite o caminho e digite o caminho do banco de dados
5

digite o seguinte para abrir o segundo banco de dados : .

Definir dbs2 = OpenDatabase ( "C: \\ Cópia do Adamastor 2007. accdb " )

Edite o caminho e digite o caminho do banco de dados.
6

digite o seguinte para consultar o " funcionários " da tabela no primeiro banco de dados e exibir os valores no" Última name " coluna :

Set rst = dbs.OpenRecordset (". selecione funcionários * FROM Employees " )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields ("Last Name" ) Valor

rst.MoveNext

loop

rst . . Fechar
7

Digite o seguinte para consultar o "Produtos" mesa no primeiro banco de dados e exibir os valores na coluna " Código do Produto " :

Set rst = dbs2.OpenRecordset ( "SELECT produtos . * FROM produtos " )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print RST . Campos ("Código do Produto" ) . Valor

rst.MoveNext

loop

rst.Close

Set dbs = Nothing

Definir dbs2 = Nothing

Pressione " F5" para executar o seu sub-rotina e exibir os resultados através da janela imediata .

Anterior :

Próximo : No
  Os artigos relacionados
·Como usar o controle MonthView VB6 
·Regras que se aplicam a matrizes em Visual Basic 2005 
·Como preencher um campo no VB Acesso 
·Microsoft Visual Programming Language Tutorial 
·Como usar o ListView ItemChecked em VBA 
·Como editar TreeNode De TreeView em VB.NET 
·Como fazer uma DF treinador com Visual Basic 6 
·Como remover uma planilha em Vb.Net 
·Como ajustar a fonte em um menu para a Iluminação 
·Como codificar uma declaração Else If em VB6 
  Artigos em destaque
·Como âncora de um DIV a parte inferior de uma página 
·Como fazer uma pirâmide de caracteres usando Java 
·Como testar a memória Heap Java Tamanho 
·A Função PHP Redirect 
·Como criar um script para aplicar privilégios para um …
·Como renomear NIB para XIB no Xcode 
·Tipos de Dados ANSI C 
·O que é UBound e LBound em Visual Basic 
·Access 2007 Scripts 
·Como eliminar algo de uma caixa de listagem no Visual B…
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados