您目前已離線,請等候您的網際網路重新連線

ACC: 如何建立最上層的 N 值每個群組查詢

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本:153747
本文已封存。本文係以「現狀」提供且不會再更新。
中級使用者: 需要基本巨集]、 [程式碼撰寫,] 以及 [交互操作性技巧。
結論
本文將告訴您兩個方法可以用來建立查詢每個群組的清單最上層的 N 項目。利用其中一種方法您可以建立查詢,顯示僅頂端五個業務員每個地區,例如]。

第二個本文中所述的方法會假設您已熟悉使用 Visual Basic 應用程式以及建立 Microsoft Access 應用程式使用程式設計與 Microsoft Access 所提供的工具。 如需有關 Visual Basic 應用程式,請參閱您的建置應用程式與 Microsoft 存取] 手冊版本。
其他相關資訊
若要列出只頂端 N 中的項目在查詢中的群組,您必須指定準則,以動態方式讀取群組資料行在查詢中的,並限制要內每個群組上方的 N 值之項目的資料行。方法 1 使用 SQL 子查詢來動態產生的前 N 的項目,為每個群組清單,然後再使用 [為準則此清單項目的資料行使用 IN 運算子。方法 2 會使用使用者定義函式傳回第 n 個項目,接著會使用與在特定群組內 > = 運算子,傳回 Nth 和更高的項目。

方法 1

下列範例會示範如何在顯示每個 [類別編號] 頂端的三個庫存量的北風貿易範例資料庫中建立查詢。 查詢會使用傳回前三個庫存量指定特定的 [類別編號],一 SQL 子查詢,然後再使用 IN 運算子限制在主要查詢中的記錄。

注意: 在步驟 5 中的此準則] 範例中的線條結尾是以底線 (_) 是用來當做行接續字元。重新建立準則時,則請移除行尾底線。

  1. 開啟範例資料庫 Northwind.mdb。
  2. 按一下 [查詢] 索引標籤,然後再按一下 [新增]。
  3. 按一下 [設計檢視],然後按一下 [確定]。
  4. 在 [顯示資料表] 對話方塊中,新增 「 類別 」 及 「 產品資料 」 資料表,然後再按一下 [關閉。
  5. 將下列欄位新增至查詢格線中:
    欄位: [類別名稱
    排序: 遞增

    欄位: [產品名稱] 欄位

    欄位: 庫存量
    排序: 遞減
    準則: 在 (從產品選擇前 3 [庫存量] Where _
    [類別編號] = [類別] [類別編號] 順序],依 [庫存量] 遞減)
  6. 執行查詢。請注意查詢會傳回最上層的三個庫存量每個類別。

方法 2

下列範例示範如何顯示最後 5 個放置每位客戶的訂單北風貿易範例資料庫中建立查詢。 查詢會使用準則函式呼叫會傳回第五最近的訂單日期指定特定的客戶編號的 NthInGroup()。使用 > = 運算子連同這個函式會傳回已排序或第五最新的 [訂單日期] 之後每位客戶的所有訂單:

  1. 開啟範例資料庫 Northwind.mdb。
  2. 建立新的模組,並將下列這一行新增到 [宣告區段如果它已經不存在:
    外顯的選項
  3. 建立下列的程序:
          Function NthInGroup(GroupID, N)      ' Returns the Nth Item in GroupID for use as a Top N per group      ' query criteria.      Static LastGroupId, LastNthInGroup      Dim ItemName, GroupIDName, GDC, SearchTable      Dim SQL As String, rs As Recordset, db As DATABASE      If (LastGroupId = GroupID) Then         ' Returned saved result if function is called with the         ' same GroupID more than once in a row.         NthInGroup = LastNthInGroup      Else         ' Set the SQL statement parameters. These are the only items         ' that need to be customized in this function.         ' Set to Item field name.         ItemName = "OrderDate"         ' Set to Group ID field name.         GroupIDName = "CustomerID"         ' GroupID Delimiter Character:         ' For Text use "'" (Note that this is a quotation mark, a space,         ' an apostrophe, a space, and then a quotation mark. The spaces         ' are necessary for SQL statements), Date "#", Numeric ""         GDC = "'"         ' Set to search table.         SearchTable = "Orders"         ' Build a Top N SQL statement dynamically given N and         ' GroupID as parameters. Note that the sort is by the         ' item in descending order, in order to get the Top N         ' largest items.         SQL = "Select Top " & N & " [" & ItemName & "] "         SQL = SQL & "From [" & SearchTable & "] "         SQL = SQL & "Where [" & GroupIDName & "]=" & GDC & GroupID & GDC _            & " "         SQL = SQL & "Order By [" & ItemName & "] Desc"         ' Open up recordset on Top N SQL statement and read the         ' last record to get the smallest item in the Top N.         Set db = CurrentDb()         Set rs = db.OpenRecordset(SQL)         If (rs.BOF And rs.EOF) Then            ' No matches found, return a null.            LastNthInGroup = Null            LastGroupId = GroupID            NthInGroup = LastNthInGroup            Else               ' Return the smallest Top N item in the group.               rs.MoveLast               LastNthInGroup = rs(ItemName)               LastGroupId = GroupID               NthInGroup = LastNthInGroup             End If          End If       End Function						
  4. 將模組編譯並再關閉,並將模組存成 basTopN。
  5. 按一下 [查詢] 索引標籤,然後再按一下 [新增]。
  6. 按一下 [設計檢視],然後按一下 [確定]。
  7. 在 [顯示資料表] 對話方塊中,新增 [客戶] 和 [訂貨主檔] 資料表。 按一下 [關閉]。
  8. 將下列欄位新增至查詢格線中:
    欄位: [客戶編號]
    排序: 遞增


    欄位: 訂單編號

    欄位: 訂單日期
    排序: 遞減
    準則: > = NthInGroup([Customers].[CustomerID],5)
  9. 執行查詢。請注意對於有至少 5 個訂單的所有客戶,查詢會傳回 5 個最近的訂單。對於具有少於五個訂單的客戶,查詢會傳回所有訂單。
参考
如需有關子查詢的詳細資訊,搜尋 [子查詢,然後 SQL 子查詢 使用 Microsoft Access 97 說明索引]。

警告:本文為自動翻譯

內容

文章識別碼:153747 - 最後檢閱時間:12/04/2015 15:04:29 - 修訂: 3.3

Microsoft Access 95 Standard Edition, Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto kbprogramming KB153747 KbMtzh
意見反應