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

2025-12-17 13:50:38

推荐回答（1个）

回答1：

可以用ADO方法

rsCnn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data 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