1188
社区成员
如何把多笔修改记录存储到数据库中
比如有一张单，有3笔记录。先我把这3笔记录显示出来。A，B，C
现在对A，不做任何改动。对B进行修改，把C改成D。
如果取消修改，则还是A，B，C
如果保存修改，则为A，B，D。
请问应该如何实现（先不考虑绑定）。
请各位给一个思路或则解决方案。
现在对A，不做任何改动。对B进行修改，把C改成D。
如果取消修改，则还是A，B，C
如果保存修改，则为A，B，D。
请问应该如何实现（先不考虑绑定）。
请各位给一个思路或则解决方案。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
willdavis 2006-03-08
Dim rs6 As New Recordset
Dim SQL3 As String
Dim i, j, m, n As Integer
If rs6.State = 1 Then
rs6.Close
End If
SQL3 = "select TOP 0 * from EHGpofact "
rs6.CursorLocation = adUseClient
rs6.Open SQL3, pubStrConn, adOpenDynamic, adLockBatchOptimistic
Set rss = MSHFlexGrid3.DataSource
Set rs6 = rss.Clone
For m = 1 To rss.RecordCount
rs6.Delete
rs6.UpdateBatch
rs6.MoveNext
Next
为什么运行到
rs6.Delete
rs6.UpdateBatch
提示 current recordset does not support updating,this maybe a limitation of provider or of the selected locktype
请各位指点，哪里出了问题。原来还可以运行的。
Dim SQL3 As String
Dim i, j, m, n As Integer
If rs6.State = 1 Then
rs6.Close
End If
SQL3 = "select TOP 0 * from EHGpofact "
rs6.CursorLocation = adUseClient
rs6.Open SQL3, pubStrConn, adOpenDynamic, adLockBatchOptimistic
Set rss = MSHFlexGrid3.DataSource
Set rs6 = rss.Clone
For m = 1 To rss.RecordCount
rs6.Delete
rs6.UpdateBatch
rs6.MoveNext
Next
为什么运行到
rs6.Delete
rs6.UpdateBatch
提示 current recordset does not support updating,this maybe a limitation of provider or of the selected locktype
请各位指点，哪里出了问题。原来还可以运行的。
willdavis 2006-03-06
大家应该做过这样的程序。
就是把一张单据的多笔记录调出来进行修改，然后再保存。
我也想到了 Leftie(左手,为人民币服务)的方案，还有没有其他的更好的方案呢？
就是把一张单据的多笔记录调出来进行修改，然后再保存。
我也想到了 Leftie(左手,为人民币服务)的方案，还有没有其他的更好的方案呢？
christion3 2006-03-06
事件回滚
willdavis 2006-03-06
只有这一种方案吗？
还有没有其他的方法？
还有没有其他的方法？
饮水需思源 2006-03-06
控件不绑定到数据，如果取消修改则重新显示原来数据，如果保存修改则保存时先删除A,B,C，再保存A,B,D
willdavis 2006-03-06
能不能给一个例子。指点一下。
我用rs.UpdateBatch不行，插入数据会重复。不是我想要的效果。
我用rs.UpdateBatch不行，插入数据会重复。不是我想要的效果。
fj182 2006-03-06
首先，你要保证表中有唯一标示（比如主键）批更新才能成功。
tkscjj 2006-03-06
我也想知道，，更改的数据总是不更新到数据库。。。
willdavis 2006-03-04
没人遇到这种情况吗？
只好自己顶了
只好自己顶了
fj182 2006-03-04
使用批更新
中国新一代信息技术创投生态研究报告2021.pdf 根据36 氪研究院数据，2016 年至2021 年上半年，中国新一代信息技术领域北京、广东和上海获投案例数分别为5,757 起、3,860 起和3,619 起，投资金额排名前三的省市依旧为北京、上海和广东，分别为5,589.86 亿元、2,587.47亿元和2,311.09 亿元。
北京凭借优惠政策、资本集聚、人才多样等优势成为引领全国创新式发展的策源地。诸多优势叠加的北京也培育了众多科技企业，在资本集聚、企业扎堆的情况下，北京地区新一代信息技术领域企业获投数量和金额均位列第一。
广东和上海无论是投资案例数还是投资金额均不相伯仲，但发展优势各有侧重。
上海凭借资本优势扶持了众多企业发展，根据基金业协会数据，截至2021 年6 月底，上海市私募基金管理规模为4.28 万亿元，位列全国第一。
以深圳为代表的广东则凭借粤港澳大湾区地理位置优势，带动当地企业创新发展，培育出一批技术过硬、产品符合市场预期的新一代信息技术企业。
除北上广外，重庆凭借综合科技创新能力链接更多企业和资本，成为西南地区新一代信息技术领域的领军者。根据《中国区域科技创新评价报告2020》，继2018 年之后，重庆综合科技创新水平指数保持全国第7 位。
