Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como transferir dados entre tabelas
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
.

Anterior :

Próximo : No
  Os artigos relacionados
·Como determinar se uma caixa de listagem tem Duplicatas…
·Como fazer Dice eletrônicos 
·Como matar um processo usando VB.net 
·Como acessar o FlexGrid em VB6 
·O que é um VB.NET Importação 
·Como o código em maiúsculas em VB.Net 
·Como criar uma caixa de correio em VBScript 
·Como fazer uma barra de ferramentas para o Visual Reapp…
·Como desativar uma rede em VB Script 
·Como escrever texto em um formulário em VB6 
  Artigos em destaque
·Como Fazer um Console Eclipse Longer 
·Como usar Stored Procedures no SSRS 
·Como editar arquivos PYD 
·Como calcular a porcentagem de caracteres em Java 
·CSS Imagem Rollover Effect 
·Como separar um arquivo /etc /passwd usando AWK 
·O que a matriz de dimensão em falta média em Programa…
·Como usar uma variável em uma String SQL VBA 
·Como contar o número de ocorrências em PHP 
·Como criar um campo inteiro 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados