欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → movefirst定位错误

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有3929人关注过本帖树形打印复制链接

主题：movefirst定位错误
帅哥哟，离线，有人找我吗？
zero
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：144 积分：0 威望：0 精华：0 注册：2016/10/29 1:47:53 		movefirst定位错误  发帖心情 Post By：2017/5/5 9:11:17 [显示全部帖子]

sub infosurvey2_OptionButton11_click()
    t1.show
    t1_textbox1.value=vtSymbolDict.Item("NI00")(0)  
    t1_textbox2.value=vtSymbolDict.Item("AL00")(0) 
    't1_textbox3.value="zn09"    
    t1_listbox1.clear 
    '调用数据库
    call bbi_TestDatabase()     
    '建立数据集Rst保留选中数据
    Set Rst11 = CreateObject( "ADODB.Recordset" )
    Rst11.Open "Select 成交记录 from NI_AL", adoconnection
    Rst11.MoveFirst
    Do While not Rst11.EOF
       if Rst11("成交记录").value <> " " then 
          t1_listbox1.additem Rst11("成交记录").value
       end if 
    Rst11.MoveNext
    loop
    
    Set adoconnection=nothing
    Set Rst11 =nothing         
end sub

1.建立rst数据集保存列数据，然后通过movefirst从头开始遍历，可是发现有时候movefirst有时候会出错。就像两张图上，“成交记录”应该是第一个被写入的数据却成了最后一个，这是什么原因？
图片点击可在新窗口打开查看此主题相关图片如下：{acfn8d(rh{u{xtab2je.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：vnl3d$$ltzi4(%13usy7r~a.png
图片点击可在新窗口打开查看
2.还有没有其他的方法可以快速读取数据库某列最后一个数据的方式？
 回到顶部
帅哥哟，离线，有人找我吗？
zero
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：144 积分：0 威望：0 精华：0 注册：2016/10/29 1:47:53 		  发帖心情 Post By：2017/5/5 9:54:09 [显示全部帖子]

补充下第二个问题，现在要在窗体输出一列数据库的数据和获取一列数据库最后一个数据都是通过movefirst逐渐获取过来的，有没有其他方法可以快速定位最后一个数据？如果movefirst定位错误会导致我获得的数据是错误的，所以想找下问题原因或者可替代方法

 回到顶部
帅哥哟，离线，有人找我吗？
zero
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：144 积分：0 威望：0 精华：0 注册：2016/10/29 1:47:53 		  发帖心情 Post By：2017/5/5 10:21:52 [显示全部帖子]

数据集的访问不能通过movelast会报错

 回到顶部
帅哥哟，离线，有人找我吗？
zero
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：144 积分：0 威望：0 精华：0 注册：2016/10/29 1:47:53 		  发帖心情 Post By：2017/5/5 10:23:00 [显示全部帖子]

call bbi_TestDatabase()     
    '建立数据集Rst保留选中数据
    Set Rst11 = CreateObject( "ADODB.Recordset" )
    Rst11.Open "Select 成交记录 from NI_AL", adoconnection
    Rst11.Movelast
这么做不行
 回到顶部
帅哥哟，离线，有人找我吗？
zero
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：144 积分：0 威望：0 精华：0 注册：2016/10/29 1:47:53 		  发帖心情 Post By：2017/5/8 9:25:43 [显示全部帖子]

 Rst11.Open "Select 成交记录 from NI_AL", adoconnection,1,1
改成游标可移动即可
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.03906 秒, 6 次数据查询