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

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

---