通过

SELECT.INTO 语句 (Microsoft Access SQL)

  • 项目

适用于：Access 2013、Office 2013

创建生成表查询。

语法

SELECT field1[， field2[， ...]] INTO newtable [IN externaldatabase] FROM source

SELECT...INTO 语句包含以下部分：

部分 说明
field1，field2 要复制到新表中的字段的名称。
newtable 要创建的表的名称。 它必须符合标准命名约定。 如果 newtable 和现有表同名，会发生一个可捕捉的错误。
externaldatabase 外部数据库的路径。 有关路径的说明，请参阅 IN 子句。
source 从中选择记录的现有表的名称。 可以是单个表或多个表，也可以是查询。

备注

可以通过生成表查询来存档记录，或制作表的备份副本，或者将副本导出到其他数据库，或作为某个特定时间段的数据的报表产生基础。 例如，可以通过每个月运行相同的生成表查询来生成一个月销售区域报表。

注意

  • 您可能希望定义新表的主键。 创建表时，新表中的字段会继承查询的基表中每个字段的数据类型和字段大小，但不会传输其他字段或表属性。
  • 若要将数据添加到现有表中，请使用 INSERT INTO 语句，而不用创建追加查询。
  • 若要在运行生成表查询之前查找出将要选择哪些记录，请先检查使用相同选择条件的 SELECT 语句的结果。

示例

本示例选择 Employees 表中的所有记录，并将它们复制到名为 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