数据保存的问题

Question

我用datagrid控件从数据库的几个表中取出数据（有许多记录），通过计算过程计算出结果后，我想把表格里数据全部保存到另外一个数据表里，以便日后查询。可是我保存后只能保存第一条数据，其他的不能保存，请问各位，用什么方式才能最简便的保存表格控件中全部记录，谢谢

Answer 1

SELECT...INTO 语句创建一个创建表查询。语法SELECT field1[, field2[, ...]] INTO NewTable [IN externaldatabase]
FROM sourceSELECT...INTO 语句可分为以下几个部分：部分 描述
field1, field2 欲复制至新表的字段的名称。
NewTable 欲创建的表的名称。它必须遵循标准命名约定。如果 NewTable 的名称与现存表的名称相同时，将会发生可以捕捉到的错误。
externaldatabase 至外部数据库的路径。有关路径的描述，请参阅IN 子句。
source 从其中选择记录的现存表的名称。它可以是单一表或多重表或一个查询。
说明可以使用生成表查询来存档记录、生成表的复制备份、或生成输出至另一个数据库的表的副本、或用作定期显示数据的报表的依据。例如，可以每月运行一次同样的生成表查询，生成地区的销售月报。注意?可能要为新表定义一个主键。创建新表时，新表中的字段将继承查询基本表中每一个字段的数据类型及大小，但不传递其他的字段或表属性。
?添加数据至一个现存的表时，使用 INSERT INTO 语句，不用创建追加查询。
?在运行生成表查询之前，若要知道会选择哪些记录，可以先看一看使用相同选择条件的 SELECT 语句的结果。===================
此示例选择在员工表中的所有记录，然后复制到命名为 Emp Backup 的新表中。Sub SelectIntoX() Dim dbs As Database
Dim qdf As QueryDef ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb") ' 选择员工表中的所有记录，
' 并且复制到称作员工备份的新表中。
dbs.Execute "SELECT Employees.* INTO " _
& "[Emp Backup] FROM Employees;"

' 删除 QueryDef 因为这是一个演示。
dbs.Execute "DROP TABLE [Emp Backup];"
dbs.CloseEnd Sub