全面掌握MS ACCESS SQL（25）

时　间:2018-01-15 09:41:15
作　者:Big Young   ID：252  城市：襄阳
摘　要:    INSERT INTO的完整语法。
正　文:

第六章 运用Insert INTO（插入）语句

第一节 Insert INTO的完整语法

MS Access SQL的Insert INTO语句的作用是将一个或多个记录添加到表中，该语句构成的SQL语句通常称为追加查询。

一、Insert INTO的完整语法

多记录追加查询：

Insert INTO target [(field1[, field2[, ...]])] [IN externaldatabase] Select [source.]field1[, field2[, ...] FROM tableexpression

单记录追加查询：

Insert INTO target [(field1[, field2[, ...]])] VALUES (value1[, value2[, ...])

二、Insert INTO语句包含对象说明

Insert INTO语句包含以下部分：

三、关于Insert INTO语句的几点说明

通过前面所述的单记录追加查询语法，可以使用Insert INTO语句向表中追加单个记录。在这种情形下，代码要指定每个记录字段的名称和值。必须指定每一个将被赋值的记录字段，并且要给出该字段的值。如果没有指定每个字段的值，则在缺少值的列中插入默认值或Null值。记录将追加到表的末尾。

通过上面所示的多字段追加查询语法的Select ... FROM子句，还可以使用Insert INTO追加一组来自其他表或查询的记录。这种情形下，Select子句指定将要追加到指定的target表中的字段。

source或target表可以指定表或查询。如果指定了查询，Microsoft Access数据库引擎会将记录追加到查询指定的任何表或所有表中。

如果目标表中包含主键，请确保追加到主键字段中的值是唯一的、非Null的；否则，Microsoft Access数据库引擎不会追加这些记录。

如果将一个自动编号字段记录追加到一个表中，并且希望对该追加的记录重新编号，那么不要在查询语句中包含自动编号字段。如果希望保持字段的原始值，请务必在查询语句中包含自动编号字段。

通过IN子句可以将记录追加到其他数据库的表中。

若要在运行追加查询之前找出将要追加哪些记录，可以先执行使用同样选择条件的选择查询并查看其结果。

追加查询把记录从一个或多个表复制到其他表中。包含所追加的记录的表不会受追加查询影响。

如果不想从其他表中追加现有记录，可以通过VALUES子句指定每个字段在新的单个记录中的值。如果忽略了字段列表，VALUES子句必须包括该表中每个字段的值；否则，Insert操作将会失败。通过附加的带有VALUES子句的Insert INTO语句，可以创建希望得到的每一个新增记录。

四、Insert INTO语句应用示例

示例一：

本例选择假想的“New Customers”表中的所有记录并将这些记录添加到“Customers”表。如果未指定各个列，那么Select中的表列名必须与Insert INTO中的表列名完全匹配。

Sub InsertIntoX1()

     Dim dbs As Database

    ' Modify this line to include the path to Northwind

    ' on your computer.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Select all records in the New Customers table 

    ' and add them to the Customers table.

    dbs.Execute " Insert INTO Customers " _

        & "Select * " _

        & "FROM [New Customers];"

    dbs.Close

 End Sub

示例二：

以下示例在“Employees”表中创建一个新记录。

Sub InsertIntoX2()

     Dim dbs As Database

    ' Modify this line to include the path to Northwind

    ' on your computer.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Create a new record in the Employees table. The 

    ' first name is Harry, the last name is Washington, 

    ' and the job title is Trainee.

    dbs.Execute " Insert INTO Employees " _

        & "(FirstName,LastName, Title) VALUES " _

        & "('Harry', 'Washington', 'Trainee');"

    dbs.Close

End Sub