VIOLA?ÃO DE CONCORRÊNCIA: UPDATECOMMAND VB SQLSERV

GROTOGAMER23 27/10/2016 00:03:54
#468470

Galera eu Criei tudo certinho so que quando vou salvar no banco de dados sqlserver vai blz mais quando dou um addnew e salvo de novo da esse erro: Violação de concorrência: UpdateCommand afetou 0 dos registros 1 esperados.

Por Favor me ajudem!!

Comando que eu estou usando:

Private Sub Tbl_EmpresasBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tbl_EmpresasBindingNavigatorSaveItem.Click

If MessageBox.Show([Ô]Deseja Salvar o Contato[Ô], [Ô]Informação[Ô], MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
If Nome_Empresa_Fantasia__TextBox.Text = [Ô][Ô] Then
MsgBox([Ô]Digite o Nome da Empresa[Ô], MsgBoxStyle.Exclamation, Title:=[Ô]Informação[Ô])

ElseIf Nome_Empresa_Fantasia__TextBox.Text <> [Ô][Ô] Then

Me.Validate()
Me.Tbl_EmpresasBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

ProgressBar1.Value = ProgressBar1.Maximum

If ProgressBar1.Value = ProgressBar1.Maximum Then

If MessageBox.Show([Ô]Salvo com Sucesso no Banco de dados, Deseja Adicinar um novo[Ô], [Ô]Informação[Ô], MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
ProgressBar1.Value = ProgressBar1.Minimum
Me.Tbl_EmpresasBindingSource.AddNew()
ElseIf Windows.Forms.DialogResult.No Then
ProgressBar1.Value = ProgressBar1.Minimum
End If
End If
End If
End If
End Sub