怎么获得visual foxpro数据库中的所有表名,和某个表中的所有字段名

如何获得visual foxpro数据库中的所有表名,和某个表中的所有字段名
如何获得visual foxpro数据库中的所有表名,和某个表中的所有字段名  请大神帮助。小弟感激不尽!

------解决方案--------------------
OPEN DATABASE 数据库名称
FOR I=1 TO ADDOBJECTS(BB,"TABLE")
? BB(I) &&数据库表名称
ENDFOR

USE 数据表名称

FOR I=1 TO FCOUNT()
? FIELD(I) &&数据表字段名
ENDFOR
------解决方案--------------------
用 ADO的OPENSCHEMA OR ADOX取得