使用 ADOX 将 Table 添加到 Catalog 时报“类型无效”的原因和解决方法

procedure TfrmCreateTable.btnCreateTableClick(Sender: TObject);
begin
  // create table
  with FCatalog do
  begin
    FTable := CoTable.Create;
    FTable.ParentCatalog := FCatalog;
    FTable.Name := edtTableName.Text;

    FTable.Columns.Append(‘ISBN‘, adVarWChar, 20);
    FTable.Columns.Append(‘BookName‘, adVarWChar, 60);
    FTable.Columns.Append(‘Publisher‘, adVarWChar, 60);
    FTable.Columns.Append(‘Author‘, adVarWChar, 10);
//    FTable.Columns.Append(‘PDT‘, adDBTimeStamp, 8); //MS SQL Server
    FTable.Columns.Append(‘Price‘, adInteger, 4);

    // create index
    FIndex := CoIndex.Create;
    with FIndex do
    begin
      Name := ‘ISBN‘;
      PrimaryKey := True;
      Unique := True;
      Columns.Append(‘ISBN‘, adVarWChar, 20);
    end;
    FTable.Indexes.Append(FIndex, EmptyParam);
    Tables.Append(FTable);
  end;
end;