First、 Last 函数示例 (DAO)
First、 Last 函数示例
此示例使用员工表返回第一笔和最后一笔记录之姓氏字段的值。
此示例调用过程 EnumFields 过程,且可以在 SELECT 语句示例中找到该过程。
Sub FirstLastX1()
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 对运费超过 $100 的订单,
' 从表返回第一笔和最后一笔记录
' 的姓氏字段的值。
Set rst = dbs.OpenRecordset("SELECT " _
& "First(LastName) as First, " _
& "Last(LastName) as Last FROM Employees;")
' populateRecordset。
rst.MoveLast
' 调用 EnumFields 来打印记录集的内容。
'传递记录集对象和要求的字符宽度。
'
EnumFields rst, 12
dbs.Close
End Sub
下一个示例简单地使用 Min 和 Max 函数来查找员工最早和最晚的生日日期,以比较 First 和 Last 函数的结果。
Sub FirstLastX2()
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 对运费超过 $100 的订单,
' 查找员工最早和最晚的生日日期。
'
Set rst = dbs.OpenRecordset("SELECT " _
& "First(BirthDate) as FirstBD, " _
& "Last(BirthDate) as LastBD FROM Employees;")
' populateRecordset。
rst.MoveLast
' 调用 EnumFields 来打印记录集的内容。
'传递记录集对象和要求的字符宽度。
'
EnumFields rst, 12
Debug.Print
' 查找员工最早和最晚的生日日期。
'
Set rst = dbs.OpenRecordset("SELECT " _ & "Min(BirthDate) as MinBD," _
& "Max(BirthDate) as MaxBD FROM Employees;")
' populateRecordset。
rst.MoveLast
' 调用 EnumFields 来打印记录集的内容。
'传递记录集对象和要求的字符宽度。
'
EnumFields rst, 12
dbs.Close
End Sub