LEFT JOIN、RIGHT JOIN 运算示例

此示例假设在员工表中存在假设的单位名称和单位标识符的字段。注意这些字段实际上在 Northwind 数据库员工表中并不存在。

此示例选择所有单位，包含那些不含员工的单位。

此示例调用过程 EnumFields 过程，且可以在 SELECT 语句示例中找到该过程。

Sub LeftRightJoinX()

    Dim dbs As Database, rst As Recordset

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

    Set dbs = OpenDatabase("Northwind.mdb")

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

    ' 选取所有单位，包括

    ' 没有员工的

    Set rst = dbs.OpenRecordset _

        ("SELECT [Department Name], " _

        & "FirstName & Chr(32) & LastName AS Name " _

        & "FROM Departments LEFT JOIN Employees " _

        & "ON Departments.[Department ID] = " _

        & "Employees.[Department ID] " _

        & "ORDER BY [Department Name];")

    ' populateRecordset。

    rst.MoveLast

    ' 调用 EnumFields 来打印记录集的内容。

    '传递记录集对象和要求的字符宽度。

    '

    EnumFields rst, 20

    dbs.Close

End Sub