急，OLEAdapter.update

[blasterboy]

Public Function FG_TrueDBSelect(ByVal strSQL As String) As Data.DataTable

Dim ds As New DataSet
conn.Open()
adapter.SelectCommand = New OleDbCommand(strSQL, conn)
System.Threading.Thread.Sleep(500)
adapter.FillSchema(ds, SchemaType.Source, "table1")
adapter.Fill(ds, "table1")

'如果把更新的操作放在这里，是可以的
Dim oCommandBuilder As New OleDbCommandBuilder(adapter)
ds.Tables("table1").Rows(1)("check") = -1
adapter.DeleteCommand = oCommandBuilder.GetDeleteCommand
adapter.InsertCommand = oCommandBuilder.GetInsertCommand
adapter.UpdateCommand = oCommandBuilder.GetUpdateCommand
'Apply the updates
adapter.Update(ds, "table1")
conn.Close()

Return ds.Tables("table1")

End Function

如果单独提炼出来，做个函数，那么更新，就不可以了
不知道为什么
Public Sub FG_TrueDBUpdate(ByRef dt As DataTable)
Try
conn.Open()

Dim oCommandBuilder As New OleDbCommandBuilder(adapter)

dt.Rows(1)("check") = -1
adapter.DeleteCommand = oCommandBuilder.GetDeleteCommand
adapter.InsertCommand = oCommandBuilder.GetInsertCommand
adapter.UpdateCommand = oCommandBuilder.GetUpdateCommand
'Apply the updates
adapter.Update(dt)
'adapter.Update(ds.Tables("table1"))
conn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

[blasterboy]

难道没有人会吗：（

[水如烟]

呵，你知道的，我是无能为力的了
帮你顶

[blasterboy]

没有人知道吗？还是没有人用update这个函数：（

[ttcat]

我有用，如果是修改原记录，update可以；可以不知道为什么，如果是删除某条记录，调用update之后并没有实际删除掉：（谁知道帮我一下啊。

[blasterboy]

自己在顶巴
真的没有办法了

[lzyang]

呵呵，好象用update 一定要有InserCommand 才能执行，不知道是不是bug

[blasterboy]

我的两个方法
Public Sub FG_TrueDBUpdata2(ByRef table As DataTable)
Try
conn.Open()
adapter.DeleteCommand = oCommandBuilder.GetDeleteCommand
adapter.InsertCommand = oCommandBuilder.GetInsertCommand
adapter.UpdateCommand = oCommandBuilder.GetUpdateCommand
adapter.Update(table)
conn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Public Sub FG_TrueDBSelect2(ByVal strSQL As String, ByRef table As DataTable)
conn.Open()
adapter.SelectCommand = New OleDbCommand(strSQL, conn)
System.Threading.Thread.Sleep(500)

adapter.FillSchema(table, SchemaType.Source)
adapter.Fill(table)
conn.Close()

End Sub

第一个是用来update的，第二个用来fill的，大家帮我看看，我觉得是不是微软的一个bug :(

[blasterboy]

自己在顶一下吧，大家都开开金口，帮帮忙吧

[521kevin]

关注

[blasterboy]

大家就可怜可怜我把，救救我把！

[水如烟]

老天，我知道你问题的原因了

[水如烟]

呵，可能是一时兴起脱口的，可能还是不知道原因
adapter.Update(table)其实是对Table.GetChanged的部分进行更新
如果Table.GetChanged是Nothing的话，肯定是不会有什么动作的
你跟踪一下，看看它是不是Nothing

[wwwho]

如果你多点击几次能删除，我怀凝是你的数据被删除后没有及时被更新造成，这也只是我的猜测。

[blasterboy]

Table.GetChanged不是nothing 阿 ：（

[blasterboy]

还有为什么我多点击几次就可以了？
天哪！微软的东西不可能这样吧

[水如烟]

是不是这样
conn.Open()需要时间，前面的你不是System.Threading.Thread.Sleep(500)吗
这个地方也写上这样吧

[blasterboy]

帮忙啊，不会大家都不会把，可怜可怜我把！

[水如烟]

adapter.DeleteCommand = oCommandBuilder.GetDeleteCommand
adapter.InsertCommand = oCommandBuilder.GetInsertCommand
adapter.UpdateCommand = oCommandBuilder.GetUpdateCommand
如果不对有关的CommandText作修改的话，上面三行就没必要了

（不过对你的问题解决没半点关系）

[roking]

跟踪一下代码，在OnRowUpdating事件中测试一下各变量的值！

[blasterboy]

中午揭帖把，我觉得没什么希望了，我单开一个帖子，给大家分吧