删除Access数据库的选定部分

Question

我正在尝试选择要删除的Access 2010数据库的某个部分。我的数据库中的任何内容都超过7天。我必须编写代码来压缩数据库我只是不知道从哪里开始删除数据库的选定部分。以下是我到目前为止的情况：

'Compacting database

Dim DateA As Date = Date.Now
Dim DateB As String
'Subtracting the seven days from the current date.
DateB = Format(DateA.AddDays(-7.0), "MM/dd/yy")

Answer 1

在Access会话中根据需要调整此查询：

DELETE FROM YourTable
WHERE ProdDate < DateAdd("d", -7, Date())

由于db引擎可以识别Date()和DateAdd()函数，因此可以从OleDb连接到Access数据库执行DELETE语句。

如果数据库包含多个必须稀疏的表，请将每个表名替换为“YourTable”并执行每个修改后的语句。