以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://www.weistock.com/bbs/list.asp?boardid=2)
----  5分钟k线的数据用VBA实时导入到access数据库  (http://www.weistock.com/bbs/dispbbs.asp?boardid=2&id=64883)

--  作者:liwei_bj
--  发布时间:2014/5/12 7:03:45
--  5分钟k线的数据用VBA实时导入到access数据库
我问一下,我想在盘中5分钟k线的数据用VBA实时导入到access数据库,但是由于金字塔对数据量做了限制导致无法得到最新的数据值,有什么办法解决吗?代码如下
set qtzq= marketdata.GetHistoryData("if00","ZJ",1)
call application.MsgOut(qtzq.Count)

其中qtzq.Count的值因为限制,总是只能显示1001。但是我是想实时输出最后一个k线的收盘价。请斑竹帮忙吧!

--  作者:RogarZ
--  发布时间:2014/5/12 8:45:48
--  

购买专业版 就没这个限制


--  作者:liwei_bj
--  发布时间:2014/5/12 10:59:55
--  
专业版太贵了,我有购买的普通版,难道也不行?这是让一般用户都没法用呀!
--  作者:lichenghu
--  发布时间:2014/5/12 11:01:14
--  
 这个是版本限制,不会做更改。
--  作者:liwei_bj
--  发布时间:2014/5/12 12:35:32
--  
那有没有变通的方法?我就每5分钟往数据库里导入一个K线数据,用pel,VBS都行?可以用什么方法访问到最后一根K线?或者我实时导出分笔自己组成K线?就是太麻烦了。
--  作者:王锋
--  发布时间:2014/5/12 12:40:46
--  

qtzq.Count()-1就是你最后一个数据的索引,你只要做个定时器,比如4分钟间隔一次的频率,读取5分钟的数据然后判断最后一笔数据的K线时间,如果出现新K线,则将qtzq.Count()-2倒数第二个写库,..................重复上述动作

[此贴子已经被作者于2014/5/12 12:41:11编辑过]

--  作者:liwei_bj
--  发布时间:2014/5/12 13:02:36
--  
搞定啦,多谢!版主真牛!!