VB.NET用UpdateCommand更新数据库

Try

objconnOpen()

Dim dt As New DataTable

Dim strsql = "select from Info"

objadapSelectCommand = New OleDbOleDbCommand(strsql, objconn)

objadapFill(objDSet, "Info")

objDSetClear()

Dim cmdbuilder As New OleDbOleDbCommandBuilder(objadap)

objadapUpdateCommand = cmdbuilderGetUpdateCommand()

‘此处修改数据

objadapUpdate(objDSetTables("Info"))

objconnClose()

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

Catch ex As Exception

MsgBox(ErrDescription, MsgBoxStyleCritical, ErrNumber)

End Try

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

对于：SQL server

Dim Mybuilder As SqlCommandBuilder = New SqlCommandBuilder(da)

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

对于：ACCESS

Dim Mybuilder As OleDbCommandBuilder = New OleDbCommandBuilder(da)

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

两个地方你注意检查一下：

1、Text1text的内容是不是严格地与编号的一样，由于软件的关系，建议Text1Text最保险改用

trim(Text1text)

2、你的计数这个字段，我怀疑是一个数值型的字段，而如果

day(Now)是3的话，你实际上是用'3'去替换，这可能什么导致数据类型不一致瑞拒绝替换

这是一句读取你表单的数据 意思是Form4Text1Text 里的数据赋给Form2Adodc1RecordsetFields(0) 这是不能把数据添加到数据库里去的 你还要通过UPDATE(好像是这个关键字,不知有没有记错)把数据添加到你的数据库里去

连接数据库 直接用 sql语句就能进行了啊querysql1 = "select from book1 where 档案号 like '%" & Text1Text & "%'"rsOpen str, conn, adOpenDynamic, adLockPessimistic

connExecute str返回到是rs结果集addstr = "select from book1 "

rsOpen str, conn, adOpenDynamic, adLockPessimistic

connExecute str

rsAddNew

rs("id") = id

rs("name") = name

rsUpdateupdatestr = "update book1 set name='" & Text2Text & "'where id= '" & idh & "'"

rsOpen str, conn, adOpenDynamic, adLockPessimistic

connExecute strdelstr = "Delete from book11 where id ='" & Label8Caption & "'"

rsOpen str, conn, adOpenDynamic, adLockPessimistic

connExecute str

将界面上的Text控件与 Adodc 控件连接起来：

设置 TextBox 的 DataSource= Adodc

DataField= 字段名（如：姓名）

要更新数据内容，执行 Adodc1RecordsetUpdate 就可以了

以上就是关于VB.NET用UpdateCommand更新数据库全部的内容，包括:VB.NET用UpdateCommand更新数据库、VB.NET，将数据从dataset中删除了，如何更新到数据库、VB中使用update *** 作SQL数据库问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！