vb update更新数据库，更新很多字段如何编写啊

可以用ADO方法

rsCnn

=

"PROVIDER=Microsoft.Jet.OLEDB.4.0Data

Source="

&

DataPath

&

"mode=Read|write"

rsTmp.Open

"Select

*

From

时刻段电量

",

rsCnn,

adOpenDynamic,

adLockBatchOptimistic

With

rsTmp

!峰数据

=

rsTmp1.Fields(strName(k)

&

"峰").Value

!平数据

=

rsTmp1.Fields(strName(k)

&

"平").Value

!谷数据

=

rsTmp1.Fields(strName(k)

&

"谷").Value

!总数据

=

!峰数据

+

!平数据

+

!谷数据

.UpdateBatch

End

With

Set

rsTmp

=

Nothing

需要声明使用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方法实现更新到数据库

你的数据库里面的ID如果是自动编号的话,那当然是无法更新的!

程序并没有问题,你的ID字段肯定是自动编号造成的!

从你的图片中可以看出，你的学号字段为文本型的，所以得用以下语句来更新！

更新学号如下:

sql = "UPDATE studinfor set xh = '" &学号文本框.Text &"'"

如果你要加上条件判断的话，得这样处理！

sql = "UPDATE studinfor set xh = '" &学号文本框.Text &"' where id="&Textid.Text

---