Hi,
Trying to commit changes to a row but getting a concurrency error everytime I try the update.
This is a vb.net app for PocketPC 2002.
The data adapter is defined as follows:
Private Sub BindCR()
If daCR Is Nothing Then
SQL = "select * from CR where loc = '" & Me.cboloc.SelectedValue & "' order by name1
daCR = New SqlCeDataAdapter(SQL, cnCR)
daCR.UpdateCommand = New SqlCeCommand
With daCR.UpdateCommand
.Connection = cnCR
SQL = "update cr set accesscat = 'EH' where loc= 'test' and name1= 'testname'"
.CommandText = SQL
End With
End If
dtCR = dsCR.Tables("CR")
If dtCR Is Nothing Then
daCR.Fill(dsCR, "CR")
dtCR = dsCR.Tables("CR")
Else
dtCR.Clear()
daCR.Fill(dsCR, "CR")
End If
End Sub
I have simplified the update statement to try and eliminate everything but I am still getting the error. Any ideas?
Thanks,
Trying to commit changes to a row but getting a concurrency error everytime I try the update.
This is a vb.net app for PocketPC 2002.
The data adapter is defined as follows:
Private Sub BindCR()
If daCR Is Nothing Then
SQL = "select * from CR where loc = '" & Me.cboloc.SelectedValue & "' order by name1
daCR = New SqlCeDataAdapter(SQL, cnCR)
daCR.UpdateCommand = New SqlCeCommand
With daCR.UpdateCommand
.Connection = cnCR
SQL = "update cr set accesscat = 'EH' where loc= 'test' and name1= 'testname'"
.CommandText = SQL
End With
End If
dtCR = dsCR.Tables("CR")
If dtCR Is Nothing Then
daCR.Fill(dsCR, "CR")
dtCR = dsCR.Tables("CR")
Else
dtCR.Clear()
daCR.Fill(dsCR, "CR")
End If
End Sub
I have simplified the update statement to try and eliminate everything but I am still getting the error. Any ideas?
Thanks,