G
gaofeng
Unregistered / Unconfirmed
GUEST, unregistred user!
我在编程时遇到动态建一个数据库,代码如下:
table1:=ttable.create(self);
with table1 do
begin
Active:=false;
databasename:='workgroup1';
tablename:='paper';
tabletype:=ttparadox;
with fielddefs do
begin
clear;
add('test_NO',ftAutoInc ,0,false);
add('Id',ftLargeInt ,0,false);
add('Zj',ftSmallint ,0,false);
add('Zs',ftSmallint ,0,false);
add('Nd',ftSmallint ,0,false);
add('Ys',ftSmallint ,0,false);
add('Tx',ftSmallint ,0,false);
add('Fz',ftSmallint ,0,false);
add('Ym',ftString ,16,false);
add('Qs',ftMemo ,40,false);
add('As',ftMemo ,40,false);
end;
with indexdefs do
begin
clear;
Add('', 'test_NO', [ixPrimary, ixUnique]);
add('id_index','Id',[ixCaseInsensitive,ixunique]);
add('tx_index','Tx',[ixCaseInsensitive,ixunique]);
end;
createtable;
在运行到最后一句时总出现"Capability cannot support"的错误,请大虾指点!!
table1:=ttable.create(self);
with table1 do
begin
Active:=false;
databasename:='workgroup1';
tablename:='paper';
tabletype:=ttparadox;
with fielddefs do
begin
clear;
add('test_NO',ftAutoInc ,0,false);
add('Id',ftLargeInt ,0,false);
add('Zj',ftSmallint ,0,false);
add('Zs',ftSmallint ,0,false);
add('Nd',ftSmallint ,0,false);
add('Ys',ftSmallint ,0,false);
add('Tx',ftSmallint ,0,false);
add('Fz',ftSmallint ,0,false);
add('Ym',ftString ,16,false);
add('Qs',ftMemo ,40,false);
add('As',ftMemo ,40,false);
end;
with indexdefs do
begin
clear;
Add('', 'test_NO', [ixPrimary, ixUnique]);
add('id_index','Id',[ixCaseInsensitive,ixunique]);
add('tx_index','Tx',[ixCaseInsensitive,ixunique]);
end;
createtable;
在运行到最后一句时总出现"Capability cannot support"的错误,请大虾指点!!