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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)