以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  admin老大请进  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=2609)

--  作者:wattwei
--  发布时间:2010/8/25 8:01:34
--  admin老大请进
 昨天和msedu通过QQ核对了半天,测试的结果是后台交易时数据库无法写入,图表交易时可以写入数据库。由于代码设及msedu的一些东东,我做了简化,看看有何办法或建议

DebugOut(\'当前的买一价是:%.5f\',Dynainfo(28));
DataBase(\'Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=D:\\test.Mdb\');
DBTABLE2(\'Select * From RB\');
If IsLastBar Then Begin
DebugOut(\'当前的卖一价是:%.5f\',Dynainfo(34));
DBEXECUTE(\'insert into RB(stockclose) values(\'&NUMTOSTR(close,2)&\')\');
End
HH:=REF(HHV(H,2),1);
LL:=REF(LLV(L,2),1);
TSell(l<LL,0,LMT,c);
TSellShort(h>HH,0,LMT,c);
TBuy(h>HH,1,LMT,c);
TBuyShort(l<LL,1,LMT,c);

后台监控的结果片段是:
0.08.25 07:09:07 EURUSD
当前的买一价是:1.26320
10.08.25 07:09:07 EURUSD
当前的卖一价是:1.26330
10.08.25 07:09:12 EURUSD
TSellShort 已成功触发下单操作 价格:1.26325 数量:0
10.08.25 07:09:12 EURUSD
TBuy 已成功触发下单操作 价格:1.26325 数量:1
10.08.25 07:09:12 EURUSD
运行结束
10.08.25 07:10:00 EURUSD
当前的买一价是:1.26300
10.08.25 07:10:00 EURUSD
当前的卖一价是:1.26305
10.08.25 07:10:04 EURUSD
运行结束
10.08.25 07:11:09 EURUSD
当前的买一价是:1.26330
10.08.25 07:11:09 EURUSD
当前的卖一价是:1.26335
10.08.25 07:11:13 EURUSD
TSellShort 已成功触发下单操作 价格:1.26325 数量:0
10.08.25 07:11:13 EURUSD
TBuy 已成功触发下单操作 价格:1.26325 数量:1
10.08.25 07:11:13 EURUSD
运行结束

感觉语句都执行到位了,但是数据库无更新;代码不做任何修改,在图表模式下加载模型,数据库马上就会有更新
数据库附件test.mdb

--  作者:admin
--  发布时间:2010/8/25 14:03:32
--  

系统问题,下个升级版已经修正


--  作者:wattwei
--  发布时间:2010/8/25 14:06:34
--  
 好的,谢谢答复