演练：跨关系查询 (Visual Basic)

本演练演示如何使用 LINQ to SQL 关联来表示数据库中的外键关系。

注意

以下说明中的某些 Visual Studio 用户界面元素在计算机上出现的名称或位置可能会不同。 这些元素取决于你所使用的 Visual Studio 版本和你所使用的设置。 有关详细信息，请参阅个性化设置 IDE。

本演练是使用 Visual Basic 开发设置编写的。

先决条件

必须已完成演练：简单对象模型和查询 (Visual Basic)。 本演练建立在该演练基础之上，包括在 c:\linqtest 中须存在 northwnd.mdf 文件。

概述

本演练由三项主要任务组成：

• 添加一个实体类以表示 Northwind 示例数据库中的 Orders 表。

• 向 Customer 类补充一些批注，以增强 Customer 和 Order 类之间的关系。

• 创建并运行查询以测试通过使用 Order 类获取 Customer 信息的过程。

跨表映射关系

在 Customer 类定义的后面，创建包含如下代码的 Order 实体类定义，这些代码表示 Orders.Customer 作为外键与 Customers.CustomerID 相关。

添加 Order 实体类

• 在 Customer 类后面键入或粘贴如下代码：

  <Table(Name:="Orders")> _
  Public Class Order
      Private _OrderID As Integer
      Private _CustomerID As String
      Private _Customers As EntityRef(Of Customer)
  
      Public Sub New()
          Me._Customers = New EntityRef(Of Customer)()
      End Sub
  
      <Column(Storage:="_OrderID", DbType:="Int NOT NULL IDENTITY", _
          IsPrimaryKey:=True, IsDBGenerated:=True)> _
      Public ReadOnly Property OrderID() As Integer
          Get
              Return Me._OrderID
          End Get
      End Property
      ' No need to specify a setter because IsDBGenerated is true.
  
      <Column(Storage:="_CustomerID", DbType:="NChar(5)")> _
      Public Property CustomerID() As String
          Get
              Return Me._CustomerID
          End Get
          Set(ByVal value As String)
              Me._CustomerID = value
          End Set
      End Property
  
      <Association(Storage:="_Customers", ThisKey:="CustomerID")> _
      Public Property Customers() As Customer
          Get
              Return Me._Customers.Entity
          End Get
          Set(ByVal value As Customer)
              Me._Customers.Entity = value
          End Set
      End Property
  End Class
  

对 Customer 类进行批注

在此步骤中，您要对 Customer 类进行批注，以指示它与 Order 类的关系。 （这种添加注释的操作并非绝对必需的，因为定义任一方向上的关系都足以满足创建链接的需要。但添加此注释确实便于你在任一方向上定位对象。）

对 Customer 类进行批注

• 将下面的代码键入或粘贴到 Customer 类中：

  Private _Orders As EntitySet(Of Order)
  
  Public Sub New()
      Me._Orders = New EntitySet(Of Order)()
  End Sub
  
  <Association(Storage:="_Orders", OtherKey:="CustomerID")> _
  Public Property Orders() As EntitySet(Of Order)
      Get
          Return Me._Orders
      End Get
      Set(ByVal value As EntitySet(Of Order))
          Me._Orders.Assign(value)
      End Set
  End Property
  

跨 Customer-Order 关系创建并运行查询

现在您可以直接从 Order 对象访问 Customer 对象，或反过来进行访问。 客户和订单之间不需要显式联接。

使用 Customer 对象访问 Order 对象

1. 通过将下面的代码键入或粘贴到 Sub Main 方法中修改此方法：

   ' Query for customers who have no orders.
   Dim custQuery = _
       From cust In Customers _
       Where Not cust.Orders.Any() _
       Select cust
   
   Dim msg As String = "", title As String = _
       "Customers With No Orders", response As MsgBoxResult, _
       style As MsgBoxStyle = MsgBoxStyle.Information
   
   For Each custObj In custQuery
       msg &= String.Format(custObj.CustomerID & vbCrLf)
   Next
   response = MsgBox(msg, style, title)
   

2. 按 F5 调试应用程序。

   消息框中会显示两个名称，并且控制台窗口会显示生成的 SQL 代码。

3. 关闭此消息框以停止调试。

创建数据库的强类型化视图

从数据库的强类型化视图着手要容易得多。 通过将 DataContext 对象强类型化，您无需调用 GetTable。 当您使用强类型化的 DataContext 对象时，您可以在所有查询中使用强类型化表。

在以下步骤中，您将创建 Customers 作为映射到数据库中的 Customers 表的强类型化表。

对 DataContext 对象进行强类型化

1. 将下面的代码添加到 Customer 类声明的上方。

   Public Class Northwind
       Inherits DataContext
       ' Table(Of T) abstracts database details  per
       ' table/data type.
       Public Customers As Table(Of Customer)
       Public Orders As Table(Of Order)
   
       Public Sub New(ByVal connection As String)
           MyBase.New(connection)
       End Sub
   End Class
   

2. 将 Sub Main 修改为使用强类型化的 DataContext，如下所示：

   ' Use a connection string.
   Dim db As New Northwind _
       ("C:\linqtest\northwnd.mdf")
   
   ' Query for customers from Seattle.
   Dim custs = _
       From cust In db.Customers _
       Where cust.City = "Seattle" _
       Select cust
   
   For Each custObj In custs
       Console.WriteLine("ID=" & custObj.CustomerID)
   Next
   
   ' Freeze the console window.
   Console.ReadLine()
   

3. 按 F5 调试应用程序。

   控制台窗口输出如下：

   ID=WHITC

4. 在控制台窗口中按 Enter，以关闭应用程序。

5. 若要保存此应用程序，请在“文件”菜单上单击“全部保存”。

后续步骤

下一个演练（演练：操作数据 (Visual Basic)）演示如何操作数据。 该演练不要求您保存本系列中已经完成的两个演练的结果。

请参阅

• 通过演练学习