Partilhar via

Como modificar dados em um banco de dados usando LINQ (Visual Basic)

  • Artigo

As consultas Language-Integrated Query (LINQ) facilitam o acesso às informações do banco de dados e a modificação de valores no banco de dados.

O exemplo a seguir mostra como criar um novo aplicativo que recupera e atualiza informações em um banco de dados do SQL Server.

Os exemplos neste artigo usam o banco de dados de exemplo Northwind. Para obter o banco de dados, consulte Download de bancos de dados de exemplo.

Para criar uma conexão com um banco de dados

  1. No Visual Studio, abra Explorador de Servidores/Explorador de Base de Dados clicando no menu Exibir e selecione Explorador de Servidores/Explorador de Base de Dados.

  2. Clique com o botão direito do rato em Ligações de Dados no Server Explorer/Database Explorere clique em Adicionar Conexão.

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

Para adicionar um projeto com um arquivo LINQ to SQL

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

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

  3. Nomeie o arquivo northwind.dbml. Clique Adicionar. O Object Relational Designer (O/R Designer) é aberto para o arquivo northwind.dbml.

Para adicionar tabelas para consultar e modificar para o designer

  1. No Server Explorer/Database Explorer, expanda a conexão com o banco de dados Northwind. Expanda a pasta Tabelas.

    Se você tiver fechado o O/R Designer, poderá reabri-lo clicando duas vezes no arquivo northwind.dbml adicionado anteriormente.

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

    O designer cria um novo objeto Customer para seu projeto.

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

  4. Salve seu projeto.

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

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

  2. Quando você adicionou tabelas ao O/R Designer, o designer adicionou um objeto DataContext ao seu projeto. Este objeto contém código que você pode usar para acessar a tabela Customers. Ele também contém código que define um objeto Customer local e uma coleção Customers para a tabela. O objeto DataContext para seu projeto é nomeado com base no nome do seu arquivo .dbml. Para este projeto, o objeto DataContext é chamado northwindDataContext.

    Você pode criar uma instância do objeto DataContext em seu código e consultar e modificar a coleção Customers especificada pelo O/R Designer. As alterações feitas na coleção Customers não são refletidas no banco de dados até que você as envie chamando o método SubmitChanges do objeto DataContext.

    Clique duas vezes no Windows Form, Form1, para adicionar código ao evento Load e consultar a tabela Customers, que é exposta como uma propriedade do seu DataContext. Adicione o seguinte código:

    Private db As northwindDataContext

Private Sub Form1_Load(ByVal sender As System.Object,
                       ByVal e As System.EventArgs
                      ) Handles MyBase.Load
  db = New northwindDataContext()

  RefreshData()
End Sub

Private Sub RefreshData()
  Dim customers = From cust In db.Customers
                  Where cust.City(0) = "W"
                  Select cust

  DataGridView1.DataSource = customers
End Sub

  3. Da Caixa de Ferramentas, arraste três controlos Button para o formulário. Selecione o primeiro controlo Button. Na janela Propriedades, defina a Name do controle Button como AddButton e a Text como Add. Selecione o segundo botão e defina a propriedade Name como UpdateButton e a propriedade Text como Update. Selecione o terceiro botão e defina a propriedade Name como DeleteButton e a propriedade Text como Delete.

  4. Clique duas vezes no botão Adicionar para adicionar código ao seu evento Click. Adicione o seguinte código:

    Private Sub AddButton_Click(ByVal sender As System.Object,
                            ByVal e As System.EventArgs
                           ) Handles AddButton.Click
  Dim cust As New Customer With {
    .City = "Wellington",
    .CompanyName = "Blue Yonder Airlines",
    .ContactName = "Jill Frank",
    .Country = "New Zealand",
    .CustomerID = "JILLF"}

  db.Customers.InsertOnSubmit(cust)

  Try
    db.SubmitChanges()
  Catch
    ' Handle exception.
  End Try

  RefreshData()
End Sub

  5. Clique duas vezes no botão Update para adicionar código ao seu evento Click. Adicione o seguinte código:

    Private Sub UpdateButton_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs
                              ) Handles UpdateButton.Click
  Dim updateCust = (From cust In db.Customers
                    Where cust.CustomerID = "JILLF").ToList()(0)

  updateCust.ContactName = "Jill Shrader"
  updateCust.Country = "Wales"
  updateCust.CompanyName = "Red Yonder Airlines"
  updateCust.City = "Cardiff"

  Try
    db.SubmitChanges()
  Catch
    ' Handle exception.
  End Try

  RefreshData()
End Sub

  6. Clique duas vezes no botão Eliminar para adicionar código ao respetivo evento Click. Adicione o seguinte código:

    Private Sub DeleteButton_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs
                              ) Handles DeleteButton.Click
  Dim deleteCust = (From cust In db.Customers
                    Where cust.CustomerID = "JILLF").ToList()(0)

  db.Customers.DeleteOnSubmit(deleteCust)

  Try
    db.SubmitChanges()
  Catch
    ' Handle exception.
  End Try

  RefreshData()
End Sub

  7. Pressione F5 para executar seu projeto. Clique Adicionar para adicionar um novo registo. Clique em Atualizar para modificar o novo registo. Clique Excluir para excluir o novo registro.

Ver também