如何在delphi中动态建立表?

Question

我想要在delphi中动态的建立一个.DBF的在visual Foxpro下能够打开的表
但它老是报错,"invalid record structure table does not exist.",不知
是怎么回事?代码如下,哪位大哥看一下:
  Table1.active:=false;
  with Table1 do
  begin
    DatabaseName:='d:\data' ;
    TableName:='t1.dbf';
    TableType:=ttFoxpro;
    if not Table1.Exists then
    begin                  //建表
      with FieldDefs do
      begin
        clear;
        Add('KSH',ftString,14,True);
        Add('XM',ftString,8,False);
      end;
      IndexDefs.Clear;
      IndexDefs.Add('','KSH',[ixPrimary]);
      CreateTable;
    end
  end;
  Table1.active:=true;
而我把tabletype换成ttdbase,就可以建立,但是这样建成的表在visual foxpro中不能打开.

Answer 1

我一般用一个adoquery控件，然后把“create table...”写进去，运行一下就可以了

Answer 2

我用过两年VFP但是从来没用DELPHI连过VFP的数据库，但是你可以试试这样
建立一个VFP的数据源，（数据库连接的步骤我就不用讲了吧）然后用adoquery控件，然后把“create table...”写进去，运行一下就可以了
create tbale语句应该知道的吧