何时关闭结果集（基本 ODBC 问题）

Question

我正在为本地公司做一些小项目，以下代码在我的机器上运行良好，但在他们的服务器上产生错误。目前我没有访问该服务器的权限，而且这不是我很了解的领域，所以我不得不问你们。

页面是用经典的 ASP（用于脚本的 javascript）编写的。 逻辑是这样的：

conn.Open("myconnection");
bigQuery = "...";
rs = conn.execute(bigQuery);
while (!rs.eof) {
    ...
    smallQuery = "..."
    rssmall = conn.execute(smallQuery);
    ...
    rssmall.close();
    ...
    rs.movenext();
}
rs.close();
conn.close();

正如我所说，这在我的机器上运行良好，但它会在公司的服务器上返回一些错误（最糟糕的是我什至不知道是什么错误）如果 bigQuery 返回超过 ~20 行。我的代码有问题吗（这真的不是我的领域，但我想像这样在循环中收集数据是可以的？），或者他们的 IIS 服务器有问题。

谢谢。

编辑： 更多信息： 它是 Access 数据库。一切都很标准：

conn=Server.CreateObject("ADODB.Connection");
conn.Provider="Microsoft.Jet.OLEDB.4.0";
conn.Open("D:/db/testingDb.mdb");

查询有点长，所以我不会发布它们。它们是完全普通的选择，所以它们不是问题。

Answer 1

我有一个我继承的遗留 Classic ASP 应用程序，它非常相似（大查询与在循环中运行的其他查询检索第一个查询的结果）运行良好，直到返回 40 条或更多记录。我“解决”问题的方法是实例化另一个连接对象来运行另一个查询。所以使用你的伪代码，试试 --

conn.Open("myconnection");
conn2.Open("myconnection")

bigQuery = "...";
rs = conn.execute(bigQuery);
while (!rs.eof) {
    ...
    smallQuery = "..."
    rssmall = conn2.execute(smallQuery);
    ...
    rssmall.close();
    ...
    rs.movenext();
}
rs.close();
conn2.close();
conn.close();

Answer 2

他们实际运行的是什么服务器？

大多数较新版本的 Windows Server 实际上根本不附带 64 位的 Jet 4.0 驱动程序，因此如果您的应用程序作为 64 位应用程序运行，您就不能将访问数据库与该驱动程序一起使用。您可以尝试以 32 位运行，这可能会解决问题。

有一个alternative driver 打包为一个办公组件，这可能是一个选项。

尝试编写一个简单的测试页面，像这样打开和关闭数据库连接：

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open("D:/db/testingDb.mdb")

Response.Write("Database Opened OK")

conn.Close()

%>

在生产服务器上运行它，如果你看到Database Opened OK，那么你就会知道这肯定是查询而不是数据库导致了问题。

如果您在尝试打开数据库时遇到错误，那么您需要更改为使用较新的驱动程序或在 32 位模式下尝试应用程序

如果是查询导致问题，那么您可能需要使用 Open() 方法的各种附加参数来尝试使用不同的游标（仅在您只需要迭代时转发结果一次），这将改变 ADODB 检索数据的方式，并有望解决与查询相关的任何性能瓶颈。

编辑

如果您想尝试更多地调试代码，请在文件开头添加以下内容。这会导致 ASP 脚本处理器即使遇到错误也会继续运行

On Error Resume Next

然后在整个文件中您预计可能会发生错误的时间间隔做

If Err <> 0 Then
    Response.Write(Err.Number & " - " & Err.Description)
End If

有关 ASP 和 VBScript 中错误处理的基础知识，请参阅来自 ASP 101 的 this 文章