主题：老大，数据库问题，录入数据库，没反应呢？为啥呀？

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

 能否描述下表结构？

请问你的程序遇到了什么问题？

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

吧If x<5 Then Begin这个去掉试试

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;

另，应该是OLEDB，非OLDEB。

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

 写入数据库的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

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

 

QQ群：121087743

 谢谢楼上的邀请，其实论坛交流效果也不错滴，很多问题在老贴里可以找到答案