VB.NET，将数据从dataset中删除了，如何更新到数据库？

需要声明使用CommandBuilder对象，你是 SQL 数据库还是 ACCESS 数据库，这两者的对象不一样的。

对于：SQL server

Dim Mybuilder As SqlCommandBuilder = New SqlCommandBuilder(da)

da.Update(dt) '使用Update方法实现更新到数据库

对于：ACCESS

Dim Mybuilder As OleDbCommandBuilder = New OleDbCommandBuilder(da)

da.Update(dt) '使用Update方法实现更新到数据库

以下是模块模块1

完整的模块

进口System.Data

进口System.IO

进口System.Data.OleDb

CN作为新OleDb.OleDbConnection （供应商= Microsoft.Jet.OLEDB.4.0数据源= C：\ ACCESS数据库的。mdb“）'定义连接---改变到实际的数据库路径和名称

DataBaseRST上的作为整数使用返回数据库执行的结果

的公共功能DataModify（BYVAL str作为字符串）作为布尔数据库的 *** 作功能

昏暗的cmdinsert作为新的OleDbCommand

尝试

cmdinsert.CommandText = STR

是用来返回cmdinsert.Connection的= CN

如果cn.State = ConnectionState.Closed cn.Open（）

DataBaseRST cmdinsert.ExecuteNonQuery（）的执行结果 BR />cn.Close（）

，则返回true

赶上前为异常

MessageBox.Show（Err.Description，“错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）

返回False

尝试

端的功能

功能搜索（BYVAL作为字符串，BYVAL的DGV作为DataGridView的）作为布尔查询STR ---查询命令，DGV ---海峡和DataGridView控件来显示数据

昏暗的结核病新的DataTable

昏暗的AP尝试作为的新OleDb.OleDbDataAdapter（STR，CN）

ap.Fill（TB）

DGV作为数据源= TB

返回TRUE，“

抓住前异常

MessageBox.Show（Err.Description，”错误“，MessageBoxButtons.OK，MessageBoxIcon.Error）

则返回false />末尝试

功能

前端模块

以下是通话

DataModify（“插入AA值吗？（'1 '，'2'）“）-------这里是数据库更新 *** 作。

搜索（”选择BB AA“DataGridView1的）-----------数据表的查询 *** 作。

Try

objconn.Open()

Dim dt As New DataTable

Dim strsql = "select * from Info"

objadap.SelectCommand = New OleDb.OleDbCommand(strsql, objconn)

objadap.Fill(objDSet, "Info")

objDSet.Clear()

Dim cmdbuilder As New OleDb.OleDbCommandBuilder(objadap)

objadap.UpdateCommand = cmdbuilder.GetUpdateCommand()

‘此处修改数据

objadap.Update(objDSet.Tables("Info"))

objconn.Close()

MsgBox("保存成功", , "提示") '******

Catch ex As Exception

MsgBox(Err.Description, MsgBoxStyle.Critical, Err.Number)

End Try

---