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

Question

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

CurrentDb.Execute "DELETE FROM Table1", dbFailOnError

对于每一张桌子。

但是，我必须对每个表都使用此代码。如果有一个与Loop或其他与表名无关的解决方案就好了。

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