RODBC访问信息架构

Question

我正在尝试使用R中的RODBC包执行以下SQL命令。

（我正在尝试查找所有列名称如'ID'的表）

USE[databasename]
SELECT DISTINCT TABLE_NAME
FROM INFORMATION_SCHEMA.COLUMNS
WHERE COLUMN_NAME LIKE '%ID%' 

当我尝试通过下面的函数传递此文本时，我得不到回复：

library(RODBC)

  odbc <- function(x){
    query <- as.character(x)
    db <- odbcDriverConnect('driver={SQL Server};server=servername;trusted_connection=true')
    datadb <- sqlQuery(db, query, stringsAsFactors=FALSE)
    close(db)
    datadb
  }

odbc("USE[databasename]
SELECT DISTINCT TABLE_NAME
FROM INFORMATION_SCHEMA.COLUMNS
WHERE COLUMN_NAME LIKE '%ID%'")

不返回任何行。如果我在SSMS中执行相同的文本，它将返回行。我在这里误解和/或做错了什么？非常感谢任何帮助。