MS Access 2010：“无法再打开任何数据库。”答案

【问题标题】：MS Access 2010: "Cannot open any more databases."MS Access 2010：“无法再打开任何数据库。”
【发布时间】：2012-09-16 17:57:36
【问题描述】：

在使用单个旧版 MS Access 应用程序时，我遇到了这个奇怪的错误：

Cannot open any more databases.

该应用程序广泛使用UNION sql 语句。所以这似乎导致访问达到 2048 个打开表的限制。除了摆脱这些工会还有其他机会吗？

【问题讨论】：

哇，2048 张桌子……出于兴趣，事情怎么变得如此糟糕？
当然，数据库中的表并不多。表少于 50 个，查询约 100 个。
尽管 Kieren 强调了这一点，但我很惊讶所提供的答案都没有更倾向于认真重新考虑 UNION sql，如果数据结构优化得很好，那么你永远不需要结束有这么大的查询。访问尤其糟糕，因为它全部在本地运行并且可能需要一生。
这可能是因为我的问题是除了杀死工会之外是否还有其他方法:)。我只是不太热衷于优化整个结构以避免工会。
是的 Unions 是一种特殊情况，新手有 90% 的时间用于执行简单任务，这些任务最终会在它们消失之后产生大量数据集，并且随着时间的推移变得不可靠使用错误时返回的信息

标签： sql excel ms-access ms-access-2010

【解决方案1】：

我在使用链接外部表时遇到了这个问题。达到限制是因为不同的查询一遍又一遍地使用了大约 10 个 excel 文件。所以打开表的数量或多或少是查询和表的乘积。

我想使用联合也会增加这个问题。

我的解决方案是先将链接的 excel 表复制到 Access 本机表中。然后使用本机表运行相同的查询。

【讨论】：

德语消息是Fehler 3048: Mehr Datenbanken können nicht geöffnet werden btw。
哇，以这种方式编辑和执行查询的速度要快得多。 Access 无法自行处理此问题，这有点糟糕。但就我而言，这个解决方案没问题。

【解决方案2】：

这通常发生在具有许多子表单和/或组合框/列表框的大/复杂表单中。

尝试按照 Saurabh 所说的去做。反正都是好东西。但我认为这些改变不会解决你的问题。

最近，我解决了同样的问题。我发现在打开给定表单时总是会发生这种情况。这种形式有许多子形式和组合。

首先。尝试使您的表单或表单更简单：您真的需要所有子表单吗？必须始终加载所有子表单？

我解决了在选项卡控件的不同页面中分配子表单的问题。然后在 Change 事件中动态加载和卸载子表单。

最初，只有第一页上的子表单必须分配“SourceObject”属性。其余的，此属性为空。

在更改事件中，尝试执行以下操作：

Private Sub TabControl_Change
    Dim pgn As Access.Page
...
    For Each varCtlSubform In Array(Me.Subform1, Me.Subform1, ...)
        Set pgn = varCtlSubform.Parent
        If pgn.PageIndex <> Me.TabControl.value Then
            if varCtlSubform.SourceObject <> "" Then
                varCtlSubform.SourceObject = ""
            End if
        Else
            If varCtlSubform.SourceObject <> ctlSubform.Tag then
                varCtlSubform.SourceObject = ctlSubform.Tag
            End if
        End If
    Next
...
End sub

这是一个迭代所有子表单控件的通用函数。如果不在活动页面中，请将其卸载。在其他情况下，从标签属性中获取源对象。

您需要避免引用已卸载的子表单，即，如果“Subform1”已卸载，您将收到如下错误： Me.Subform1.Form.InvoiceId

此更改还有其他好处。您的表单会加载得更快，记录导航会更快。

【讨论】：

实际上不涉及任何表单或 vba 代码。打开 accdb 并执行一个（特定）查询足以弹出错误消息。如果我将依赖查询的结果放入一个表中并通过修改后的查询版本使用这些结果。
您的查询可能会调用聚合或 VBA 函数。你能发布这个查询的sql吗？你提到了具体的查询。只有这个查询？还有其他查询吗？
查询的代码类似于 SELECT * FROM A UNION ALL SELECT * FROM B... - 但 msjav 的回答很好地解决了实际问题。

