如何实现 一个select的结果 “保存“功能! 谢谢

Question

在数据库中进行查询 如 "select top 9 * form table " 查到的结果想另外保存 怎么办？

Answer 1

insert temp select top 9 * from table

Answer 2

dim a as adodb.recordset
a=cnnA.execute "select top 9 * form table "
a.save "c:\a.mdb"

Answer 3

SELECT...INTO 语句
创建制表检索.语法
SELECT field1[, field2[, ...]]INTO新表[IN外部数据库]
    FROM源SELECT...INTO 语句可分为以下几个部分：部分 说明 
field1, field2 欲复制至新表的字段的名称。 
NewTable 欲创建的表的名称。它应遵循标准命名公约.如果 NewTable 的名称与现存表的名称相同时，将会发生可以捕捉到的错误。 
Externaldatabase 进入外部数据库的路径。有关路径的描述，请参阅 IN 子句。 
source 从其中选择记录的现存表的名称。它可以是单一表或多重表或一个查询。 
说明
可以使用生成表查询来存档记录、生成表的复制备份、或生成输出至另一个数据库的表的副本、或用作定期显示数据的报表的依据。例如，可以每月运行一次同样的生成表查询，生成地区的销售月报。
--------------------------------------------------------------------------------注意 或许你想要为新表定义一个主键。创建新表时，新表中的字段将继承查询基本表中每一个字段的数据类型及大小，但不传递其他的字段或表属性。 
使用 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