昨天和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.2632010.08.25 07:09:07 EURUSD当前的卖一价是:1.2633010.08.25 07:09:12 EURUSDTSellShort 已成功触发下单操作 价格:1.26325 数量:010.08.25 07:09:12 EURUSDTBuy 已成功触发下单操作 价格:1.26325 数量:110.08.25 07:09:12 EURUSD运行结束10.08.25 07:10:00 EURUSD当前的买一价是:1.2630010.08.25 07:10:00 EURUSD当前的卖一价是:1.2630510.08.25 07:10:04 EURUSD运行结束10.08.25 07:11:09 EURUSD当前的买一价是:1.2633010.08.25 07:11:09 EURUSD当前的卖一价是:1.2633510.08.25 07:11:13 EURUSDTSellShort 已成功触发下单操作 价格:1.26325 数量:010.08.25 07:11:13 EURUSDTBuy 已成功触发下单操作 价格:1.26325 数量:110.08.25 07:11:13 EURUSD运行结束感觉语句都执行到位了,但是数据库无更新;代码不做任何修改,在图表模式下加载模型,数据库马上就会有更新
数据库附件
test.mdb