共用方式為

逐步解說：操作資料 (Visual Basic) (LINQ to SQL)

  • 發行項

本逐步解說針對加入、修改和刪除資料庫中的資料，提供基本的端對端 LINQ to SQL 案例。 您將使用範例 Northwind 資料庫的複本來加入客戶、變更客戶名稱，以及刪除訂單。

注意事項注意事項

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

本逐步解說是使用 Visual Basic 開發設定所撰寫。

必要條件

本逐步解說需要下列項目：

  • 本逐步解說會使用專用資料夾 ("c:\linqtest2") 來保存檔案。 請先建立這個資料夾，再開始逐步解說。

  • Northwind 範例資料庫。

    如果您的開發電腦上沒有這個資料庫，可以從 Microsoft 下載網站下載。 如需相關說明，請參閱下載範例資料庫 (LINQ to SQL)。 下載資料庫之後，請將 northwnd.mdf 檔案複製至 c:\linqtest2 資料夾。

  • 從 Northwind 資料庫產生的 Visual Basic 程式碼檔。

    您可以使用物件關聯式設計工具或 SQLMetal 工具來產生這個檔案。 本逐步解說是使用 SQLMetal 工具，以下列命令列所撰寫：

    sqlmetal /code:"c:\linqtest2\northwind.vb" /language:vb "C:\linqtest2\northwnd.mdf" /pluralize

    如需詳細資訊，請參閱SqlMetal.exe (程式碼產生工具)。

概觀

此逐步解說包含六個主要工作：

  • 在 Visual Studio 中建立 LINQ to SQL 方案。

  • 將資料庫程式碼檔案加入至專案。

  • 建立新的客戶物件。

  • 修改客戶的連絡人名稱。

  • 刪除訂單。

  • 將這些變更送出至 Northwind 資料庫。

建立 LINQ to SQL 方案

在第一個工作中，您要建立一個 Visual Studio 方案內含必要的參考，以建置並執行 LINQ to SQL 專案。

若要建立 LINQ to SQL 方案

  1. 按一下 Visual Studio [檔案] 功能表上的 [新增專案]。

  2. 在 [新增專案] 對話方塊的 [專案類型] 窗格中，按一下 [Visual Basic]。

  3. 按一下 [範本] 窗格中的 [主控台應用程式]。

  4. 在 [名稱] 方塊中，輸入 LinqDataManipulationApp。

  5. 按一下 [確定]。

加入 LINQ 參考和指示詞

本逐步解說使用的組件，可能在您的專案中預設為不安裝。 如果 System.Data.Linq 未列為專案中的參考 (按一下 [方案總管] 中的 [顯示所有檔案]，並展開 [參考] 節點)，請按照下列步驟所述將它加入。

若要加入 System.Data.Linq

  1. 在 [方案總管] 中，以滑鼠右鍵按一下 [參考]，再按一下 [加入參考]。

  2. 按一下 [加入參考] 對話方塊中的 [.NET]，然後按一下 System.Data.Linq 組件，再按一下 [確定]。

    組件隨即加入至專案。

  3. 在程式碼編輯器中，將下列指示詞加入至 [Module1] 的上方：

    Imports System.Data.Linq
Imports System.Data.Linq.Mapping

將 Northwind 程式碼檔案加入至專案

這些步驟假設您已使用 SQLMetal 工具，從 Northwind 範例資料庫產生程式碼檔案。 如需詳細資訊，請參閱本逐步解說稍早的「必要條件」一節。

若要將 Northwind 程式碼檔案加入至專案

  1. 在 [專案] 功能表上，按一下 [加入現有項目]。

  2. 在 [加入現有項目] 對話方塊中，巡覽至 c:\linqtest2\northwind.vb，然後按一下 [加入]。

    northwind.vb 檔案會加入至專案。

設定資料庫連接

請先測試資料庫連接。 請特別注意，資料庫的名稱 (Northwnd) 沒有字母 i。 如果在後續步驟發生錯誤，則請檢閱 northwind.vb 檔案，以判斷 Northwind 部分類別的拼法。

若要設定和測試資料庫連接

  1. 在 Sub Main 中輸入或貼上下列程式碼：

    ' Use a connection string, but connect to
'     the temporary copy of the database.
Dim db As New Northwnd _
    ("C:\linqtest2\northwnd.mdf")

