易截截图软件、单文件、免安装、纯绿色、仅160KB

请教!用的是VB 6.0 - VB / 控件

把已有数据(数据大于20行)的RS(recordset)的第10行数据与第11行数据做加法后,删除第11行的数据,然后把后面的数据向前移。
RS的话修改数据是会更新数据库,现在的问题是RS里的已有数据是用SQL语句分类统计出来的,无法更新。我也不需要更新数据,只要能做到第10行数据与第11行数据做加法后,删除第11行的数据,然后把后面的数据向前移就行了。不更新数据。
之前我用双重循环

但是运行到rs1.fields(z)=rs1.fields(z)+rs2.fields(i) z=10 i=11
就会出错。原因是一旦赋值就会更新数据库,有什么办法解决或绕开这个问题伐?如有知道的,请帮个忙。
简单点说就是能对返回的结果进行编辑但又不会更新数据库的控件有伐?

以只读的方式读取数据就是了


引用
以只读的方式读取数据就是了


只读的话,就不能修改结果了。我现在要的是能修改统计的结果集,但不更新数据库。

不想更新数据库,结果集是用来显示的吧,在显示时选择下。

显示的时候处理,把10和11相加,11跳过不显示

使用ADO的断开记录集,设置Set RS.ActiveConnection = Nothing,这时无论是AddNew、Delete,均不会对原始记录集产生影响。

附上源码:
  If Not rsCopy7 Is Nothing Then Set rsCopy7 = Nothing

  Set rsCopy7 = Module2.rs.Clone  
  While Not rsCopy7.EOF
  If (rsCopy7.AbsolutePosition = 10) Then
  While Not Module2.rs.EOF
  If (Module2.rs.AbsolutePosition = 11) Then
  For Z = 2 To 13
 


相关问答:

vb的成功之路 - 扩充话题 / 共享软件(走向海外)

在vb这编程里似乎有很多的东西是相联系的,为什么有些人对vb的编程摸不到头脑啊!并且有些事很容易的,但是却把它们的代码变成复杂,也去想一些不能实现的东西啊!




没分了,楼主多来点分!

来接点分

......

帮我改改这VB题 - VB / 基础类

帮我改改 我总觉得有问题
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

vb超简单form.show的问题 - VB / 非技术类

为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊?
代码看看
照道理form.show 没次数限定的吧

我也快疯了。
楼主知道怎么发贴么?

引用
我也快疯了。
楼主知道怎么发贴么?
楼主也 ......

vb自动发送邮件 - VB / 基础类

为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
  Do While Not TDBG_Dept.EOF
  If A> ......

关于vb语音开发的问题? - VB / 多媒体

在网上下载了speechsdk51LangPack安装后,用vb可以发音(中文),里面有个girl xiaokun的发音,对中文很好听。但是这个speechsdk51LangPack有100多M,我的vb项目打包后,怎么才可以装到其他机子上也能用??总不能每 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号