怎样获取ACESS数据库格式的信息！急！100分(100分)

我用ADOX去获取ACESS数据库格式的信息，如表名，字段名，字段类型。
但是没有办法获取字段的缺省值和是否为空信息。
请各位帮帮忙！怎样去获取全部的信息。
真的很急，谢谢！

我以前写过一个例子,如果你需要留个信箱.
具体的说获取字段的缺省值和是否为空信息是在该Column的一个Porperty中,
分别叫Nullable和Default中.

谢谢。我的信箱 GLTOPTEN@163.com

给你提供一些思路。

9、取得字段的属性
找了一些以前写过的代码 :
var fType :TfieldType;
strType :String;
Adotable1.Fields[0].DataSize 得到 宽度 !
fType :=AdoTable1.Fields[0].Dataset 用于得到field的类型，这个结果不是string，你要自己去转换:
Case fType of
ftWideString : strType:='Text';
ftDate: strType :='Date';
ftString :strType :='Text';
ftBoolean:strType :='Boolean';
ftMemo :strType :='memo';
ftSmallint :strType:='Integer' ;
ftUnknown :strType:='Unknown';
end;
另外还有一种 :
var
i:Integer;
FieldType:String;

case varastype(ADOTable1.Fields.DataType,varInteger) of
24: FieldType:='字符型';
16: FieldType:='备注型';
3 : FieldType:='数值型';
11: FieldType:='日期时间型';
8 : FieldType:='货币型';
14: FieldType:='自动编号型';
5 : FieldType:='逻辑型';
15: FieldType:='OLE对象型';
end;

to bluerain
先谢谢bluerain你的程序，的确不错的。
to 小甘：
我也在学adox，一起讨论一下，晚上我一般都在，53320295
bluerain的程序的确不错，一看就明白了。

bluerain :
非常感谢你的帮助。
我想获取全部的信息，例如还有验证规则等。希望你能解决。
对了，你的例子我还没收到。
谢谢。

to hbezwwl:
呵呵,如果你将那个程序改进了,也麻烦给我寄一份,我自己估计不会去修改了,虽然有一些
问题还是没有搞清楚. 不过通过写这个ADOX的代码,对ADO对象也增加了一些理解,以及
Delphi中哪堆ADO控件的封装技术也体会到了一些技巧的地方.

再过一个星期,我休假了两个星期,如果有什么心得,可以QQ联系.
QQ:87268276

to hbezwwl:
好的。QQ : 94384858

to bluerain
谢谢。100分归你