PROBLEMA PARA SALVAR E ALTERAR PRODUTO VB.2008

JHONATANSHOW 10/07/2012 12:11:02
#405796

Boa Tarde a Todos Colegas Sou novo em vb.net estou com uma dificudade, estou com problema em um form cadastro de produtos ele cadastra normal mais não esta alterando e nem excluindo, alguem poderia me dizer onde esta o erro e como corrigio? Obrigado. segue o codigo
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub btnExcluirProduto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluirProduto.Click
If MessageBox.Show([Ô]Confirma Apagar este Registro?[Ô], [Ô]Apagar Registro Atual[Ô]) Then
Dim teste As Boolean
Try
teste = Me.TBCADPRODUTOSTableAdapter.Deleteproduto(IDPRODUTOTextBox.Text)
Me.BdElitecomDataSet.AcceptChanges()
If teste Then
MsgBox([Ô]Registro Excluido com Sucesso![Ô], MsgBoxStyle.Information)
End If
Catch ex As Exception
MsgBox([Ô]Erro não Excluido![Ô], MsgBoxStyle.Critical)
End Try
End If
Me.TBCADPRODUTOSTableAdapter.Fill(Me.BdElitecomDataSet.TBCADPRODUTOS)
btnSalvar.Enabled = False
btnIncluirProduto.Enabled = False
btnExcluirProduto.Enabled = False
End Sub

quando mando excluir ja passa direto para = MsgBox([Ô]Erro não Excluido![Ô], MsgBoxStyle.Critical)

Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
btnNovo.Enabled = True
Try
Me.Validate()
Me.TBCADPRODUTOSBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BdElitecomDataSet)
[ô]aqui se o produto já estiver cadastrado a menssagem abaixo é exibida pois o
[ô]codigo é definido como unico no banco de dados
Catch ex As Exception
MsgBox([Ô]Produto já Cadastrado![Ô], MsgBoxStyle.Information)
IDPRODUTOTextBox.Text = [Ô][Ô]
DESCRICAOTextBox.Text = [Ô][Ô]
UNIDADEComboBox.Text = [Ô][Ô]
PRECOCUSTOTextBox.Text = [Ô][Ô]
MARGEMLUCROTextBox.Text = [Ô][Ô]
PRECOVENDATextBox.Text = [Ô][Ô]
IDPRODUTOTextBox.Focus()

End Try
btnIncluirProduto.Enabled = False
btnSalvar.Enabled = False
btnIncluirProduto.Enabled = False
btnExcluirProduto.Enabled = False
IDPRODUTOTextBox.Enabled = False
DESCRICAOTextBox.Enabled = False
UNIDADEComboBox.Enabled = False
PRECOCUSTOTextBox.Enabled = False
MARGEMLUCROTextBox.Enabled = False
PRECOVENDATextBox.Enabled = False
End Sub

quando altero diz que ja esta cadastrado = MsgBox([Ô]Produto já Cadastrado![Ô], MsgBoxStyle.Information)