Update Dataset oleDB

[Mark Sandfox]

Here is my code:

Dim wwtID as integer
Dim wwtEmailAddress as string
Dim drEmailListWWT as System.Data.DataRowView
Dim dvEmailListWWT as DataView
Dim cnEmailListWWT as OleDbConnection
Dim daEmailListWWT as OleDbDataAdapter = New OleDbDataAdapter
Dim dsEmailListWWT as DataSet = New DataSet
Dim SelectStatement as String

SelectStatement = "Select * From EmailList"
cnEmailListWWT = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:\Inetpub\wwwroot\WildWestTown\wwtdb\WWTEm ailList.mdb")
daEmailListWWT.UpdateCommand = New OleDbCommand(SelectStatement,
cnEmailListWWT)
daEmailListWWT.SelectCommand = New OleDbCommand(SelectStatement,
cnEmailListWWT)
daEmailListWWT.Fill(dsEmailListWWT, "EmailList")
dvEmailListWWT = dsEmailListWWT.Tables("EmailList").DefaultView
iLoop = 0
While dvEmailListWWT.count > iLoop
drEmailListWWT=dvEmailListWWT.Item(iLoop)
drEmailListWWT("wwtEmail") = Replace(drEmailListWWT("wwtEmail"), " ", "")

iLoop += 1
End While

daEmailListWWT.Update(dsEmailListWWT, "EmailList")

Here is my error:

Concurrency violation: the UpdateCommand affected 0 of the expected 1
records

Please help.

[Ken Cox [Microsoft MVP]]

Hi Mark,

daEmailListWWT.UpdateCommand = New OleDbCommand(SelectStatement,
cnEmailListWWT)
Are you using SelectStatement as the update command?

Ken
Microsoft MVP [ASP.NET]

"Mark Sandfox" <No****@NoSpam.com> wrote in message
news:aS********************@newssvr13.news.prodigy .com... Here is my code:

Dim wwtID as integer
Dim wwtEmailAddress as string
Dim drEmailListWWT as System.Data.DataRowView
Dim dvEmailListWWT as DataView
Dim cnEmailListWWT as OleDbConnection
Dim daEmailListWWT as OleDbDataAdapter = New OleDbDataAdapter
Dim dsEmailListWWT as DataSet = New DataSet
Dim SelectStatement as String

SelectStatement = "Select * From EmailList"
cnEmailListWWT = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:\Inetpub\wwwroot\WildWestTown\wwtdb\WWTEm ailList.mdb")
daEmailListWWT.UpdateCommand = New OleDbCommand(SelectStatement,
cnEmailListWWT)
daEmailListWWT.SelectCommand = New OleDbCommand(SelectStatement,
cnEmailListWWT)
daEmailListWWT.Fill(dsEmailListWWT, "EmailList")
dvEmailListWWT = dsEmailListWWT.Tables("EmailList").DefaultView
iLoop = 0
While dvEmailListWWT.count > iLoop
drEmailListWWT=dvEmailListWWT.Item(iLoop)
drEmailListWWT("wwtEmail") = Replace(drEmailListWWT("wwtEmail"), " ", "")

iLoop += 1
End While

daEmailListWWT.Update(dsEmailListWWT, "EmailList")

Here is my error:

Concurrency violation: the UpdateCommand affected 0 of the expected 1
records

Please help.