Delphi+Access2000中，如何复制一个表的结构（包括索引、约束、默认值）?急！！！

Question

我用select * into B from A where (False) 只能复制表的结构，但没有约束、索引等，
该怎么实现呢？

Answer 1

DoCmd 没有人用过吗？Docmd如何与ADO连接？

Answer 2

好象无法实现copy,我以前试过，后来只好重新动态创建一个表，其新创建的表结构及约束、索引等都以源表的有关参数设定！如：
  var
    tb1:TTable;
    tb1IndexOptions:TIndexOptions;
  begin
    tb1:=TTanle.creat;
    tb1IndexOptions:=[……源表的有关约束等……]；
    with tb1 do
    begin
      active:=false;
      databasename:='……'；
      tablename:=……
      tabletype:=……
      FieldDefs.clear;
      FieldDefs.add(……);
      …… ……
      IndexDefs.clear;
      IndexDefs.Add(……)
    end;
    CreatTable;
  end;

Answer 3

还有别的方法吗？用Batchmove怎么样？
有谁具体讲讲吗？

Answer 4

to wuyh78(阿华)　:
  这不是ADO连接。用ADO如何建复制表的约束、索引？
在Access中，Adotable.indexdefs.count怎么为0？

Answer 5

to snjun(闲得每天只想上csdn):
  我想得到索引的列的类型，但提示我不能存取他的值。
  oADOXindex.columns.item[k].Get_Type_  --error
  oAdoindex.columns.item[k].name        ---ok
why?

Answer 6

索引的问题我已经解决，现在只剩下约束了。在access中，字段的属性如何设置，在程序中？
请各位大大们帮助,

Answer 7

用ADO连接的不很清楚，但BDE扩展好象可以全部搞定，没那么费劲

Answer 8

要求用ADO，奈何？请各位帮忙。

Answer 9

用 Tbathmove  可以的 

Answer 10

Tbathmove如何实现？我还没有用过呢。

Answer 11

表和索引用ADOX可以建立。字段的属性不能设置，可以读取。我设置的流程如下：catalog->tables->table->columns->column->properties->property->set_value在哪儿出错？后来看到动态属性，是否要用到它？
敬请指教！！

Answer 12

gz,delphi如何引用adox的，是哪个unit??