第六章 运用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语句包含以下部分:
组成部分
|
说明
|
target
|
要追加记录的表或查询的名称。
|
field1、field2
|
向其中追加数据的字段的名称(如果在 target 参数之后),或获取其中数据的字段的名称(如果在 source 参数之后)。
|
externaldatabase
|
外部数据库的路径。有关路径的说明,请参阅 IN 子句。
|
source
|
要复制其中记录的表或查询的名称。
|
tableexpression
|
作为插入记录来源的表的名称。该参数可以是单个表名或者是从 INNER JOIN、LEFT JOIN 或 RIGHT JOIN 操作或保存的查询产生的组合结果。
|
value1、value2
|
要插入新记录特定字段中的值。每个值将插入到与该值在列表中的位置相对应的字段内:value1 将插入到新记录的 field1 字段,value2 插入到 field2 字段等等。这些值必须用逗号分隔,并且用引号 (' ') 引起来。
|
三、关于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