Saber como transferir dados entre as tabelas do banco de dados pode fazer seus aplicativos de banco de dados mais dinâmico. Microsoft Office Access é comumente usado para criar bancos de dados pequenos e locais. No Access, você pode usar o Microsoft Visual Basic for Applications (VBA) para automatizar tarefas de rotina, como a transferência de dados de uma tabela para outra. VBA é uma linguagem de programação de computadores que irá fornecer-lhe mais flexibilidade para manipular dados. A consulta é usada recuperar informações de uma tabela do banco de dados . Coisas que você precisa
Microsoft Office Access
Northwind banco de dados
Show Mais instruções
1

Comece o banco de dados Northwind do Microsoft Office Access. O banco de dados Northwind está incluído no pacote do Microsoft Office . . " Module" Selecione o menu "Inserir" e clique
2

Digite o seguinte para criar uma nova sub-rotina :

Private Sub TransferData ()

Imprensa " . Enter "
3

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

Dim stringSQL as String

Dim db As Database

Dim rst Como Recordset

Dim rstTwo Como Recordset

Set db = CurrentDb
4

Digite o seguinte para criar uma nova tabela de dados e transferência :

stringSQL = "CREATE TABLE employeeNames ( sobrenome TEXT ( 25) , Nome TEXT ( 25) ) ; "

DoCmd.RunSQL ( stringSQL )

digite o seguinte para abrir a nova tabela através de um conjunto de registros para adicionar dados :

Definir rstTwo = DB.OpenRecordSet (" employeeNames ")
5

digite o seguinte para consultar a tabela " Funcionários" :

stringSQL = "SELECT Employees.Company , "

stringSQL = stringSQL & " Colaboradores. [Last Name ] , "

stringSQL = stringSQL & " Colaboradores. [ Nome ]"

stringSQL = stringSQL & " FROM Funcionários ; "

Set rst = DB.OpenRecordSet ( stringSQL )

rst.MoveLast

rst.MoveFirst
6

Digite o seguinte para percorrer a consulta e transferência de " Last Name" e "Nome" para a mesa " employeeNames " :

do While Not rst.EOF

rstTwo . AddNew

rstTwo.Fields ( "sobrenome " ) . Valor = rst.Fields ("[ Last Name ]" ) . Valor

rstTwo.Fields ( " Nome" ) . Value = rst . Fields ( " [ primeiro nome] " ) . Valor

rstTwo.Update

rst.MoveNext

loop
7

Digite o seguinte para liberar as variáveis ​​da memória :

rst.Close

rstTwo.Close

db.Close

Pressione " F5" para executar sua rotina
.