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