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