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

MS Access：清空数据库

1 个答案: