1 Attachment(s)
Concurrency Voilation Error
Hi Everybody
I am developing a software for keeping record of Delivery of a particular product.
I have a Table named 'DelMan' which is the mastar table of Deliverymen
I have another Table called 'Deliveries' to store Daily Delivery details for all the deliverymen
I wanted to design the User interface in such a way that the user can enter the data either using textboxes of using datagridview.
for the purpose, I provided Bound Textboxes and also bound datagridview (for the same table 'Deliveries') on the form.
The Textboxes are contained in a panel control on the form while datagridview is on the form.
The user interface goes like this:
when the form loads, user needs to enter the date of delivery. After the date is entered, Delivery table is populated with the enterd 'date', 'Product', 'Rate' values for each deliveryman from 'Delman' table. The 'Qty' Column has to be entered by the user and the amount is calculated.
The main problem is that when I Enter the qunatity for the first record (or deliveryman) and save it, it is succesfully done. But when I enter the 'qty' value for the next record and save it, it give the following error:
" Concurrency Voilation: The update command affected 0 of the expected 1 records. "
Please help.
the Code is as under:
Code:
Public Class frmDelivery
Dim stkDateTimePicker As Date
Dim DisableRowEnter As Boolean = False
Dim DisableCombo As Boolean = False
Private Sub DeliveriesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeliveriesBindingNavigatorSaveItem.Click, btnSave.Click
'DeliveriesBindingSource.CurrencyManager.Refresh()
Try
Me.Validate()
Me.DeliveriesBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BpclDRnDataSet)
MsgBox("Records Saved Successfully")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub frmDelivery_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'BpclDRnDataSet.ProdMaster' table. You can move, or remove it, as needed.
Me.ProdMasterTableAdapter.Fill(Me.BpclDRnDataSet.ProdMaster)
'TODO: This line of code loads data into the 'BpclDRnDataSet.ProdMaster' table. You can move, or remove it, as needed.
Me.DelManTableAdapter.Fill(Me.BpclDRnDataSet.DelMan)
'TODO: This line of code loads data into the 'BpclDRnDataSet.DelMan' table. You can move, or remove it, as needed.
Me.DelManTableAdapter.Fill(Me.BpclDRnDataSet.DelMan)
'TODO: This line of code loads data into the 'BpclDRnDataSet.Deliveries' table. You can move, or remove it, as needed.
Me.DeliveriesTableAdapter.Fill(Me.BpclDRnDataSet.Deliveries)
tspDate.Text = Date.Today.ToShortDateString
tspDate.Focus()
End Sub
Private Sub tspDate_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles tspDate.Leave
stkDateTimePicker = CDate(tspDate.Text)
GetData(tspDate.Text)
End Sub
Private Sub GetData(ByVal mStkDate As Date)
Dim delvmf As DataRowView
Dim DeliveryReg As bpclDRnDataSet.DeliveriesRow
Dim prodmf As DataRowView = ProdMasterBindingSource.Current
For Each delvmf In DelManBindingSource
Dim fpos As Int16 = DeliveriesBindingSource.Find("DelManCode", delvmf("DelManCode"))
If fpos = -1 Then
DeliveryReg = BpclDRnDataSet.Tables("Deliveries").NewRow
DeliveryReg("DelManCode") = delvmf("DelManCode")
DeliveryReg("DelMan") = delvmf("DelvManName")
DeliveryReg("StkDate") = stkDateTimePicker
DeliveryReg("ProdCode") = prodmf("ProdCode")
DeliveryReg("ProdDescr") = prodmf("ProdDescr")
DeliveryReg("Net_Retail") = prodmf("Net_retail")
DeliveryReg("Qty") = 0
DeliveryReg("Amount") = 0
DeliveryReg("AmtRecd") = 0
DeliveryReg("isCylinder") = prodmf("isCylinder")
DeliveryReg("isRegulator") = prodmf("isRegulator")
DeliveryReg("isHotPlate") = prodmf("isHotPlate")
DeliveryReg("isRubberTube") = prodmf("isRubberTube")
DeliveryReg("isCommercial") = prodmf("isCommercial")
DeliveryReg("isDomestic") = prodmf("isDomestic")
DeliveryReg("is14kgDom") = prodmf("is14kgDom")
DeliveryReg("is19kgCom") = prodmf("is19kgCom")
BpclDRnDataSet.Tables("Deliveries").Rows.Add(DeliveryReg)
End If
Next
End Sub
Private Sub tspFind_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tspFind.TextChanged
FindinGrid(tspFind.Text)
End Sub
Private Sub FindinGrid(ByVal mDelMan As String)
For Each dgv As DataGridViewRow In DeliveriesDataGridView.Rows
If Mid(dgv.Cells("DelMan").Value, 1, Len(mDelMan)).ToUpper = mDelMan.ToUpper Then
DeliveriesDataGridView.CurrentCell = dgv.Cells("DelMan")
Exit For
End If
Next
End Sub
Private Sub QtyTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QtyTextBox.TextChanged
If Len(QtyTextBox.Text) > 0 Then
If Not IsDBNull(DeliveriesBindingSource.Current("Net_Retail")) And Not IsDBNull(QtyTextBox.Text) Then
AmountTextBox.Text = QtyTextBox.Text * DeliveriesBindingSource.Current("Net_Retail")
AmtRecdTextBox.Text = AmountTextBox.Text
End If
End If
End Sub
Private Sub DeliveriesDataGridView_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DeliveriesDataGridView.RowEnter
DisableCombo = True
If Not DisableRowEnter Then
DelManCodeComboBox.Text = DeliveriesDataGridView.Rows(e.RowIndex).Cells("DelMan").Value
End If
DisableRowEnter = False
End Sub
Private Sub DelManCodeComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DelManCodeComboBox.SelectedIndexChanged
DisableRowEnter = True
If Not DisableCombo Then
FindinGrid(DelManCodeComboBox.Text)
End If
DisableCombo = False
End Sub
Private Sub DeliveriesBindingNavigator_Refre****ems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeliveriesBindingNavigator.Refre****ems
Panel1.Enabled = DeliveriesBindingSource.Current IsNot Nothing
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'MsgBox(Me.BindingContext().Contains())
MsgBox(DeliveriesDataGridView.BindingContext.Item(BpclDRnDataSet).ToString)
MsgBox(QtyTextBox.BindingContext(DeliveriesBindingSource, "Qty").ToString)
End Sub
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
End Sub
End Class
The User Interface form is Attatched as jpeg image for your reference.
Thanks!
Re: Concurrency Voilation Error
Quote:
Originally Posted by
dineshkumaar
Hi Everybody
I am developing a software for keeping record of Delivery of a particular product.
I have a Table named 'DelMan' which is the mastar table of Deliverymen
I have another Table called 'Deliveries' to store Daily Delivery details for all the deliverymen
I wanted to design the User interface in such a way that the user can enter the data either using textboxes of using datagridview.
for the purpose, I provided Bound Textboxes and also bound datagridview (for the same table 'Deliveries') on the form.
The Textboxes are contained in a panel control on the form while datagridview is on the form.
The user interface goes like this:
when the form loads, user needs to enter the date of delivery. After the date is entered, Delivery table is populated with the enterd 'date', 'Product', 'Rate' values for each deliveryman from 'Delman' table. The 'Qty' Column has to be entered by the user and the amount is calculated.
The main problem is that when I Enter the qunatity for the first record (or deliveryman) and save it, it is succesfully done. But when I enter the 'qty' value for the next record and save it, it give the following error:
" Concurrency Voilation: The update command affected 0 of the expected 1 records. "
Please help.
the Code is as under:
Code:
Public Class frmDelivery
Dim stkDateTimePicker As Date
Dim DisableRowEnter As Boolean = False
Dim DisableCombo As Boolean = False
Private Sub DeliveriesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeliveriesBindingNavigatorSaveItem.Click, btnSave.Click
'DeliveriesBindingSource.CurrencyManager.Refresh()
Try
Me.Validate()
Me.DeliveriesBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BpclDRnDataSet)
MsgBox("Records Saved Successfully")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub frmDelivery_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'BpclDRnDataSet.ProdMaster' table. You can move, or remove it, as needed.
Me.ProdMasterTableAdapter.Fill(Me.BpclDRnDataSet.ProdMaster)
'TODO: This line of code loads data into the 'BpclDRnDataSet.ProdMaster' table. You can move, or remove it, as needed.
Me.DelManTableAdapter.Fill(Me.BpclDRnDataSet.DelMan)
'TODO: This line of code loads data into the 'BpclDRnDataSet.DelMan' table. You can move, or remove it, as needed.
Me.DelManTableAdapter.Fill(Me.BpclDRnDataSet.DelMan)
'TODO: This line of code loads data into the 'BpclDRnDataSet.Deliveries' table. You can move, or remove it, as needed.
Me.DeliveriesTableAdapter.Fill(Me.BpclDRnDataSet.Deliveries)
tspDate.Text = Date.Today.ToShortDateString
tspDate.Focus()
End Sub
Private Sub tspDate_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles tspDate.Leave
stkDateTimePicker = CDate(tspDate.Text)
GetData(tspDate.Text)
End Sub
Private Sub GetData(ByVal mStkDate As Date)
Dim delvmf As DataRowView
Dim DeliveryReg As bpclDRnDataSet.DeliveriesRow
Dim prodmf As DataRowView = ProdMasterBindingSource.Current
For Each delvmf In DelManBindingSource
Dim fpos As Int16 = DeliveriesBindingSource.Find("DelManCode", delvmf("DelManCode"))
If fpos = -1 Then
DeliveryReg = BpclDRnDataSet.Tables("Deliveries").NewRow
DeliveryReg("DelManCode") = delvmf("DelManCode")
DeliveryReg("DelMan") = delvmf("DelvManName")
DeliveryReg("StkDate") = stkDateTimePicker
DeliveryReg("ProdCode") = prodmf("ProdCode")
DeliveryReg("ProdDescr") = prodmf("ProdDescr")
DeliveryReg("Net_Retail") = prodmf("Net_retail")
DeliveryReg("Qty") = 0
DeliveryReg("Amount") = 0
DeliveryReg("AmtRecd") = 0
DeliveryReg("isCylinder") = prodmf("isCylinder")
DeliveryReg("isRegulator") = prodmf("isRegulator")
DeliveryReg("isHotPlate") = prodmf("isHotPlate")
DeliveryReg("isRubberTube") = prodmf("isRubberTube")
DeliveryReg("isCommercial") = prodmf("isCommercial")
DeliveryReg("isDomestic") = prodmf("isDomestic")
DeliveryReg("is14kgDom") = prodmf("is14kgDom")
DeliveryReg("is19kgCom") = prodmf("is19kgCom")
BpclDRnDataSet.Tables("Deliveries").Rows.Add(DeliveryReg)
End If
Next
End Sub
Private Sub tspFind_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tspFind.TextChanged
FindinGrid(tspFind.Text)
End Sub
Private Sub FindinGrid(ByVal mDelMan As String)
For Each dgv As DataGridViewRow In DeliveriesDataGridView.Rows
If Mid(dgv.Cells("DelMan").Value, 1, Len(mDelMan)).ToUpper = mDelMan.ToUpper Then
DeliveriesDataGridView.CurrentCell = dgv.Cells("DelMan")
Exit For
End If
Next
End Sub
Private Sub QtyTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QtyTextBox.TextChanged
If Len(QtyTextBox.Text) > 0 Then
If Not IsDBNull(DeliveriesBindingSource.Current("Net_Retail")) And Not IsDBNull(QtyTextBox.Text) Then
AmountTextBox.Text = QtyTextBox.Text * DeliveriesBindingSource.Current("Net_Retail")
AmtRecdTextBox.Text = AmountTextBox.Text
End If
End If
End Sub
Private Sub DeliveriesDataGridView_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DeliveriesDataGridView.RowEnter
DisableCombo = True
If Not DisableRowEnter Then
DelManCodeComboBox.Text = DeliveriesDataGridView.Rows(e.RowIndex).Cells("DelMan").Value
End If
DisableRowEnter = False
End Sub
Private Sub DelManCodeComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DelManCodeComboBox.SelectedIndexChanged
DisableRowEnter = True
If Not DisableCombo Then
FindinGrid(DelManCodeComboBox.Text)
End If
DisableCombo = False
End Sub
Private Sub DeliveriesBindingNavigator_Refre****ems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeliveriesBindingNavigator.Refre****ems
Panel1.Enabled = DeliveriesBindingSource.Current IsNot Nothing
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'MsgBox(Me.BindingContext().Contains())
MsgBox(DeliveriesDataGridView.BindingContext.Item(BpclDRnDataSet).ToString)
MsgBox(QtyTextBox.BindingContext(DeliveriesBindingSource, "Qty").ToString)
End Sub
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
End Sub
End Class
The User Interface form is Attatched as jpeg image for your reference.
Thanks!
This error is caused mainly because of 2 reasons.
- Either you are trying to edit an auto-increment field
- You are working with a table with no primary key
Re: Concurrency Voilation Error
Quote:
Originally Posted by
dineshkumaar
Code:
Me.TableAdapterManager.UpdateAll(Me.BpclDRnDataSet)
Also try calling the TableAdapter.Fill after doing a TableAdapterManager.UpdateAll
