共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：movefirst定位错误
1楼
zero 发表于：2017/5/5 9:11:17sub 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
此主题相关图片如下：{acfn8d(rh{u{xtab2je.png此主题相关图片如下：vnl3d$$ltzi4(%13usy7r~a.png2.还有没有其他的方法可以快速读取数据库某列最后一个数据的方式？
2楼
zero 发表于：2017/5/5 9:54:09补充下第二个问题，现在要在窗体输出一列数据库的数据和获取一列数据库最后一个数据都是通过movefirst逐渐获取过来的，有没有其他方法可以快速定位最后一个数据？如果movefirst定位错误会导致我获得的数据是错误的，所以想找下问题原因或者可替代方法
3楼
王锋 发表于：2017/5/5 10:02:08MoveLast
4楼
zero 发表于：2017/5/5 10:21:52数据集的访问不能通过movelast会报错
5楼
zero 发表于：2017/5/5 10:23:00call bbi_TestDatabase()
'建立数据集Rst保留选中数据
Set Rst11 = CreateObject( "ADODB.Recordset" )
Rst11.Open "Select 成交记录 from NI_AL", adoconnection
Rst11.Movelast
这么做不行
6楼
王锋 发表于：2017/5/5 10:33:37金字塔的vbs语法是通用语法，你可以参考网上的一些教程及范例
http://www.yesky.com/imagesnew/software/ado/html/mdmthmovefirstx.htm
7楼
zero 发表于：2017/5/8 9:25:43 Rst11.Open "Select 成交记录 from NI_AL", adoconnection,1,1
改成游标可移动即可
共7 条记录, 每页显示 10 条, 页签:
[1]