我有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;