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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 数据库问题

   

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

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

主题：数据库问题
美女呀，离线，留言给我吧！
zm71212302
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		数据库问题  发帖心情 Post By：2020/2/13 10:17:12 [只看该作者]

strSqlread="select stockdate from if00 "

'strSqlread=strSqlread&"where vclose =2249"

'ADO Recordset 对象用于容纳一个来自数据库表的记录集。

Set rstTmp=CreateObject("ADODB.RecordSet")

rstTmp.open strSqlread,adoConn

aa=rstTmp("stockdate")

call application.MsgOut(aa)

为什么AA只显示最后一条数据，如何叫它以列表状态显示STOCKDATE的全部数据，麻烦老师解惑一下
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2020/2/13 13:06:33 [只看该作者]

aa=rstTmp("date")
rstTmp.MoveNext
bb=rstTmp("date")
call application.MsgOut(aa)
call application.MsgOut(bb)

 

https://blog.csdn.net/bigheadsheep/article/details/8492693
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2020/2/13 13:07:32 [只看该作者]

这类数据库问题建议客户自行百度试试了，这边技术人员能力也有限，我估计就是类似游标的概念你要自己处理好移动到下一个数据点

 

 
 回到顶部
美女呀，离线，留言给我吧！
zm71212302
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		  发帖心情 Post By：2020/2/14 2:20:22 [只看该作者]

非常感谢！解决我的疑惑了。

 回到顶部
美女呀，离线，留言给我吧！
zm71212302
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		  发帖心情 Post By：2020/2/14 4:55:30 [只看该作者]

'这个基础知识不熟悉的确实很头痛，下面这个例子可以与我有同样问题的做个参考
Sub RecordsetXX()
    Set adoConn=CreateObject("Adodb.Connection")
        adoConn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\test.mdb"
DIM strSqlupd,rstTmp,aa,itemfields
'检索并且更新数据
strSqlupd="select stockdate from IF00 "
'读取数据
'ADO Recordset 对象用于容纳一个来自数据库表的记录集。
    Set rstTmp=CreateObject("ADODB.Recordset")
        rstTmp.LockType=2
        rstTmp.open strSqlupd,adoConn
Do While rstTmp.EOF=0
        aa =rstTmp("stockdate")
        call application.MsgOut(aa)
        rstTmp.MoveNext
 Loop
        rstTmp.Close
        adoConn.CLOSE
End Sub

MoveNext之前放到AA的上面了，产生读取空记录的漏洞，把我也是整得很懵圈，粘出这个代码也是感谢管理的帮助，不必再重复同样的问题。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.04297 秒, 5 次数据查询