LEFT JOIN、RIGHT JOIN 运算示例 (DAO)
优质
小牛编辑
123浏览
2023-12-01
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