安裝插件包
install.packages("RODBC")
連接數(shù)據(jù)庫,查詢表,打印數(shù)據(jù)
require('RODBC')
dbhandle <- odbcDriverConnect('driver={SQL Server};server=192.168.22.24;database=xxx;uid=xxx;pwd=xxx')
r <- sqlQuery(dbhandle, 'select top 1 * from table_name')
print(r)
關閉連接
odbcClose(dbhandle)