install.packages("RODBC")
dbhandle <- odbcDriverConnect('driver={SQL Server};server=.\\SQLEXPRESS;database=SDC;trusted_connection=true')
res = sqlQuery(dbhandle, "select * from SDC_FACILITY")