Instrução SELECT.INTO (SQL do Microsoft Access)

Aplica-se ao: Access 2013, Office 2013

Cria uma consulta criar tabela.

Sintaxe

SELECT field1[, field2[, …]] Into newtable [IN externaldatabase] FROM source

A instrução SELECT... INTO contém estas partes:

Parte	Descrição
field1,field2	O nome dos campos a ser copiado para a nova tabela.
newtable	O nome da tabela a ser criada. Ele deve atender às convenções de nomenclatura padrão. Se newtable tiver o mesmo nome de uma tabela existente, ocorrerá um erro interceptável.
externaldatabase	O caminho para um banco de dados externo. Para obter uma descrição do caminho, consulte a cláusula IN .
source	O nome da tabela existente da qual os registros são selecionados. Pode ser uma ou várias tabelas ou uma consulta.

Comentários

Você pode usar as consultas criar tabela para arquivar registros, fazer cópias de backup das tabelas ou fazer cópias para exportar para outros bancos de dados ou para usar como base de relatórios que exibem dados em um determinado período de tempo. Por exemplo, você gerar um relatório Vendas Mensais por Região, executando a mesma consulta criar tabela a cada mês.

Observação

• Talvez você queira definir a chave primária para a nova tabela. Quando você cria a tabela, os campos na nova tabela herdam o tipo de dados e o tamanho do campo para cada campo nas tabelas subjacentes da consulta, mas nenhuma outra propriedade do campo ou da tabela é transferida.
• Para adicionar dados a uma tabela existente, use a instrução INSERT INTO em vez de criar uma consulta acréscimo.
• Para descobrir quais registros serão selecionados antes de executar a consulta criar tabela, primeiro examine os resultados de uma instrução SELECT que usa os mesmos critérios de seleção.

Exemplo

Este exemplo seleciona todos os registros na tabela de Funcionários e copia em uma nova tabela chamada Emp Backup.

    Sub SelectIntoX() 
     
        Dim dbs As Database 
        Dim qdf As QueryDef 
     
        ' Modify this line to include the path to Northwind 
        ' on your computer. 
        Set dbs = OpenDatabase("Northwind.mdb") 
     
        ' Select all records in the Employees table  
        ' and copy them into a new table, Emp Backup. 
        dbs.Execute "SELECT Employees.* INTO " _ 
            & "[Emp Backup] FROM Employees;" 
             
        ' Delete the table because this is a demonstration. 
        dbs.Execute "DROP TABLE [Emp Backup];" 
         
        dbs.Close 
     
    End Sub