如何在同一数据库所有数据表中查找某一记录.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 
    你 可 以 利 用 类 似 下 面 的 程 序 ： 
    For i = 0 To db.TabDefs.Count 
     IF Not (db.TableDef(i).Attibution And dbSystemObject) Then 
     Set rd = db.CreateRecordset("SELECT * FROM ' + db.TableDef(i).Name) 
     ........... 
     End If 
    Next 
<END>