【解决方案3】：

您需要评估 UNION 查询的每个部分，以及它所依赖的任何其他查询。您可以通过创建一个代表包含许多连接表的查询的临时表来获得改进，并改用该临时表。

当我开始使用 Access 进行开发时，我习惯于进行大型非规范化 snowflake 查询并将它们用作报告和列表框的来源。我没有任何超过 100,000 条记录的表，并且数据库运行得很快。后来我开始收到烦人的“无法打开更多数据库”错误，并发现了我的方式的错误。

我创建了一个表单，可以帮助跟踪您使用了多少数据库连接以及剩余多少。如果您将此表单添加到数据库并在打开查询和其他对象后单击重新查询，您将能够找到使用大量连接的对象。

请注意，对本地表或查询对象的每个引用都使用 1 个连接。对链接表的引用使用 2 个连接。连接两个链接表的查询将使用 5 个连接。如果您的联合中的许多其他查询都调用了该查询，则该数字加起来很快。也许您不需要子查询中连接表中的任何字段。在这种情况下，您可以进行新的查询。

我在网上阅读了很多关于此的内容，有些人认为 Access/Jet 有大约 2,000 个 TableID，但这个数字与我的表单报告的不匹配。我的表格报告的数字与错误完全一致。它可能会计算与 TableID 不同的东西，但它提供了一个准确的计量器来衡量您打开新对象时使用的连接数量。

【讨论】：

您可以下载我的可用连接实用程序here的更新版本。
非常感谢“可用连接”实用程序。理解我在使用复杂的 Access UI 时遇到的许多奇怪行为。

【解决方案4】：

解决此问题的唯一真正方法是使用一组临时表。将联合的结果插入到临时表中，然后使用它们来限制每个查询的表数。我通常在我的临时表前加上下划线 (_tmpCustomers)，然后在完成后销毁它们。

【讨论】：

呃，我之前没看懂这个答案。我猜你的意思和 msjav 一样吗？
是的，但我的回答不是很清楚......应该真的使用例子，我会在未来提供例子来帮助:)

【解决方案5】：

我要感谢 ricardohzsz 的精彩代码！它确实帮助我提高了数据库性能并消除了错误 3048。

我会投票支持该帖子，但我在这里没有足够的声誉来投票。

我必须进行一些修改才能使其满足我的需要（我需要子表单以允许添加和编辑，并且使用此代码将它们设为只读）。我在这里发布更改，以防它也可以帮助其他人：

Private Sub TabControlMain_Change()

Dim pgn As Access.Page
Dim sbf As SubForm
Dim strSubForm As String
Dim VarCtlSubform As Variant


For Each VarCtlSubform In Array(Me.sf1, Me.sf2, Me.sf3, etc) 
Set pgn = VarCtlSubform.Parent
    If pgn.PageIndex <> Me.TabControlMain.Value Then
        If VarCtlSubform.SourceObject <> "" Then
            VarCtlSubform.SourceObject = ""
        End If
    Else

        If VarCtlSubform.SourceObject <> VarCtlSubform.Tag Then
            VarCtlSubform.SourceObject = VarCtlSubform.Tag

            strSubForm = VarCtlSubform.Name
            Set sbf = Screen.ActiveForm.Controls(strSubForm)
            sbf.Form.AllowAdditions = True
            sbf.Form.AllowEdits = True
        End If
    End If
Next

结束子

【讨论】：

【解决方案6】：

您的应用程序正试图打开太多与 Access 数据库的连接。不仅仅是你的 sql 语句中的表加起来为 2048，甚至表单、报告、组合框、未关闭的记录集等加起来就是你的应用程序使用的连接数。您可以在这里尝试几件事：
1. 关闭您没有真正使用的资源（例如记录集）。
2. 如果您正在使用域聚合函数（例如 DLookup），请使用 Elookup 更改它，因为它会在自身之后显式清理。
3.您可以修改您的sql代码以使用临时表。
希望对您有所帮助。

【讨论】：

我猜，关闭资源无济于事。我可以启动应用程序，执行一个查询（无 vba）并发生错误。临时表在这里有什么帮助？你能举个例子吗？