M
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\WWTEmailList.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.
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\WWTEmailList.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.