以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  老大,数据库问题,录入数据库,没反应呢?为啥呀?  (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=2574)

--  作者:msedu
--  发布时间:2010/8/23 16:27:18
--  老大,数据库问题,录入数据库,没反应呢?为啥呀?
Variable:x=0;
//监控输出
DebugOut(\'当前的买一价是:%2.f\',Dynainfo(28));
DebugOut(\'当前的卖一是:%2.f\',Dynainfo(28));
DebugOut(\'当前的收盘价是:%2.f\',Close);
//录入数据库
If x<5 Then Begin
DataBase(\'Provider=MicroSoft.Jet.OLDEB.4.0;Data Source=F:\\Db1.Mdb\');
DBTable(\'Select * From Test_1 Order By StockDate\');
DBExecute(\'Insert Into Test_1(Price) Values(\'&NumToStr(Close,2)&\')\');
X=X+1;
End
[此贴子已经被作者于2010-8-23 16:27:49编辑过]

--  作者:wattwei
--  发布时间:2010/8/23 17:53:37
--  
 能否描述下表结构?
--  作者:admin
--  发布时间:2010/8/23 18:16:04
--  
请问你的程序遇到了什么问题?
--  作者:msedu
--  发布时间:2010/8/23 18:33:46
--  

我遇到的问题是,数据库,里没有记录,不知道是咋回事,呢?


--  作者:admin
--  发布时间:2010/8/23 18:37:58
--  
吧If x<5 Then Begin这个去掉试试
--  作者:wattwei
--  发布时间:2010/8/23 18:48:26
--  
Variable:x=0;
//监控输出
DebugOut(\'当前的买一价是:%2.f\',Dynainfo(28));
DebugOut(\'当前的卖一是:%2.f\',Dynainfo(28));
DebugOut(\'当前的收盘价是:%2.f\',Close);
//录入数据库
If x<5 Then Begin
DataBase(\'Provider=MicroSoft.Jet.OLDEB.4.0;Data Source=F:\\Db1.Mdb\');
DBTable(\'Select * From Test_1 Order By StockDate\');
DBExecute(\'Insert Into Test_1(Price) Values(\'&NumToStr(Close,2)&\')\');
X=X+1;
End


标红处是否为 X:=X+1;



--  作者:wattwei
--  发布时间:2010/8/23 18:59:31
--  
另,应该是OLEDB,非OLDEB

建议在图表模式下调试通过,再改到后台

--  作者:wattwei
--  发布时间:2010/8/23 19:18:38
--  
 写入数据库的sample语句:
DATABASE(\'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\Test.mdb\');
DBTABLE2(\'Select * From RB\');
DBEXECUTE(\'insert into RB(stockclose) values(\'&NUMTOSTR(close,2)&\')\');



样本数据库test.mdb

--  作者:msedu
--  发布时间:2010/8/23 22:35:27
--  

非常好的版主,诚意邀请你,做我的QQ群管理员,其实,有时候写来写去,自己都写糊涂了,调试是最头疼的,希望大家能一起交流,一起提高。。。

 

QQ群:121087743


--  作者:wattwei
--  发布时间:2010/8/23 22:52:12
--  
 谢谢楼上的邀请,其实论坛交流效果也不错滴,很多问题在老贴里可以找到答案