问题描述
我想通过DATABASE1中的查询来压缩DATABASE2。
情况:我有2个Access数据库,一个包含所有查询/逻辑,一个包含从第一个创建的表。在我从DATABASE1写入DATABASE2中的表之前,我使用查询来删除表的内容。由于表很大,因此我想在删除内容的查询运行后压缩数据库(理想情况下,我想将查询嵌套为一个)。
有人知道这是否可能吗?
为32位Office 365 MSO(16.0 ....)使用MS Access
解决方法
是的,您可以这样做。创建此功能:
Public Function CompactDatabase(ByVal Path As String)
Dim SrcName As String
Dim DstName As String
Dim Success As Boolean
On Error GoTo Exit_CompactDatabase
SrcName = Path
DstName = Replace(Path,".accdb",".tmpdb")
DBEngine.CompactDatabase SrcName,DstName
Kill SrcName
Name DstName As SrcName
Success = True
CompactDatabase = Success
Exit_CompactDatabase:
End Function
然后使用数据库2中的表非运行这样的查询:
SELECT Top 1 CompactDatabase("d:\path\Database2.accdb") AS Success
FROM SomeTable;