MS Access：清空数据库中的所有表

Question

是否可以清空我的数据库中的每个 table？显然有一种使用方法：

CurrentDb.Execute "DELETE FROM Table1", dbFailOnError

每个 table。

但是我必须为每个 table 使用此代码。如果有 Loop 或与 table 名称无关的解决方案，那就太好了。

Answer 1

您可以使用代码

遍历所有本地表

Dim tdf As TableDef

For Each tdf In CurrentDb.TableDefs
    If Left(tdf.Name, 4) <> "MSys" Then
        CurrentDb.Execute "DELETE * FROM [" & tdf.Name & "]", dbFailOnError 
    End If
Next
End Sub

MS Access：清空数据库中的所有表

MS Access: Empty all tables in DB

ms-access

vba

sql-delete