VB批量更新数据库中的记录

VB批量更新数据库中的记录,第1张

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

删除后,当前条就不存在了,所以下一条,不知道是指的那一条的下一条。

如果是更新一个表,使用datatable就好了。

Public Function UpDataTable(ByVal Tdb As DataTable) As Boolean

ReadOnly Conn_str As String = "你的数据库连接字符串"

Dim myda As SqlDataAdapter

Try

Dim pc As New SqlCommandBuilder(myda)

myda.UpdateCommand = pc.GetUpdateCommand

myda.Update(Tdb)

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

End Function


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/sjk/6896264.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-03-29
下一篇 2023-03-29

发表评论

登录后才能评论

评论列表(0条)

保存