50分求助:更新不了数据
我的代码如下
Public Function UpdateUser() As Boolean
Dim TmpStr As String = "Select * from Users where Username = 'www ' "
Dim TmpDataAdapter As New OleDbDataAdapter(TmpStr, tConnStr)
Dim TmpRow As DataRow
Dim TmpCommand As New OleDbCommandBuilder(TmpDataAdapter)
Dim TmpDataSet As New DataSet
Try
TmpDataAdapter.Fill(TmpDataSet, "Users ")
TmpRow = TmpDataSet.Tables( "Users ").Rows(0)
TmpRow.BeginEdit()
TmpRow( "Pwd ") = "343434 "
TmpRow.EndEdit()
TmpRow.AcceptChanges()
TmpDataAdapter.Update(TmpDataSet, "Users ")
UpdateUser = True
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "系统提示 ")
End Try
End Function
执行时没有异常,但是数据库中的数据没有修改,请高手解答,散分
[解决办法]
没看出问题，您确定您检查的数据库文件是这段代码作用于的文件么。因为之前有人犯过这样的错误。
[解决办法]
TmpDataAdapter.Update(TmpDataSet, "Users ")
TmpRow.AcceptChanges()
先update,再AcceptChanges
