# 需要密码的链接
library(RODBC)
dbhandle <- odbcDriverConnect('driver={SQL Server};server=ip地址;database=数据库名称;uid=用户名称;pwd=密码')
r <- sqlQuery(dbhandle, 'select top 1 * from table_name')
print(r)
odbcClose(dbhandle)
library(RODBC)
dbhandle <- odbcDriverConnect('driver={SQL Server};server=ip地址;database=数据库名称;uid=用户名称;pwd=密码')
r <- sqlQuery(dbhandle, 'select top 1 * from table_name')
print(r)
odbcClose(dbhandle)