Excluir registros de tabela usando BindingNavigator

Question

Boa noite a todos!

Como faço para excluir um determinado registro da tabela também? Tenho um form onde tem uma BindingNavigator, ocorre que quando clico no "X" para excluir o registro atual, ele apaga na execução porém quando retorno ao form lá está o registro excluido anteriormente é esta minha questão, qual o procedimento devo tomar para que delete de verdade tal registro da tabela também? Abaixo um fragmento do código que estou utilizando!

Private Sub FrmCadPizza_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Try

         lHabilitou = False

         gMensagem = "Carregando as Grids Iniciais"
         dgvPizza.AutoGenerateColumns = False
         dgvIngredientePizza.AutoGenerateColumns = False

         dgvPizza.DataSource = bsMasterPizzas
         dgvIngredientePizza.DataSource = bsChildPizzas
         Atualiza_Precos()

         gMensagem = "Coletando Dados para carregar o Form"
         Carrega_Dados()

         Exit Sub

      Catch ex As Exception
         MsgBox(ex.Message & vbNewLine & gMensagem, MsgBoxStyle.Critical, "ERRO: Load Form")
      End Try

   End Sub


Private Sub Carrega_Dados()

      Try

         data.Locale = System.Globalization.CultureInfo.InvariantCulture

         If gCN.State = ConnectionState.Open Then gCN.Close()
         gCN.Open()

         gMensagem = "Query Pizzas"
         gSQL = "Select Nome, Preco, Codigo, Media, Broto, foto from Pizza where flagPizza = " & True & " Order by Nome asc"
         MasterDataAdapter = New OleDb.OleDbDataAdapter(gSQL, gCN)
         MasterDataAdapter.TableMappings.Add("Table", "Pizza")
         MasterDataAdapter.Fill(data, "Pizza")

         gMensagem = "Adicionar dados da tabela PizzaIngr para o DataSet."
         gSQL1 = "Select Produto, Quantidade, Valor, PrecoCusto, CodPizza from PizzaIngr"
         DetailsDataAdapter = New OleDb.OleDbDataAdapter(gSQL1, gCN)
         DetailsDataAdapter.TableMappings.Add("Table", "PizzaIngr")
         DetailsDataAdapter.Fill(data, "PizzaIngr")

         gMensagem = "Estabelecer uma relação entre as duas tabelas."
         Dim Relacao As New DataRelation("Relacao_PizzaIngrediente", data.Tables("Pizza").Columns("Codigo"), data.Tables("PizzaIngr").Columns("CodPizza"), False)
         data.Relations.Add(Relacao)

         gMensagem = "Vincular o conector de dados mestre para a tabela Relacao."
         bsMasterPizzas.DataSource = data
         bsMasterPizzas.DataMember = "Pizza"

         gMensagem = "Vincular o conector de dados detalhes para o conector de dados mestre, " & vbNewLine _
                   & "usando o nome DataRelation para filtrar as informações no " & vbNewLine _
                   & "Detalhes tabela com base na linha atual na tabela mestre."
         bsChildPizzas.DataSource = bsMasterPizzas
         bsChildPizzas.DataMember = "Relacao_PizzaIngrediente"

         gMensagem = "Conectar Navegador aos Dados"
         bnPizzas.BindingSource = bsMasterPizzas
         Call vincula()

         Exit Sub

      Catch ex As Exception
         MsgBox(ex.Message & vbNewLine & gMensagem, MsgBoxStyle.Critical, "ERRO: Relacionamento de Tabelas")
      End Try

   End Sub

Private Sub vincula()
      'efetua a vinculação via databindings dos campos com os valores da tabela Pizza

      oBinding = New Binding("Text", bsMasterPizzas, "Preco")
      oBinding1 = New Binding("Text", bsMasterPizzas, "Media")
      oBinding2 = New Binding("Text", bsMasterPizzas, "Broto")

      mskPizzaCodigo.DataBindings.Add("Text", bsMasterPizzas, "Codigo", True, DataSourceUpdateMode.OnValidation)
      TxtPizza.DataBindings.Add("Text", bsMasterPizzas, "Nome", True, DataSourceUpdateMode.OnValidation)
      mskGrandeValor.DataBindings.Add(oBinding)
      txtMediaValor.DataBindings.Add(oBinding1)
      txtBrotoValor.DataBindings.Add(oBinding2)
      picPizza_Foto.DataBindings.Add("Image", Me.bsMasterPizzas, "Foto", True, DataSourceUpdateMode.OnValidation)

   End Sub

E o form é este:

A quem puder ajudar-me agradeço!

Att.

---

Dilson J. Hasselmann Desenvolvedor VB.NET

Answer 1

Boa tarde Hasselmann,

Veja esse link:

http://msdn.microsoft.com/pt-br/library/system.windows.forms.bindingnavigator.deleteitem(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

Abraço

Answer 2

Dê uma olhada...

http://www.vbforums.com/showthread.php?657987-RESOLVED-Delete-Binding-Navigator