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

文章翻譯 文章翻譯
文章編號: 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 - 上次校閱: 2007年1月19日 - 版次: 3.3
這篇文章中的資訊適用於:
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
關鍵字:?
kbmt kbhowto kbprogramming KB153747 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:153747
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此,本文係依「現狀」提供,不會再更新。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com