sqlQuery 的 RODBC 错误处理

我没有找到任何好的错误测试函数来测试结果sqlQuery这让我很惊讶。

在文档中（http://www.inside-r.org/packages/cran/rodbc/docs/sqlQuery http://www.inside-r.org/packages/cran/rodbc/docs/sqlQuery），他们指出其返回值为：

“成功时，数据帧（可能有 0 行）或字符串。出错时，如果错误 = TRUE，则为错误消息的字符向量，否则为不可见的整数错误代码 -1（一般情况下，请调用 odbcGetErrMsg 了解详细信息）或 -2（无数据，这可能不是错误，因为某些 SQL 语句确实不返回数据）。”

我永远无法复制返回的 -1 或 -2 （默认情况下，错误 = false）。这怎么可能？

如果使用无效表编写 SELECT 请求，我会从 SQL Server 得到一个包含错误消息的字符串，但没有 -1L 也没有 -2L。它们什么时候发生？

本着同样的精神，测试 SQL 错误或空结果集包括一系列较小的测试，以避免测试时出现错误。

我最终使用了以下 if..else..else 代码，但我想知道是否可以简化它（以及为什么我从未看到 -1 或 -2）。这让我有种没有涵盖所有案例的糟糕感觉......

sql.invalid.table.name <-
 "SELECT pfiID
  FROM test"

sql.0.rows <-
 "SELECT pfiID
  FROM dossier
  WHERE pfiID = 'fake-id'"

sql.10.rows <-
 "SELECT pfiID
  FROM dossier
  WHERE pfiID like '%/200201/0001'"

records <- sqlQuery(channel, sql.invalid.table.name)

if (is.null(nrow(records))) {
  stop(paste("", records, sep="\n"))
} else if (nrow(records) == 0) {
  cat("No data\n")
} else
  print(head(records))

records <- sqlQuery(channel, sql.0.rows)

if (is.null(nrow(records))) {
  stop(paste("", records, sep="\n"))
} else if (nrow(records) == 0) {
  cat("No data\n")
} else
  print(head(records))

records <- sqlQuery(channel, sql.10.rows)

if (is.null(nrow(records))) {
  stop(paste("", records, sep="\n"))
} else if (nrow(records) == 0) {
  cat("No data\n")
} else
  print(head(records))

有什么想法/意见吗？

是的，情况看起来很可怕，但实际上并没有想象的那么糟糕。该文档模糊且令人费解，因为RODBC处理与任何类型数据库的连接，并且不同的数据库在出现问题时返回不同的内容。

我已经使用 ROBDC 将 R 连接到 SQL Server 完成了大量工作，总的来说SELECT查询很容易处理：如果有效，它们将返回一个数据帧，如果无效，则返回一个字符向量。所以代码就像

records <- sqlQuery(channel, "SELECT blah FROM somewhere")
if(is.character(records))
{
  stop(paste(records, collapse = "\n"))
}

效果很好。

为了绝对确定，您需要更彻底，但如果您仅连接到一种类型的数据库，那么它的失败方式有望保持一致。