' Keep the console window open after activity stops.
Console.ReadLine()

  2. 按 F5，立即測試應用程式。

    [主控台] 視窗隨即開啟。

    在 [主控台] 視窗中按 Enter 鍵，或按一下 Visual Studio [偵錯] 功能表上的 [停止偵錯]，就可以關閉應用程式。

建立新的實體

建立新的實體十分簡單。 您可以使用 New 關鍵字來建立物件 (如 Customer)。

在本節和下列各節中，您變更的只是本機快取。 在本逐步解說最後呼叫 SubmitChanges 之前，都不會將變更傳送至資料庫。

若要加入新的 Customer 實體物件

  1. 在 Sub Main 中的 Console.ReadLine 之前加入下列程式碼，以建立新的 Customer：

    ' Create the new Customer object.
Dim newCust As New Customer()
newCust.CompanyName = "AdventureWorks Cafe"
newCust.CustomerID = "A3VCA"

' Add the customer to the Customers table.
db.Customers.InsertOnSubmit(newCust)

Console.WriteLine("Customers matching CA before insert:")

Dim custQuery = _
    From cust In db.Customers _
    Where cust.CustomerID.Contains("CA") _
    Select cust

For Each cust In custQuery
    Console.WriteLine("Customer ID: " & cust.CustomerID)
Next

  2. 按 F5 對方案進行偵錯。

    主控台視窗中顯示的結果如下：

    Customers matching CA before insert:

    Customer ID: CACTU

    Customer ID: RICAR

    請注意，新的資料列不會出現在結果中。 新的資料尚未送出至資料庫。

  3. 在 [主控台] 視窗中按 Enter 鍵，以停止偵錯。

更新實體

在下列步驟中，您會擷取 Customer 物件，並修改它的其中一個屬性。

若要變更 Customer 的名稱

  • 將下列程式碼加入至 Console.ReadLine() 的上方：

    Dim existingCust = _
    (From cust In db.Customers _
    Where cust.CustomerID = "ALFKI" _
    Select cust).First()

' Change the contact name of the customer.
existingCust.ContactName = "New Contact"

刪除實體

您可以使用同一個客戶物件，刪除第一份訂單。

在下列程式碼中，會示範如何中斷資料列之間的關聯性 (Relationship)，以及如何刪除資料庫中的資料列。

若要刪除資料列

  • 將下列程式碼加入至 Console.ReadLine() 的正上方：

    ' Access the first element in the Orders collection.
Dim ord0 As Order = existingCust.Orders(0)

' Access the first element in the OrderDetails collection.
Dim detail0 As OrderDetail = ord0.OrderDetails(0)

' Display the order to be deleted.
Console.WriteLine _
    (vbCrLf & "The Order Detail to be deleted is: OrderID = " _
    & detail0.OrderID)

' Mark the Order Detail row for deletion from the database.
db.OrderDetails.DeleteOnSubmit(detail0)

將變更送出至資料庫

建立、更新和刪除物件所需的最後一個步驟是實際將變更送出至資料庫。 如果沒有這個步驟，所進行的變更只會留在本機上，並不會出現在查詢結果中。

若要將變更送出至資料庫

  1. 將下列程式碼插入至 Console.ReadLine 的正上方：

    db.SubmitChanges()

  2. 將下列程式碼插入至 SubmitChanges 之後，以比較送出變更之前和之後的效果：

    Console.WriteLine(vbCrLf & "Customers matching CA after update:")
Dim finalQuery = _
    From cust In db.Customers _
    Where cust.CustomerID.Contains("CA") _
    Select cust

For Each cust In finalQuery
    Console.WriteLine("Customer ID: " & cust.CustomerID)
Next

  3. 按 F5 對方案進行偵錯。

    主控台視窗隨即出現如下內容：

    Customers matching CA before update:
Customer ID: CACTU
Customer ID: RICAR

The Order Detail to be deleted is: OrderID = 10643

Customers matching CA after update:
Customer ID: A3VCA
Customer ID: CACTU
Customer ID: RICAR

  4. 在 [主控台] 視窗中按 Enter 鍵，以停止偵錯。

注意事項注意事項

送出變更以加入新的客戶之後，因為您無法再原樣加入同一位客戶，所以無法再原樣執行這個方案。若要再執行一次這個方案，請變更要加入的客戶 ID 值。

請參閱

概念

從逐步解說學習 (LINQ to SQL)