none
Excluir registros de tabela usando BindingNavigator RRS feed

  • Pergunta

  • 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

    segunda-feira, 2 de junho de 2014 22:30

Respostas

Todas as Respostas