sql - 如何使用 SQL 删除所有表上的所有记录（1 次）

Question

我在 ms-access 的 1 个文件中有 14 个表。

我想一次性删除这些表上的所有记录。

我尝试

DELETE FROM table1
DELETE FROM table2
DELETE FROM table3
...
DELETE FROM table12
DELETE FROM table13
DELETE FROM table14

并运行它。

但它无法运行。

怎么做？

Answer 1

在 MS Access SQL 中一次只能运行一条语句，但是，您可以使用 MS Access VBA：

Sub DeleteTables()
    CurrentDB.Execute "DELETE FROM Table1", dbFailOnerror
    CurrentDB.Execute "DELETE FROM Table12", dbFailOnerror
End Sub

或更好

astables = Split("table1,table2,table3", ",")

For Each tbl In astables
    CurrentDb.Execute "DELETE FROM " & tbl, dbFailOnError
Next

如果任何表与其他表有关系，则必须确保按特定顺序删除。

如果要从所有表中删除并且顺序无关紧要，可以使用 TableDefs 集合，注意不要从系统表中删除。这是一个非常危险的选择：

For Each tdf In CurrentDb.TableDefs
    If Left(tdf.Name, 4) <> "Msys" And Left(tdf.Name, 1) <> "~" Then
        CurrentDb.Execute "DELETE FROM " & tdf.Name, dbFailOnError
    End If
Next