如何获得某张表的描述啊

Question

我用的是access 数据库,delphi 编程,我能通过下面的方式可以获得表的名字但是我怎么获得所有表的描述呢 SL := TStringList.Create;
 ADOCnn.GetTableNames(SL, False);
所说的表的描述是在某一张表的属性中.

Answer 1

用一个adotable，open后for i:= 0 to ADOTable1.FieldCount -1
   adotable1.fields[i].fieldname

Answer 2

表的描述是在设计这张表时在上面写的附注信息,有点象desciption
刚才没说明白

Answer 3

参考
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1261643

Answer 4

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1175753

Answer 5

还是贴出来：问题：怎样提取到ACCESS数据库中的字段注释 ( 积分：100, 回复：3, 阅读：96 )
分类：数据库-C/S型 ( 版主：千中元, luyear )  
来自：gaoronghui, 时间：2002-6-21 13:25:00, ID：1175753 [显示：小字体 | 大字体]  
比如建立ACCESS数据表时，通常在每一项后面加上字段说明，方便以后查看。
但在DELPHI中。怎样才能提取到这些说明呢。
已经有了这类型的软件。
数据库文档生成器
http://cloud.prohosting.com/ccxx/
 
 
来自：gaoronghui, 时间：2002-6-22 19:39:00, ID：1177449 
难道真的没办法吗？
不过别人可已经做到了！
 
 
来自：hbezwwl, 时间：2002-6-22 19:59:00, ID：1177463 
要用DAO对象,uses comobj;function TForm1.GetFiledDescript(FieldName: string): string;
var
  DbEng: variant;
  TblDef: variant;
  DAOFld: Variant;
  Db: variant;
  i, j, k: integer;
begin
  result := '';
  try
    DbEng := CreateOleObject('DAO.DBEngine.36');
    TblDef := CreateOleObject('DAO.TableDef.36');
    DAOFld := CreateOleObject('DAO.Field.36');    db := dbeng.OpenDatabase('db1.mdb'); // ACCESS文件    for i := 0 to db.TableDefs.Count - 1 do
    begin
      TblDef := db.TableDefs[i];
      for j := 0 to TblDef.Fields.Count - 1 do
      begin
        DAOFld := TblDef.Fields[j];
        if DAOFld.Name = FieldName then  // 在这里还可以加上对表的判断等
          for k := 0 to DAOFld.Properties.Count - 1 do
            if DAOFld.Properties[k].Name = 'Description' then
            begin
              result := DAOFld.Properties[k].Value;
              exit;
            end;
      end;
    end;
  finally
    DAOFld := unassigned;
    TblDef := unassigned;
    DbEng := Unassigned;
  end;
end;
 
 
来自：gaoronghui, 时间：2002-6-24 12:50:00, ID：1179413 
谢谢！hbezwwl
你可帮上大忙了。