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

發行項
02/28/2013

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

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

本主題中的範例使用 Northwind 範例資料庫。如果您的開發電腦上沒有 Northwind 範例資料庫，可以從 Microsoft 下載中心 (英文) 網站下載。如需相關說明，請參閱Downloading Sample Databases (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 執行專案並檢視結果。

請參閱

共用方式為