datagrid无法更新数据库(等待中)

[nakhi]

在Page_load()执行:
da = New OleDbDataAdapter("select * from files", cnstring)
ds = New DataSet
da.Fill(ds, "t")
dg.DataSource = ds.Tables("t").DefaultView

然后,修改一些datagrid中的数据,按一个按钮:再执行:
Dim cb As New OleDbCommandBuilder(da)
ds.AcceptChanges()
da.Update(ds, "t")
messagebox.show("hi")

其中,ds和da均为窗体级变量.
消息框是出来了,但是就是没有更新到数据库中,在ds通过rowfilter查询的时候,显示的倒是修改以后的数据.程序执行也没有提示错误.

[rock29]

差一句:
cb.RefreshSchema()

[nakhi]

加了,还是不行
Dim cb As New OleDbCommandBuilder(da)
cb.RefreshSchema()
da.UpdateCommand = cb.GetUpdateCommand
ds.AcceptChanges()
da.Update(ds, "t")

我刚才查询了一下过去的帖子,如果数据库不设主键的时候会有问题,但是我的Access数据库表中已经设置了主键, 而且程序执行是正常的,就是打开Access一看,没有更新!

[rock29]

呜呜,我的就没问题,要不这样吧:
Dim cb As New OleDbCommandBuilder(da)
cb.RefreshSchema()
放在da.Fill(ds, "t")之前,不要dg.DataSource = ds.Tables("t").DefaultView而改成
dg.DataSource = ds.Tables("t") (似乎没关系)
看看,如果还不行,你就在设计界面建一个adapter,让程序生成语句,以后或者基于这个adapter写程序,或者copy相应的insert/del/update语句到代码中更新

[nakhi]

我找了一个例子:
Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=../filer.mdb")
objConn.Open()
Dim ds2 As DataSet = New DataSet
Dim objAdapter As New OleDbDataAdapter("SELECT * FROM files", objConn)
Dim objCmdBld As New OleDbCommandBuilder(objAdapter)
objCmdBld.RefreshSchema()
objAdapter.Fill(ds2, "users")
Dim drow As DataRow
ds2.Tables("users").Rows(1).Item(2) = "bill"
dg.DataSource = ds2.Tables("users")
------ objAdapter.Update(ds2, "users")-------------
MessageBox.Show("hi")

其中,划线的这一行不运行,程序正常,它一运行,则出现错误:
未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中。

不知道是哪儿出了问题了,files这个表是有主键的

[zhumb]

把ds.AcceptChanges()去掉看看

[southdoor]

同意楼上的。ds接受更改后，对于数据库来说就没有更改了。

[jsfeiyu]

ds.AcceptChanges()
da.Update(ds, "t")
先后顺序反了!

[nakhi]

回复楼上几位:去掉AcceptChanges还是不行
sub
Dim cb As New OleDbCommandBuilder(da)
da.Update(ds, "t")
'ds.AcceptChanges()
MessageBox.Show("OK")
end sub

在我举的例子中
objConn.Open()
Dim ds2 As DataSet = New DataSet
Dim objAdapter As New OleDbDataAdapter("SELECT * FROM files", objConn)
Dim objCmdBld As New OleDbCommandBuilder(objAdapter)
objCmdBld.RefreshSchema()
objAdapter.Fill(ds2, "users")
Dim drow As DataRow
ds2.Tables("users").Rows(1).Item(2) = "bill"
dg.DataSource = ds2.Tables("users")
------ objAdapter.Update(ds2, "users")-------------
MessageBox.Show("hi")
没有AcceptChanges,但是还是无法运行.

[snow66]

你的“t”是程序中定义的表，还是在设计界面中定义的？如果“t”没问题，通过以下的步骤应该是可以的：

Dim cb As New OleDbCommandBuilder(da)
da.Update(ds, "t")
ds.AcceptChanges()
messagebox.show("hi")

[kexian]

dim mydatasetchanges as new dataset()
mydatasetchanges=ds2.getchanges()
mydatasetchanges=ds2.getchanges(datarowstate.modified)
objadapter.update(mydatasetchanges)
用这种方法试试

[nakhi]

回复楼上:
T是自己把表灌到ds中起的名字:
da = New OleDbDataAdapter("select * from files", cnstring)
ds = New DataSet
da.Fill(ds, "t")
代码全部都是自己写的,没有使用Designer

[nakhi]

回复小可:试了,还是不行:
Dim ds As New DataSet
Dim da As New OleDbDataAdapter("select id,title,key,location from files", "Provider=Microsoft.Jet.OLEDB.4.0;data source= ../filer.mdb")
Dim cb As New OleDbCommandBuilder(da)
da.Fill(ds, "users")
ds.Tables("users").Rows(1).Item(2) = "bill"
dg.DataSource = ds.Tables("users")
Dim ds1 As New DataSet
ds1 = ds.GetChanges()
ds1 = ds.GetChanges(DataRowState.Modified)
da.Update(ds1.Tables("users"))
MessageBox.Show("hi")

还是和原来一样的问题,如果不执行update这一行,则程序没有任何问题

[snow66]

只有一个表吗？那你试一下不用名字，用ds.tables(0)来替代。

da.Fill(ds)
dg.DataSource = ds.Tables(0).DefaultView

da.Update(ds)

[nakhi]

回复楼上:还是不行:SUB如下:
----------------
Dim ds As New DataSet
Dim da As New OleDbDataAdapter("select * from files", "Provider=Microsoft.Jet.OLEDB.4.0;data source= ../filer.mdb")
Dim cb As New OleDbCommandBuilder(da)
da.Fill(ds)
ds.Tables(0).Rows(1).Item(2) = "bill"
da.Update(ds)
MessageBox.Show("hi")
这个时候,如果不执行update,程序正常

[rock29]

nakhi你为什么那么拧?你就在设计界面建一个adapter,让程序生成语句,以后或者基于这个adapter写程序,或者copy相应的insert/del/update语句到代码中更新不行吗?
我老碰到这种问题,我认为net的cb自动生成的有问题.

[snow66]

不用通过语句修改，直接在datagrid中修改就行了，去掉“bill”那句。

[nakhi]

回复:rock, 不是我拧,这个问题非常奇怪,因为我考了人家的例子,居然都无法运行,我还是想专专牛角尖,把这个问题搞清楚, 至于desinger,只是帮助写出代码的工具.

回复:snow
你理解错了,修改当然是通过Datagrid来修改,现在我遇到了一个OledbDataAdpater.update的问题,所以把问题简化了,先通过="bill"这么来修改,看能否update.

[wisecloud]

应该去掉ds.AcceptChanges()

[qqwqq]

update 之后,再重新绑定

[xydyh]

光是在datagrid 里修改数据是不行的，还要用语句修改dataset，之后再调用OleDbCommandBuilder，然后调用update.
你应该是少了修改dataset 的步骤!