如何利用VB6来实现一个记录数据集合的循环，要求是从下往上读取数据？

如何利用VB6来实现一个记录数据集合的循环，要求是从下往上读取数据？采用LISTBOX控件，在它里面实现就行了。哪位高手知道，帮帮忙。谢谢

解决方案 »

  1.   

    從下往上讀會快很多不用 EOF 以加快记录循环 
    通常我们使用以下的代码进行记录循环：Do while not records.eof
    combo1.additem records![Full Name]
    records.movenext
    loop 结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下， 浪费的时间相当大。 而使用以下的代码， 可以提高近 1/3 的速度：records.movelast
    intRecCount=records.RecordCount
    records.movefirstfor intCounter=1 to intRecCount
    combo1.additem records![Full Name]
    records.movenext
    next intCounter
    返回
      

  2.   

    晕，居然老兄喜欢从下往上读数据。Do while not records.eof
    combo1.additem records![Full Name]
    records.movenext
    loop 结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下， 浪费的时间相当大。 而使用以下的代码， 可以提高近 1/3 的速度：rst.movelast
    while not rst.bof
        list1.additem rst(0)
        rst.moveprevious
    wend
    rst.close
      

  3.   

    rst.movelast
    while not rst.bof
        list1.additem rst(0)
        rst.moveprevious
    wend
    rst.close
      

  4.   

    rs.movelast
    while rs.bof<>true
      list1.additem rs(0)
      rs.moveprevious
    wend
    除了这样以外，游标类型以及锁还应该定义吧？？？
      

  5.   

    rs.movelast
    while not rs.bof
       '访问当前记录集
        rs.moveprevious
    wend