First、 Last 函數(shù)示例 (DAO)
內容
此示例使用員工表返回第一筆和最后一筆記錄之姓氏字段的值。
此示例調用過程 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 函數(shù)來查找員工最早和最晚的生日日期，以比較 First 和 Last 函數(shù)的結果。
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