在Access中有选择地删除许多表?

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

使用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

如果要删除特定的表或表是相关的,则可能必须提供一个数组或记录集并遍历该数组或记录集。

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

Access不是一个基于控制台的RDBMS,你不能像sqlplus那样运行批处理脚本,如果你尝试的话,你肯定会被吓到。

Access是一个应用程序容器和分析工具,所有过程应用程序都使用VBA或宏,它们的灵活性明显低于VBA。如果您 做