【搞定】可否直接调用平台的"创建物理表"**

linjiawei

在运行平台中,数据字典已定义好,是否有直接调平台的studio中的"创建物理表"的接口?

atiger

参考代码如下：不过只支持2401以后的版本
var
  lBizTableDef: TBizTableDef;
begin
      CreatePhysicalTable(lBizTableDef, AKeepData);
end;


procedure CreatePhysicalTable(ABizTableDef: TBizTableDef;
  const AKeepData: Boolean);
var
  lTableDefSchemaTable: TTableDefSchemaTable;
  lTableBuilder: TTableBuilder;
const
  cDropTab = 'drop table %s';
begin
  lTableBuilder := TTableBuilder.Create;
  lTableDefSchemaTable := TTableDefSchemaTable.Create(ABizTableDef,
    BizSchemaTypes.cDriver_ORACLE);
  try
    try
      lTableBuilder.CreateTable(nil, FConnection, lTableDefSchemaTable, Business.Model.TCreateMode.cmtCreate,
        AKeepData, True, -1);
    except
      on E: Exception do
      begin
        jsdialogs.ShowError(E.Message, '');
        FConnection.ExecuteSQL(SysUtils.Format(cDropTab, [ABizTableDef.ID]),nil, -1, '');
        lTableBuilder.CreateTable(nil, FConnection, lTableDefSchemaTable, Business.Model.TCreateMode.cmtCreate,
          False, True, -1);
      end;
    end;
  finally
    lTableDefSchemaTable.Free;
    lTableBuilder.Free;
  end;
end;

linjiawei

:no:  连基本的TTableDefSchemaTable,TTableBuilder定义都没有噢

atiger

你们有2401版本吗？有的话在这个版本验证吧，如果没有只能到8号上班才能给你，

atiger

楼主，结果呢？请反馈一下

linjiawei

我们这里没有2401版本,还是老的3.0下的2276版本.

atiger

我们已经跟胡发了2423版本，请向他索取

linjiawei

但我们还没有升级到2423版本,想在2276下使用CreatePhysicalTable这些代码可以吗

atiger

不能，只能在2401以后的版本上使用

linjiawei

:notagree:  不能将这些定义公开吗,对老版本也不关心了?再丑也都是自己的娃啊