11

我将 RODBC 与 R 和 knitr 一起使用，使用各种生产数据库进行一些报告。在其中一些报告中，我正在对多个数据库运行乘法查询。

我的每个查询都以以下形式执行：

get.total.orders <- function(db.connex.string, start.date, end.date){
    db.connex <- odbcDriverConnect(db.connex.string)
    ord.qry <- sprintf("SELECT ord_OrderReference AS 'order.ref',
ord_RegisterDate as 'register.date'
FROM Orders
WHERE ord_RegisterDate >= '%s' AND ord_RegisterDate < '%s'",
                       start.date, end.date)
    orders <- sqlQuery(db.connex, ord.qry)
    odbcClose(db.connex)
    return(orders)
}

请注意，在此函数中打开和关闭 ODBC 通道，并且在通道的打开和关闭之间只运行一个简单的查询。

尽管如此，当我多次运行报告时（例如，在开发报告时），我会收到如下警告：

Warning: closing unused RODBC handle 41

我运行报告的次数越多，错误中报告的句柄数就越高。

为什么，如果我在查询函数中打开和关闭通道，我会留下打开的、“未使用的”RODBC 句柄吗？

更重要的是，我怎样才能避免这个问题？

4

2 回答 2

5

我会避免这样使用on.exit：

get.total.orders <- function(db.connex.string, start.date, end.date){
   db.connex <- odbcDriverConnect(db.connex.string)
   on.exit(odbcClose(db.connex))  # <-----------------------   change here
   ord.qry <- sprintf("SELECT ord_OrderReference AS 'order.ref',
      ord_RegisterDate as 'register.date'
         FROM Orders
         WHERE ord_RegisterDate >= '%s' AND ord_RegisterDate < '%s'",
         start.date, end.date)
 orders <- sqlQuery(db.connex, ord.qry)
 return(orders)
 }

这样，即使出现错误，连接也会关闭。另请参阅?on.exit。

[编辑]

以上假设句柄没有关闭，因为执行查询时出错。如果查询没问题，但句柄没有关闭，那么我不知道。odbcClose如果成功则返回 0，因此您可以检查一下。

[编辑2]

正如其他人所指出的，这可能没什么好担心的——另一方面，如果你明确告诉它关闭，弄清楚为什么连接没有关闭仍然很有趣。也许这只是几毫秒的问题，并且在分配结果时查询尚未完成。这对我来说没有多大意义，好像结果被分配给orders那么关于数据库还有什么？但也许有什么。在这种情况下，人们可能会尝试给它更多时间，例如。

#...
orders <- sqlQuery(db.connex, ord.qry)
orders # or force(orders) - to just evaluate the result once more
Sys.sleep(0.01)  # give it 10 milliseconds
orders # or return(orders) - to return the result
# presuming on.exit as before - so odbcClose will happen here too
}

这听起来很愚蠢，但如果它真的有效，我不会太惊讶。

另一个想法是，如果您使用的是 Rstudio，那么您可能会收到一些幻像错误消息，例如，第一次使用plot不存在的图形参数时，然后第二次没有错误。

plot(1, bimbo=2)  # here you get some warnings as bimbo is not a graphical parameter
plot(2)   # nothing wrong here but RStudio replays the previous warnings

db 处理程序可能会发生类似的事情——如果是这种情况，看看你在 RStudio 和控制台中是否收到相同的警告（Windows 中的 Rgui 或 Rterm 或在 linux 的终端中运行 R）将是有益的。如果您使用的是 Rstudio，这当然适用。

最后，您可以尝试在 r-help 上发布此内容，因为 Brian Ripley（RODBC 的作者之一）在那里但不在这里。

如您所见，我没有真正的答案，如果要花太多精力才能弄清楚，我建议您不要担心：)

于 2014-02-06T21:12:42.467 回答
2

odbcClose()如果连接上有打开的事务，该函数将失败。在这种情况下，此连接将保持打开状态。

于 2013-09-04T19:00:00.107 回答