Delphi,Firedac TFDTable.CreateTable并不存在

时间:2017-11-24 06:09:57

标签: delphi delphi-xe6 firedac

我有DELPHI-XE6并尝试使用FireDacs TFDTable.CreateTable来创建一个db-table,但它说" TFDTable不包含名为CreateTable"的成员。

这是为了让XE6老到还是什么? 代码如下:

function TDataModule1.crtTable(const aTblName: string;
  const aFlds: TStringList): boolean;
var
  Table: TFDTable;
begin
  Table := TFDTable.Create(nil);
  try
    Table.Connection := FDConnection1;
    { specify table name }
    Table.TableName := aTblName;
    { add some fields }
    Table.FieldDefs.Add('ID', ftInteger, 0, False);
    Table.FieldDefs.Add('Name', ftString, 50, False);
    { define primary key index }
    Table.AddIndex('pkMyTableID', 'ID', '', [soPrimary]);
    { and create it; when the first parameter is True, an existing one is dropped }
    Table.CreateTable(False);
  finally
    Table.Free;
  end;
end;

0 个答案:

没有答案