如何：使用 LINQ 修改資料庫中的資料 (Visual Basic)

發行項
06/08/2015

Language-Integrated Query (LINQ) 查詢可讓您輕鬆地存取資料庫資訊及修改資料庫中的值。

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

若要建立連接至資料庫

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

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

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

若要加入資料表以對設計工具進行查詢及修改

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

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

設計工具會為您的專案建立新的 Customer 物件。
儲存變更並關閉設計工具。
儲存您的專案。

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

從 [工具箱] 將 DataGridView 控制項拖曳至專案的預設 Windows Form 上 (Form1)。
當您將資料表加入至 O/R 設計工具時，設計工具會將 DataContext 物件加入至您的專案。這個物件包含您可以用來存取 Customers 資料表的程式碼。也包含用來定義資料表之區域 Customer 物件及 Customers 集合的程式碼。專案的 DataContext 物件是根據 .dbml 檔案的名稱命名的。在這個專案中，DataContext 物件命名為 northwindDataContext。

您可以在程式碼中建立 DataContext 物件的執行個體 (Instance)，並查詢及修改 O/R 設計工具指定的 Customers 集合。您對 Customers 集合所做的變更，在您呼叫 DataContext 物件的 SubmitChanges 方法送出變更之前，都不會反映在資料庫中。

按兩下 Windows Form 的 Form1，將程式碼加入至 Load 事件以查詢公開為 DataContext 之屬性的 Customers 資料表。加入以下程式碼：
```
Private db As northwindDataContext

Private Sub Form1_Load(ByVal sender As System.Object, 
                       ByVal e As System.EventArgs
                      ) Handles MyBase.Load
  db = New northwindDataContext()

  RefreshData()
End Sub

Private Sub RefreshData()
  Dim customers = From cust In db.Customers 
                  Where cust.City(0) = "W" 
                  Select cust

  DataGridView1.DataSource = customers
End Sub
```
從 [工具箱] 將三個 Button 控制項拖曳到表單上。選取第一個 Button 控制項。在 [屬性] 視窗中，將 Button 控制項的 Name 設定為 AddButton，並將 Text 設定為 Add。選取第二個按鈕並將 Name 屬性設定為 UpdateButton，以及將 Text 屬性設定為 Update。選取第三個按鈕並將 Name 屬性設定為 DeleteButton 以及將 Text 屬性設定為 Delete。

按兩下 [Add] 按鈕將程式碼加入至其 Click 事件。加入以下程式碼：

Private Sub AddButton_Click(ByVal sender As System.Object, 
                            ByVal e As System.EventArgs
                           ) Handles AddButton.Click
  Dim cust As New Customer With { 
    .City = "Wellington", 
    .CompanyName = "Blue Yonder Airlines", 
    .ContactName = "Jill Frank", 
    .Country = "New Zealand", 
    .CustomerID = "JILLF"}

  db.Customers.InsertOnSubmit(cust)

  Try
    db.SubmitChanges()
  Catch
    ' Handle exception.
  End Try

  RefreshData()
End Sub

按兩下 [Update] 按鈕將程式碼加入至其 Click 事件。加入以下程式碼：

Private Sub UpdateButton_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs
                              ) Handles UpdateButton.Click
  Dim updateCust = (From cust In db.Customers 
                    Where cust.CustomerID = "JILLF").ToList()(0)

  updateCust.ContactName = "Jill Shrader"

  Try
    db.SubmitChanges()
  Catch
    ' Handle exception.
  End Try

  RefreshData()
End Sub

按兩下 [Delete] 按鈕將程式碼加入至其 Click 事件。加入以下程式碼：

Private Sub DeleteButton_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs
                              ) Handles DeleteButton.Click
  Dim deleteCust = (From cust In db.Customers 
                    Where cust.CustomerID = "JILLF").ToList()(0)

  db.Customers.DeleteOnSubmit(deleteCust)

  Try
    db.SubmitChanges()
  Catch
    ' Handle exception.
  End Try

  RefreshData()
End Sub

請按 F5 執行您的專案。按一下 [Add] 以加入新記錄。按一下 [Update] 以修改新記錄。按一下 [Delete] 以刪除新記錄。

請參閱

共用方式為