【结贴】用代码生成物理表

fhqypm126

以前问过用代码生成数据字典,现在在stdio中建了若干表但没有生成物理表,请问用代码怎么生成物理表,我不想一个个的在开发工具中点击,因为表太多了.而且开发工具生成物理表向导有时老卡,请问用代码怎么生成物理表,强制新建就行.

zfang

楼主，没必要代码去做吧，也不用一个个点或者选的。
直接在studio中的逻辑数据库上右键--创建物理表，然后直接添加 逻辑数据库 这个节点的，这样会把它下面所有的数据表选过去。

fhqypm126

就是想用代码生成物理表,因为我们从excel表中把一千多张表的物理表结构给放到了一张我们自己做的字段对照表中,字段对照表中有如下字段:中文表名,英文表名,中文字段名,英文字段名,字段类型,字段大小,小数据位数据,是否主键,是否必填,等一些信息,我用你们教的方法实现了在X3中利用代码生成数据字典,但是没生成物理表,所以我想问的是如何用代码生成物理表,这样直接就实现了表的创建,还请告诉如何用代码生成物理表,另外用代码生成的数据字典都是在数据库下面,我想问如何指定数据字典生成后的路径,如数据库下有一个文件夹名为计划,我想把数据字典放到它下面,用代码怎么实现?两个问题还请回答,谢谢

zfang

请楼主参考下面的代码
procedure TMainForm.Button1Click(Sender: TObject);
var
  lTa: TTableDefSchemaTable;
  lbizTab: TBizTableDef;
  lbuilder: TTableBuilder;
  lConnection: TConnection;
  lBizURL: TBizURL;
begin
  lConnection := DataSetBZSJJ1.Connection;
  lBuilder := TTableBuilder.Create;
  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := 'Biz:\TESTSPACE\TESTDB.DATABASE\LCCS.TABLE';
    lBizTab := TBizTableDef(BizSys.BizSystem.GetBizObject(lBizURL));
    lTa := TTableDefSchemaTable.Create(lBizTab, lConnection.Meta.DataProvider);
    lBuilder.CreateTable(lConnection, lTa, TCreateMode.cmtCreate, True);
  finally
    lBizURL.Free;
    lBuilder.Free;
  end;
end;

fhqypm126

我试一下吧,谢谢了,先结帖吧