R/sql_server_connect.R

In dannymorris/rsqltools:

#' Connect to server/database in Microsoft SQL Server
#'
#' @param server server name
#' @param database database name
#' @param uid username
#' @param pwd password
#' @return A connection to SQL Server
#' @examples
#' sql_connect(server = "SQL_PROD_01", database = "dbo.CUSTOMERS")
#' @export
sql_server_connect <- function(server, database, uid = NULL, pwd = NULL) {
  
  if (!all(sapply(list(server, database), class) == 'character'))
    stop("all arguments should be character strings (eg 'SQLDEV11\\SQL_DEV11')")
    
  DBI::dbConnect(drv = odbc::odbc(),
                 driver = "SQL Server",
                 server = server,
                 database = database,
                 uid = uid,
                 pwd = pwd,
                 port = 1433,
                 Trusted_Connection = TRUE)
}