INSERT INTO 语句示例 (DAO)

INSERT INTO 语句示例

此示例选择在一假设的新客户表中的所有记录，并且增加它们至客户表中。当个别的栏没有设计时，此 SELECT 表的列名必须完全地符合那些在 INSERT INTO 表中的列名。

Sub InsertIntoX1()

Dim dbs As Database

' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

Set dbs = OpenDatabase("Northwind.mdb")

' 对运费超过 $100 的订单，

' 在新客户表中选择所有记录，

' 并且添加它们至客户表。

dbs.Execute " INSERT INTO Customers " _

& "SELECT * " _

& "FROM [New Customers];"

dbs.Close

End Sub

此示例创建在员工表中的添加记录。

Sub InsertIntoX2()

Dim dbs As Database

' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

Set dbs = OpenDatabase("Northwind.mdb")

' 对运费超过 $100 的订单，

' 创建在员工表中的新记录，

' 其姓氏是 Washington，名字是 Harry，

' 并且职称是 Trainee。

dbs.Execute " INSERT INTO Employees " _

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

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

dbs.Close

End Sub