当前记录集不支持更新是怎么回事？
当前记录集不支持更新是怎么回事？DimconnstrAsNewADODB.ConnectionDimrsprintAsNewADODB.RecordsetDimsqlst...
当前记录集不支持更新是怎么回事？
Dim connstr As New ADODB.Connection
Dim rsprint As New ADODB.Recordset
Dim sqlstr As String
connstr.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog= computer;Data Source=(local)"
connstr.Open
sqlstr = "select * from Tb_EquipmentInfo where PrintLabel = 1"
Set rsprint = connstr.Execute(sqlstr)
rsprint.Fields(14) = 0
rsprint.Update
rsprint.Close
数据表中对应字段是整型 展开
Dim connstr As New ADODB.Connection
Dim rsprint As New ADODB.Recordset
Dim sqlstr As String
connstr.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog= computer;Data Source=(local)"
connstr.Open
sqlstr = "select * from Tb_EquipmentInfo where PrintLabel = 1"
Set rsprint = connstr.Execute(sqlstr)
rsprint.Fields(14) = 0
rsprint.Update
rsprint.Close
数据表中对应字段是整型 展开
展开全部
Set rsprint = connstr.Execute(sqlstr)这样得到记录集是只读的，所以不能更新。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
壹寰（深圳）科技文化有限公司
2021-03-27 广告
要找正规专业的公司，行业口碑也比较重要。如果想了解更多详细信息,可以咨询下壹寰(深圳)科技文化有限公司。91数据恢复是壹寰（深圳）科技文化有限公司旗下专业数据恢复品牌，91数据恢复专注于勒索病毒数据恢复、勒索病毒数据修复、数据库修复、数据库...
点击进入详情页
本回答由壹寰（深圳）科技文化有限公司提供
展开全部
把这一句改一下；
Set rsprint = connstr.Execute(sqlstr)
改成如下这句；
rsprint.Open sqlstr, connstr, adOpenKeyset, adLockOptimistic
Set rsprint = connstr.Execute(sqlstr)
改成如下这句；
rsprint.Open sqlstr, connstr, adOpenKeyset, adLockOptimistic
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
rsprint.open sqlstr,conn,3,3方式
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
