帮忙看看下面的代码为什么不能实现将数据更新到数据库
Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OleDb.4.0;Data Source=d:\ep.mdb ")
con.Open()
Dim rw As DataRow
dba = New OleDb.OleDbDataAdapter( "select * from dlxx ", con)
Dim upcmd As New OleDbCommandBuilder(dba)

dba.Fill(ds, "123 ")
rw = ds.Tables( "123 ").Rows(0)
rw.BeginEdit()
rw(1) = "1547 "
rw.EndEdit()
rw.AcceptChanges()


' dba.UpdateCommand.ExecuteNonQuery()
dba.Update(ds, "123 ")

[解决办法]
去掉 rw.AcceptChanges()


*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

最新版本：20070212

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
[解决办法]
对，去掉 rw.AcceptChanges()