Como filtrar resultados de consulta usando LINQ (Visual Basic)

LINQ (Consulta Integrada à Linguagem) facilita o acesso às informações do banco de dados e a execução de consultas.

O exemplo a seguir mostra como criar um novo aplicativo que executa consultas em um banco de dados SQL Server e filtra os resultados por um valor específico usando a cláusula Where. Para obter mais informações, consulte Cláusula where.

Os exemplos neste tópico usam o banco de dados de exemplo Northwind. Caso não tenha esse banco de dados no seu computador de desenvolvimento, você poderá baixá-lo no Centro de Download da Microsoft. Para obter as instruções, consulte Baixar Bancos de Dados de Exemplo.

Para criar uma conexão com um banco de dados

1. No Visual Studio, abra o Gerenciador de Servidores/Gerenciador de Banco de Dados clicando em Gerenciador de Servidores/Gerenciador de Banco de Dados no menu Exibir.

2. Clique com o botão direito do mouse em Conexões de Dados no Gerenciador de Servidores/Gerenciador de Banco de Dados e, em seguida, clique em Adicionar Conexão.

3. Especifique uma conexão válida com o banco de dados de exemplo Northwind.

Para adicionar um projeto que contém um arquivo LINQ to SQL

1. No Visual Studio, no menu Arquivo, aponte para Novo e clique em Projeto. Selecione Aplicativo do Windows Forms no Visual Basic como o tipo de projeto.

2. No menu Projeto , clique em Adicionar Novo Item. Selecione o modelo de item Classes LINQ to SQL.

3. Atribua um nome ao arquivo northwind.dbml. Clique em Adicionar. O O/R Designer (Object Relational Designer) é aberto para o arquivo northwind.dbml.

Para adicionar tabelas à consulta ao Designer Relacional de Objetos

1. No Gerenciador de Servidores/Gerenciador de Banco de Dados, expanda a conexão com o banco de dados Northwind. Expanda a pasta Tabelas .

   Se você tiver fechado o Designer Relacional de Objetos, poderá reabri-lo clicando duas vezes no arquivo northwind.dbml que adicionou anteriormente.

2. Clique na tabela Customer e arraste-a para o painel esquerdo do designer. Clique na tabela Orders e arraste-a para o painel esquerdo do designer.

   O designer cria objetos Customer e Order para seu projeto. Observe que o designer detecta automaticamente relações entre as tabelas e cria propriedades filho para objetos relacionados. Por exemplo, o IntelliSense mostrará que o objeto Customer tem uma propriedade Orders para todos os pedidos relacionados a esse cliente.

3. Salve suas alterações e feche o designer.

4. Salve seu projeto.

Para adicionar código para consultar o banco de dados e exibir os resultados

1. Na Caixa de Ferramentas, arraste um controle DataGridView para o Windows Form padrão para seu projeto, Form1.

2. Clique duas vezes no Form1 para adicionar código ao evento Load do formulário.

3. Quando você adicionou tabelas ao Designer Relacional de Objetos, ele adicionou um objeto DataContext ao seu projeto. Este objeto contém o código que você precisa ter para acessar essas tabelas, além de objetos e coleções individuais para cada tabela. O objeto DataContext do projeto é nomeado com base no nome do arquivo .dbml. Para este projeto, o objeto DataContext é chamado northwindDataContext.

   Você pode criar uma instância do DataContext no seu código e consultar as tabelas especificadas pelo Designer O/R.

   Adicione o código a seguir ao evento Load para consultar as tabelas expostas como propriedades do contexto de dados. A consulta filtra os resultados e retorna apenas os clientes que estão localizados em 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. Pressione F5 para executar seu projeto e exibir os resultados.

5. A seguir, alguns outros filtros que você pode tentar.

   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
   

Confira também

• LINQ
• Consultas
• LINQ to SQL
• Métodos de DataContext (Designer de Objeto Relacional)