欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → [原创]创建db table

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有4956人关注过本帖树形打印复制链接

主题：[原创]创建db table
帅哥哟，离线，有人找我吗？
z7c9
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		[原创]创建db table  发帖心情 Post By：2011/1/17 13:31:19    Post IP：114.241.168.122[只看该作者]

以下内容为程序代码:

1 runmode:1;
2
3 database('provider=microsoft.jet.oledb.4.0;data source=Trade.mdb');
4
5 sql1:='create table tradedetail(opendate datetime,'+'contractname varchar,'+'opentime datetime,'+'openprice real,'+'tradetype varchar,'+'closetime datetime,'+
6              'closeprice real,'+'winlosspoint int,'+'lots int,'+'commissions real,'+'closewinloss real,'+'asset real,'+'strategy varchar)';        
7 dbexecute(sql1);

 

 

 

runmode:1;

database('provider=microsoft.jet.oledb.4.0;data source=Trade.mdb');

sql1:='create table tradedetail(opendate datetime,'+'contractname varchar,'+'opentime datetime,'+'openprice real,'+'tradetype varchar,'+'closetime datetime,'+
'closeprice real,'+'winlosspoint int,'+'lots int,'+'commissions real,'+'closewinloss real,'+'asset real,'+'strategy varchar)';
dbexecute(sql1);

[此贴子已经被作者于2011-1-17 13:31:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
z7c9
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		  发帖心情 Post By：2011/1/17 21:31:19    Post IP：123.118.86.39[只看该作者]

以下内容为程序代码:

1 if debug=1 then begin
2     database('provider=microsoft.jet.oledb.4.0;data source=Analysis.mdb');
3     if barpos=1 then begin              
4         sql1:='create table tradedetail(opendate datetime,'+
5                      'contractname text,'+
6                      'opentime datetime,'+
7                      'openprice number,'+
8                      'tradetype text,'+
9                      'closetime datetime,'+
10                      'closeprice number,'+
11                      'winlosspoint number,'+
12                      'lots number,'+
13                      'commissions number,'+
14                      'closewinloss number,'+
15                      'asset number,'+
16                      'strategy text)';        
17         dbexecute(sql1);
18         
19         sql2:='create table myasset(tradedate datetime,'+
20                      'asset number)';    
21         dbexecute(sql2);        
22     end    
23 end

 

 

if debug=1 then begin
database('provider=microsoft.jet.oledb.4.0;data source=Analysis.mdb');
if barpos=1 then begin
sql1:='create table tradedetail(opendate datetime,'+
'contractname text,'+
'opentime datetime,'+
'openprice number,'+
'tradetype text,'+
'closetime datetime,'+
'closeprice number,'+
'winlosspoint number,'+
'lots number,'+
'commissions number,'+
'closewinloss number,'+
'asset number,'+
'strategy text)';
dbexecute(sql1);

sql2:='create table myasset(tradedate datetime,'+
'asset number)';
dbexecute(sql2);
end
end
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 03.39648 秒, 6 次数据查询