SELECT...INTO 语句
创建制表检索.
语法
SELECT field1[, field2[, ...]]INTO新表[IN外部数据库]
FROM源
SELECT...INTO 语句可分为以下几个部分：部分 说明
field1, field2 欲复制至新表的字段的名称。
NewTable 欲创建的表的名称。它应遵循标准命名公约.如果 NewTable 的名称与现存表的名称相同时，将会发生可以捕捉到的错误。
Externaldatabase 进入外部数据库的路径。有关路径的描述，请参阅 IN 子句。
source 从其中选择记录的现存表的名称。它可以是单一表或多重表或一个查询。
查看:
http://www.aspxuexi.com/sql/sql/2006-4-8/select_insert.htm
(用SELECT复制记录和表)
说明
可以使用生成表查询来存档记录、生成表的复制备份、或生成输出至另一个数据库的表的副本、或用作定期显示数据的报表的依据。例如，可以每月运行一次同样的生成表查询，生成地区的销售月报。
注意
或许你想要为新表定义一个主键。创建新表时，新表中的字段将继承查询基本表中每一个字段的数据类型及大小，但不传递其他的字段或表属性。
使用 INSERT INTO 语句 而不用创建追加检索来把数据加入当前表中。
在运行生成表查询之前，若要知道会选择哪些记录，可以先看一看使用相同选择条件的 SELECT 语句的结果。
SELECT...INTO 语句示例
此示例选择在员工表中的所有记录，然后复制到命名为 Emp Backup 的新表中。
Sub SelectIntoX()
Dim dbs As Database
Dim qdf As QueryDef
'' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
'' 对运费超过 $100 的订单，
'' 选择员工表中的所有记录，
'' 并且复制到称作员工备份的新表中。
dbs.Execute "SELECT Employees.* INTO " _
& "[Emp Backup] FROM Employees;"
'' 删除 QueryDef 因为这是一个演示。
dbs.Execute "DROP TABLE [Emp Backup];"
dbs.Close
End Sub
在access中插入数据到另外的表: (蓝色理想 萧萧小雨)
大家都知道Select into 吧。
比如：
=========================
select into tableB
select * from tableA
where userName=''abc''
=============================
会创建新表tableB，把tableA中符合条件的纪录插入到tableB中。
这是在一个mdb文件里操作的。
现在我想把A.mdb里的表tableA里的符合条件的纪录插入到B.mdb里的tableB中，
你有什么好办法吗？
哈哈，我开始想的也是先检索tableA的A.mdb，然后循环记录集插入到B.mdb。
这需要打开两个Connection。
后来我发现一招（高手不要说OLD啊……）
首先得知道B.mdb的物理地址。这里用toDBFile变量表示（可以用Server.MapPath取得）
====================================
sql="insert into tableB IN ''" & toDBFile & "'' select * FROM tableA where userName=''abc''"
=======================================
只要建立一个到A.mdb的连接。执行这个SQL语句就一切OK了。
