vba - 删除VBA中的所有链接表

Question

我需要删除 Access 数据库中链接的所有表。

这是返回所有链接表(odbc 和 access 链接表)的查询:

SELECT [MSysObjects].[Name]
FROM MSysObjects
WHERE Left([Name],1) <> "~" AND (MSysObjects.Type = 6 OR MSysObjects.Type = 4)
ORDER BY MSysObjects.Name;

但现在我想我必须做 for each有了这个DoCmd.DeleteObject acTable, Table.name为了关闭我所有的 table ，但我不知道该怎么做。

Answer 1

For Each 以无序序列迭代集合，并且在迭代期间删除该集合中的对象是您遇到错误的原因。

我建议您以相反的顺序按有序序列迭代集合，以使用以下方法删除 TableDef 对象:

Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Set dbs = CurrentDb
For index = dbs.TableDefs.Count – 1 To 0 Step -1
    Set tdf = dbs.TableDefs(index)
    If Left(tdf.Connect, 5) = "ODBC;" Then
    DoCmd.DeleteObject acTable, tdf.Name
    End If
Next index