如何知道数据库中包括哪些表和字段.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

当 你 打 开 Database对 象 以 后 ， Database对 象 包 括 TableDefs集 合 。 这 个 集 合 包 括 数 据 库 中 所 有 表 的 定 义 。 表 的 个 数 为 TableDefs.Count。 你 可 以 使 用 TableDefs(0)， ......， TableDefs(TableDefs.Count - 1)来 依 次 获 得 各 个 表 的 定 义 (TableDef对 象 )。 你 也 可 以 利 用 For Each ... Next来 遍 历 整 个 集 合 。 每 个 TableDef对 象 都 表 示 一 个 表 的 结 构 ， 其 Name属 性 就 是 表 名 。 如 果 打 开 一 个 MDB文 件 ， 你 可 能 会 得 到 比 实 际 多 的 表 的 个 数 ， 这 是 因 为 Access数 据 库 中 还 有 一 些 系 统 表 ， 这 些 表 通 常 不 会 被 Access和 VB显 示 出 来 ， 但 你 可 以 使 用 VB访 问 它 们 。 如 果 你 不 想 让 这 些 系 统 表 出 现 在 你 的 列 表 中 ， 可 以 判 断 TableDef的 Attribution属 性 ， 如 ： 
    IF TableDef(i).Attibution And dbSystemObject Then 
     ' 系 统 表 
    Else 
     ' 普 通 的 用 户 表 
    End If 
    得 到 一 个 TableDef对 象 ， 你 可 以 进 一 步 访 问 TableDef.Fields集 合 。 这 个 集 合 表 示 有 多 少 个 字 段 ， 它 的 每 个 成 员 为 Field对 象 ， 代 表 一 个 字 段 。 访 问 的 方 法 类 似 TableDefs。 每 个 Field对 象 有 若 干 个 属 性 ， 包 括 字 段 名 、 字 段 类 型 等 。 
    在 VB的 帮 助 有 相 应 的 例 子 。 另 外 ， 我 经 常 象 初 学 者 推 荐 VB的 例 子 VisData(在 Samples\VisData目 录 )。 在 这 个 例 子 中 包 括 很 多 有 用 的 程 序 段 落 。 比 如 在 VisData.bas中 ， GetTableList过 程 获 得 所 有 表 名 。
<END>