HOW TO：使用 LINQ 統計、加總或平均資料 (Visual Basic)

發行項
08/12/2011

Language-Integrated Query (LINQ) 可讓您輕鬆地存取資料庫資訊和執行查詢。

下列範例顯示如何建立新的應用程式，對 SQL Server 資料庫執行查詢。其中會使用 Aggregate 和 Group By 子句，計數、加總並平均結果。如需詳細資訊，請參閱 Aggregate 子句 (Visual Basic) 和 Group By 子句 (Visual Basic)。

本主題中的範例使用 Northwind 範例資料庫。如果您的開發電腦上沒有 Northwind 範例資料庫，可以從 Microsoft 下載中心 (英文) 網站下載。如需相關說明，請參閱下載範例資料庫 (LINQ to SQL)。

注意事項
您的電腦可能會在下列說明中，以不同名稱或位置顯示某些 Visual Studio 使用者介面項目。您所擁有的 Visual Studio 版本以及使用的設定會決定這些項目。如需詳細資訊，請參閱 Visual Studio 設定。

若要建立連接至資料庫

在 Visual Studio 中，按一下 [檢視] 功能表上的 [伺服器總管]/[資料庫總管]，以開啟 [伺服器總管]/[資料庫總管]。
以滑鼠右鍵按一下 [伺服器總管]/[資料庫總管] 中的 [資料連接]，然後按一下 [加入連接]。
指定至 Northwind 範例資料庫的有效連接。

若要加入內含 LINQ to SQL 檔案的專案

在 Visual Studio 的 [檔案] 功能表上，指向 [新增]，然後按一下 [專案]。選取 Visual Basic [Windows Form 應用程式] 為專案類型。
按一下 [專案] 功能表上的 [加入新項目]。選取 [LINQ to SQL 類別] 項目範本。
將檔案命名為 northwind.dbml。按一下 [加入]。系統會針對 northwind.dbml 檔案開啟物件關聯式設計工具 (O/R 設計工具)。

若要將資料表加入至 O/R 設計工具的查詢

在 [伺服器總管]/[資料庫總管] 中，展開 Northwind 資料庫的連接。展開 [資料表] 資料夾。

如果您關閉了 O/R 設計工具，可以按兩下您稍早加入的 northwind.dbml 檔案以重新開啟。
按一下 [Customers] 資料表，將它拖曳至設計工具的左窗格。按一下 [Orders] 資料表，將它拖曳至設計工具的左窗格。

設計工具會為您的專案建立新的 Customer 和 Order 物件。請注意，設計工具會自動偵測資料表之間的關聯，並建立關聯物件的子屬性。例如，IntelliSense 會顯示 Customer 物件針對與該客戶相關的所有訂單有一個 Orders 屬性。
儲存變更並關閉設計工具。
儲存您的專案。

若要加入程式碼以查詢資料庫並顯示結果

從 [工具箱] 將 DataGridView 控制項拖曳至專案的預設 Windows Form 上 (Form1)。
按兩下 Form1，將程式碼加入至表單的 Load 事件。

當您將資料表加入至 O/R 設計工具時，設計工具會為專案加入 DataContext 物件。本物件內含的程式碼，您必須擁有才能存取這些資料表，以及個別物件和每一個資料表的集合。專案的 DataContext 物件是根據 .dbml 檔案的名稱命名的。在這個專案中，DataContext 物件命名為 northwindDataContext。

您可以在程式碼中建立 DataContext 的執行個體，並查詢 O/R 設計工具所指定的資料表。

將下列程式碼加入至 Load 事件，以查詢公開 (Expose) 為 DataContext 之屬性的表格，並計數、加總以及平均結果。這個範例會使用 Aggregate 子句查詢單一結果，並使用 Group By 子句顯示群組結果的平均值。

Dim db As New northwindDataContext
Dim msg = ""

Dim londonCustomerCount = Aggregate cust In db.Customers
                          Where cust.City = "London"
                          Into Count()
msg &= "Count of London Customers: " & londonCustomerCount & vbCrLf

Dim averageOrderCount = Aggregate cust In db.Customers
                        Where cust.City = "London"
                        Into Average(cust.Orders.Count)
msg &= "Average number of Orders per customer: " &
       averageOrderCount & vbCrLf

Dim venezuelaTotalOrders = Aggregate cust In db.Customers
                           Where cust.Country = "Venezuela"
                           Into Sum(cust.Orders.Count)
msg &= "Total number of orders from Customers in Venezuela: " &
       venezuelaTotalOrders & vbCrLf

MsgBox(msg)

Dim averageCustomersByCity = From cust In db.Customers
                             Group By cust.City
                             Into Average(cust.Orders.Count)
                             Order By Average

DataGridView1.DataSource = averageCustomersByCity

按下 F5 執行專案並檢視結果。

請參閱

共用方式為