怎么样在程序中动态的为ＡＣＣＥＳＳ中创建一个数据表格！！！！！

Question

var tablex:TTable;
begin 
tablex:=TTable.create;
Tablx.databasename:='yourdatabasename';
Tablex.tablename:='thetableyouwannacreate';
tablex.fielddef.clear;
tablex.fielddef.add('fieldname1',ftfloat,0,True);
tablex.fielddef.add('fieldname2',ftString,10,False);
******
tablex.create;ok!
that's all
any question?

Answer 1

我的EMAIL:[email protected]
谢谢！！！！

Answer 2

create table 表格名([字段1] 字段类型,[字段2] 字段类型...)

Answer 3

1。放一个TQUERY控件QUERY1，正确设置DATABASE属性（要求是一个ACCESS数据库）；
2。with Query1 do
   begin
Close;
        sql.clear;
sql.add('Create Table myTable(my_NO smallint Constraint Primay key,my_data smallint)');
execsql;//my_NO是主键
  end;
3。删除表格
  with Query1 do
   begin
Close;
        sql.clear;
        sql.add('drop Table myTable');
        execsql;//不要用Open,否则出错，上同
  end;