（！在线等）获得Access字段得更多属性(100分)

顶

顶

大家动用过ＦＯＸＭＡＩＬ，用Delphi做这个软件要实现添加账户的功能，当添加账户的时候就需要在我用的Access里面自动建立一个表，如不需要添加账户则不在Access中建表，请问这个用Delphi的编程语言怎么实现？

1、按先后顺序取得 Access 字段属性得用 DAO，ADOX无能为力，并且速度比 DAO 慢的多。
type
TFieldDef = record
Name: string;
Types,
Size: Longint;
Description: string; //还有好多属性，自己加上吧
end;

TFieldDefs = array of TFieldDef;

procedure GetFieldDefs(const DBName, TableName: string; out FieldDefs: TFieldDefs);
var
dbEngine, db: OleVariant;
i: Longint;
begin
try
dbEngine := CreateOleObject('DAO.DBEngine.36');
db := dbEngine.OpenDatabase(DBName);
SetLength(FieldDefs, Longint(db.TableDefs[TableName].Fields.Count));
for i := Low(FieldDefs) to High(FieldDefs) do
begin
FieldDefs.Name := db.TableDefs[TableName].Fields.Name;
FieldDefs.Types := db.TableDefs[TableName].Fields.Type;
FieldDefs.Size := db.TableDefs[TableName].Fields.Size;
try
FieldDefs.Description := db.TableDefs[TableName].Fields.Properties['Description'].Value;
except
FieldDefs.Description := '';
end;
end;
finally
db := Unassigned;
dbEngine := Unassigned;
end;
end;
2、字段的可用属性你可以在本机搜索 'DAO360.chm'，输入关键字 'Fields'，里面很详细，我说多了也没用。具体用法仿造上面我写的代码，都是 db.TableDefs[TableName].Fields.* 的形式。

看看再说

能用就结贴，不能用也说一声。

不是很满意，不过夜多谢了