在 Access 中选择性删除许多表？

Question

我需要删除 Access 2003 中 180 个表中的 175 个（使用 Access 2000 格式数据库）。我尝试的第一件事是转到表列表并尝试选择全部，按住 Control 键单击我想要保留的表，然后选择“删除”。然而，事实证明你一次只能选择一个。

然后我找到了一种方法以纯文本形式获取所有表名称的列表，并使用 Vim 制作了一堆 drop 语句：（

drop table table_1;
drop table table_2;
...
drop table table_175;

显然，这些不是真实姓名。）这些语句有效它们本身就很好（即，一次只执行一个，但是当我尝试运行其中两个或多个时，我收到一条错误消息：

Syntax error in DROP TABLE or DROP INDEX.

这似乎违背了目的。哦，Access...你总是让我想要让我抓狂。

为了完成这项工作，我缺少什么？任何能让我保留我需要的表格的过程都很棒（不过，我想避免学习任何 Visual Basic。）

Answer 1

Remou 已经解决了您的问题，但作为建议，您可能需要将要保留的表导入到新文件中。您可以选择多个文件及其数据。除非您还有很多表，否则您最终可能会得到一个更干净的文件。

Answer 2

使用VBA。

For Each tbl In CurrentDb.TableDefs
    If Left(tbl.Name,4) <> "Msys" Then
        s = "DROP TABLE " & tbl.Name
        CurrentDb.Execute s
    End If
Next

For i = ( CurrentDb.TableDefs.Count - 1 ) To 0 Step -1
    If Left(tbl.Name,4) <> "Msys" Then
        ''Debug.Print CurrentDb.TableDefs(i).Name
        CurrentDb.TableDefs.Delete CurrentDb.TableDefs(i).Name
    End If
Next

如果您想要删除特定表或表相关，您可能必须提供一个数组或记录集并对其进行迭代。

Answer 3

如上所述，一般来说，我们使用对象模型和 VBA 来删除表定义及其数据。

您无法在 Access 中运行 SQL 批处理，同样，迭代多个 SQL 语句的方法是在 VBA 中。

Access 不是基于控制台的 RDBMS，您无法像在 SQL Plus 中那样运行批处理脚本，如果您尝试这样做，您肯定会抓狂。

Access 是一个应用程序容器和分析工具，所有过程应用程序都使用 VBA 或宏，这明显不如 VBA 灵活。如果您学习一些 VBA，您将能够从 Access 中获得最大收益。如果没有 VBA，访问将受到极大限制，并且您将能够访问的功能是简单的即席查询。