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

Dim dbs2 as Database
4

Digite o seguinte para abrir o primeiro banco de dados:

Set dbs = OpenDatabase ( "C: \\ Adamastor 2007.accdb " )

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 .