怎样取数据库中所有表名和相应表的字段**

aqmeng

怎样实现在左边的框体中显示指定数据库的所有表名，右面显示选择到的表中所对应的字段，用什么控件比较合适。就类似于标准数据集SQL构造器数据表中的上半部分功能。

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=5480
http://bbs.justep.com/forum.php?mod=viewthread&tid=3884

aqmeng

我通过以下的程序想通过BizTreeView 去得其中得数据表名和字段得ID为什么会提示有问题，谢谢！
BizTreeView1.ShowOptions := BizTreeView1.ShowOptions + [TBizObjectKind.boDatabase,TBizObjectKind.boTable,TBizObjectKind.boField];                          


if BizTreeView1.SelectedNode.NodeKind=TBizObjectKind.boField then
  begin
    FName:=BizTreeView1.SelectedNode.ID;
    TName:=BizTreeView1.SelectedNode.Parent.ID;
    sName:=TName+'.'+FName;

Akon

楼主，请看下方代码。

procedure TMainForm.BizFormShow(Sender: TObject);

begin
    if ListBox1.Items = nil then exit;
    Connection1.Meta.GetTableNames(ListBox1.Items,False);
end;


procedure TMainForm.Button1Click(Sender: TObject);
var
i : integer;
field : array of TFieldRec;
begin
    field := Connection1.Meta.GetFieldList(ListBox1.Items[ListBox1.itemindex]);
    ListBox2.Clear;
    for i := low(field) to high(field) do
    begin
      ListBox2.Items.Add(Field.Name);
    end;
    end;

aqmeng

现在最主要得问题是我想显示的是中文表明和字段名，实际用的是表明和字段名的ID，用Connection没有办法取得中文表明和字段名啊！
我用 if BizTreeView1.SelectedNode.NodeKind=TBizObjectKind.boField then
  begin
    FName:=BizTreeView1.SelectedNode.ID;
    TName:=BizTreeView1.SelectedNode.Parent.ID;
    sName:=TName+'.'+FName;

  end;
有问题，对我的影响大马？

Akon

楼主，使用下方代码：


procedure TMainForm.Button2Click(Sender: TObject);
var
  lBizURL: TBizURL;
  lO: IObjectInfoList;
  i: Integer;
begin
  Memo1.Clear;
  lBizURL := TBizURL.Create;
  lBizURL.URL := 'Biz:\LZ\SJK.Database';
  lO := BizSys.BizSystem.GetObjectList(lBizURL);
  for i:=0 to lO.Count-1 do
    Memo1.Lines.Add(lO.Id+lO.DisplayName);
  lBizURL.Free;
end;

Akon

楼主,问题解决了吗?

atiger

这个帖子我结了，有问题请重新开帖

还有楼主，不管我们给的方法测试结果如何，应该把结果反馈上来吧，