主题：[求助]关于database

以下内容为程序代码:

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