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

發行項
08/21/2008

更新： November 2007

本逐步解說針對加入、修改和刪除資料庫中的資料，提供基本的端對端 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 方案

按一下 Visual Studio [檔案] 功能表上的 [新增專案]。
在 [新增專案] 對話方塊的 [專案類型] 窗格中，按一下 [Visual Basic]。
按一下 [範本] 窗格中的 [主控台應用程式]。
在 [名稱] 方塊中，輸入 LinqDataManipulationApp。
按一下 [確定]。

加入 LINQ 參考和指示詞

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

若要加入 System.Data.Linq

在 [方案總管] 中，以滑鼠右鍵按一下 [參考]，再按一下 [加入參考]。
按一下 [加入參考] 對話方塊中的 [.NET]，然後按一下 System.Data.Linq 組件，再按一下 [確定]。

組件隨即加入至專案。
在程式碼編輯器中，將下列指示詞加入至 [Module1] 的上方：
```
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
```

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

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

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

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

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

設定資料庫連接

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

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

在 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()

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

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

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

建立新的實體

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

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

若要加入新的 Customer 實體物件

在 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

按 F5 對方案進行偵錯。

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

Customers matching CA before insert:

Customer ID: CACTU

Customer ID: RICAR

請注意，新的資料列不會出現在結果中。新的資料尚未送出至資料庫。
在 [主控台] 視窗中按 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)

將變更送出至資料庫

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

若要將變更送出至資料庫

將下列程式碼插入至 Console.ReadLine 的正上方：
```
db.SubmitChanges()
```

將下列程式碼插入至 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

按 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

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

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

請參閱

概念

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

Share via