通过远程桌面从 Microsoft SQL 数据库读取数据。 R

Question

我的数据加载到 Microsoft Windows Server 2012 远程桌面上的 Micorsoft SQL 服务器上。我想通过 R 访问数据。我知道它可以通过 RODBC 使用

odbcConnect(dsn, uid="", pwd="")

但我对在 dsn 上输入什么感到困惑。

Answer 1

这取决于您是要使用 ODBC DSN 还是无 DSN 连接字符串、身份验证类型和驱动程序。

这是一个使用域身份验证和 SQL Server 驱动程序的无 DSN 连接字符串示例：

odbcDriverConnect(connection="server=MYDB.mynet.tld;database=mydb_prod;trusted_connection=true;Port=1433;driver={SQL Server};TDS_Version=7.0;")

这是另一个示例，使用 SQL 身份验证和 FreeTDS 驱动程序（例如在 Mac 或 Linux 上）

odbcDriverConnect(connection="server=MYDB.mynet.tld;database=mydb_prod;uid=myuser;pwd=mypass;Port=1433;driver=FreeTDS;TDS_Version=7.0;")

请参阅http://www.connectionstrings.com/sql-server/，了解更多有关“连接”元素的示例。

这是我用来跨平台打开连接的一个函数：

require(RODBC)

connect <- function(host, db, user=NULL, pass=NULL, platform="win" ){

  # TODO: Check input paramaters and add a branch for SQL auth on windows

  if(platform == "win")
  {
    c <- odbcDriverConnect(connection=paste0("server=",host,
                                             ";database=",db,
                                             ";trusted_connection=true;Port=1433;driver={SQL Server};TDS_Version=7.0;"))

    if(class(c) == 'RODBC') 
    {  
      writeLines("Successfilly opened connection to db")
      return(c)
    } 
    else
    {
      writeLines(paste0("Error opening connection: ", as.character(c)))
    }
  }  

  if(platform == "mac")
  {
    c <- odbcDriverConnect(connection=paste0("server=",host,
                                             ";database=",db,
                                             ";uid=",user,
                                             ";pwd=",pass,
                                             ";Port=1433;driver=FreeTDS;TDS_Version=7.0;"))

    if(class(c) == 'RODBC') 
    {  
      writeLines("Successfilly opened connection to db")
      return(c)
    } 
    else
    {
      writeLines(paste0("Error opening connection: ", as.character(c)))
    }
  }  
}