Dim rsColor As New ADODB.Recordse
rsColor.CursorLocation = adUseClient
rsColor.Open "select row,line from vPAC", cnnCabinet, adOpenForwardOnly, adLockReadOnly
If rsColor.eof And rsColor.BOF Then Exit Sub
我先定义了一个recordse叫做rscolor
rscolor!row和rscolor!line所取出来的数据很多
我想通过一个循环语句一组一组的去取这两个数据
比如过rscolor.recordcount = 1 ,取的是第一组数据
当 = 2,取的是第二组数据
直到最后一条为止
请各位大侠帮帮我
rsColor.CursorLocation = adUseClient
rsColor.Open "select row,line from vPAC", cnnCabinet, adOpenForwardOnly, adLockReadOnly
If rsColor.eof And rsColor.BOF Then Exit Sub
我先定义了一个recordse叫做rscolor
rscolor!row和rscolor!line所取出来的数据很多
我想通过一个循环语句一组一组的去取这两个数据
比如过rscolor.recordcount = 1 ,取的是第一组数据
当 = 2,取的是第二组数据
直到最后一条为止
请各位大侠帮帮我
解决方案 »
- 目标在TreeView中拖动时,TreeView控件如何根据鼠标移动的位置自动选定Node
- 用了zyg0 (影子(努力节食争取减10斤)的 “udp传文件如何避免丢包”,真在太棒了,谢谢,随便还问一下一个有关的问题。
- 谁能提供自来水管理收费系统源码???谢谢!!
- 在vb中如何处理图片?
- 有关VB指针long 的问题
- 各位高手,拉小弟一把吧!我实在没有分数了,以后一定回报大家!!
- 菜鸟求一vb函数,还有....
- 菜鸟问题:怎么将字符转换成数值?数字转换成字符窜?
- 请问谁有 Visual Basic 5.0 Win32 API 开发人员指南书中得例题(ExtPen.Vbp)
- 有没有科学绘图的控件?
- 关于对象数组排序的一个问题
- com 问题
row(i)=rscolor!row
line(i)=rscolor!line
i=i+1
rscolor.movenext
loop
row(i)=rscolor!row '得到记录的ROW值
line(i)=rscolor!line '得到记录的LINE值
i=i+1 '显示记录的控件行数加一,因为要写入第二条记录了
rscolor.movenext '记录转移的第二条
loop