如何:使用 LINQ 筛选查询结果 (Visual Basic)

使用语言集成查询 (LINQ) 可以轻松访问数据库信息和执行查询。

以下示例演示如何创建一个对 SQL Server 数据库执行查询并使用 Where 子句按一个特定值来对结果进行筛选的新应用程序。 有关详细信息,请参阅 Where 子句

本主题中的示例使用 Northwind 示例数据库。 如果你的开发计算机上没有此数据库,可以从 Microsoft 下载中心进行下载。 有关说明,请参阅下载示例数据库

注意

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

创建与数据库的连接

  1. 在 Visual Studio 的“视图”菜单中,单击“服务器资源管理器”/“数据库资源管理器”,打开“服务器资源管理器”/“数据库资源管理器”。

  2. 在“服务器资源管理器”/“数据库资源管理器”中右键单击“数据连接”,然后单击“添加连接”。

  3. 指定与 Northwind 示例数据库的有效连接。

添加包含 LINQ to SQL 文件的项目

  1. 在 Visual Studio 中的“文件”菜单上,指向“新建”,然后单击“项目”。 选择 Visual Basic“Windows 窗体应用程序”作为项目类型。

  2. “项目” 菜单上,单击 “添加新项”。 选择“LINQ to SQL 类”项模板。

  3. 命名文件 northwind.dbml。 单击“添加”。 将为 northwind.dbml 文件打开对象关系设计器(O/R 设计器)。

将要查询的表添加到 O/R 设计器

  1. 在“服务器资源管理器”/“数据库资源管理器”中,展开与 Northwind 数据库的连接。 展开 “表” 文件夹。

    如果关闭了 O/R 设计器,可通过双击先前添加的 northwind.dbml 文件来重新打开它。

  2. 单击“Customers”表并将其拖放到设计器的左侧窗格中。 单击“Orders”表并将其拖放到设计器的左侧窗格中。

    设计器将为项目创建新的 CustomerOrder 对象。 请注意,设计器会自动检测表之间的关系,并为相关对象创建子属性。 例如,IntelliSense 将显示 Customer 对象具有与该客户相关的所有订单的 Orders 属性。

  3. 保存更改并关闭设计器。

  4. 保存你的项目。

添加代码以查询数据库并显示结果

  1. 从“工具箱”中,将 DataGridView 控件拖放到项目的默认 Windows 窗体 (Form1) 中。

  2. 双击“Form1”,将代码添加到该窗体的 Load 事件。

  3. 将表添加到 O/R 设计器后,设计器将为项目添加一个 DataContext 对象。 此对象包含访问这些表以及每个表的各个对象和集合所需的代码。 项目的 DataContext 对象是根据 .dbml 文件的名称命名的。 对于此项目,DataContext 对象命名为 northwindDataContext

    可以在代码中创建 DataContext 的实例,并查询 O/R 设计器指定的表。

    将以下代码添加到 Load 事件,以查询作为数据内容的属性公开的表。 查询将筛选结果,并仅返回位于 London 中的客户。

    Dim db As New northwindDataContext
    
    Dim customers_London = From cust In db.Customers
                           Where cust.City = "London"
                           Select cust.CustomerID, cust.CompanyName,
                                  OrderCount = cust.Orders.Count,
                                  cust.City, cust.Country
    
    DataGridView1.DataSource = customers_London
    
  4. 按 F5 运行项目并查看结果。

  5. 下面是一些可以尝试的其他筛选。

    Dim companies_H = From cust In db.Customers
                      Where cust.Orders.Count > 0 And
                            cust.CompanyName.StartsWith("H")
                      Select cust.CustomerID, cust.CompanyName,
                             OrderCount = cust.Orders.Count,
                             cust.Country
    
    Dim customers_USA = From cust In db.Customers
                        Where cust.Orders.Count > 15 And
                              cust.Country = "USA"
                        Select cust.CustomerID, cust.CompanyName,
                               OrderCount = cust.Orders.Count,
                               cust.Country
    

另请参阅