◆此示例创建一列表,列出唯一的工作职称及每...... 此示例创建一列表,列出唯一的工作职称及每种职称的员工人数。 此示例调用过程 EnumFields 过程,且可以在 SELECT 语句示例中找到该过程。 Sub GroupByX1() Dim dbs As Database, rst As Recordset ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb") ' 对运费超过 $100 的订单, ' 数出每个职称对应的员工数 ' Set rst = dbs.OpenRecordset("SELECT Title, " _ & "Count([Title]) AS Tally " _ & "FROM Employees GROUP BY Title;") ' populateRecordset。 rst.MoveLast ' 调用 EnumFields 来打印记录集的内容。 '传递记录集对象和要求的字符宽度。 ' EnumFields rst, 25 dbs.Close End Sub 对每种唯一的工作职称,此示例计算在华盛顿中具有该职称的员工人数。 Sub GroupByX2() Dim dbs As Database, rst As Recordset ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb") ' 对运费超过 $100 的订单, ' 数出每个职称对应的员工数 ' 只用包括华盛顿地区的员工 ' Set rst = dbs.OpenRecordset("SELECT Title, " _ & "Count(Title) AS Tally " _ & "FROM Employees WHERE Region = 'WA' " _ & "GROUP BY Title;") ' populateRecordset。 rst.MoveLast ' 调用 EnumFields 来打印记录集的内容。 '传递记录集对象和要求的字符宽度。 ' EnumFields rst, 25 dbs.Close End Sub |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-29 17:30 , Processed in 0.179258 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.