Como filtrar os resultados da consulta usando LINQ (Visual Basic)
Language-Integrated Consulta (LINQ) facilita o acesso a informações de 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 do 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 artigo usam o banco de dados de exemplo Northwind. Para obter o banco de dados, consulte Baixando bancos de dados de exemplo.
Nota
Seu computador pode mostrar nomes ou locais diferentes para alguns dos elementos de interface do usuário do Visual Studio nas instruções a seguir. A edição do Visual Studio que você tem e as configurações que você usa determinam esses elementos. Para obter mais informações, consulte Personalizando o IDE.
Para criar uma conexão com um banco de dados
No Visual Studio, abra o Explorador de Servidores /Explorador de Bancos de Dados clicando em Explorador de Servidores /Explorador de Bancos de Dados no menu Exibir .
Clique com o botão direito em Conexões de Dados no Gerenciador de Servidores/Gerenciador de Banco de Dados e, em seguida, clique em Adicionar Conexão.
Especifique uma conexão válida com o banco de dados de exemplo Northwind.
Para adicionar um projeto que contém um LINQ ao arquivo SQL
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.
No menu Project, clique em Adicionar Novo Item. Selecione o modelo de item Classes LINQ to SQL.
Nomeie o arquivo
northwind.dbml
. Clique em Adicionar. O Designer Relacional de Objeto (Designer O/R) abre o arquivo northwind.dbml.
Para adicionar tabelas à consulta ao Designer Relacional de Objetos
Em Server Explorer/Database Explorer, expanda a conexão com o banco de dados Northwind. Expanda a pasta Tabelas .
Se você fechou o Designer O/R, poderá reabri-lo clicando duas vezes no arquivo northwind.dbml que você adicionou anteriormente.
Clique na tabela Clientes e arraste-a para o painel esquerdo do designer. Clique na tabela Pedidos e arraste-a para o painel esquerdo do designer.
O designer cria novos objetos
Customer
eOrder
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 objetoCustomer
tem uma propriedadeOrders
para todos os pedidos relacionados a esse cliente.Salve suas alterações e feche o designer.
Salve seu projeto.
Para adicionar código para consultar o banco de dados e exibir os resultados
Na Caixa de Ferramentas, arraste um controle DataGridView para o Windows Form padrão para seu projeto, Form1.
Clique duas vezes no Form1 para adicionar código ao evento
Load
do formulário.Quando você adicionou tabelas ao Designer O/R, o designer adicionou um objeto DataContext para seu projeto. Este objeto contém o código que você deve 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 é nomeado
northwindDataContext
.Você pode criar uma instância do DataContext em 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 localizados emLondon
.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
Pressione F5 para executar seu projeto e exibir os resultados.
A seguir estão alguns outros filtros que você pode experimentar.
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