1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
library(RODBC) channel <- odbcDriverConnect("driver=SQL Server;server=ServerName") # Request information on the ODBC connection odbc.info <- odbcGetInfo(channel) getSqlTypeInfo(odbc.info[1]) # Read data query <- "SELECT * FROM Database.dbo.Student AS Student LEFT JOIN Database.dbo.Teacher AS Teacher ON Teacher.id=Student.teacher_id WHERE Student.gpa<'60' ORDER BY Student.gpa DESC" Students <- sqlQuery(channel, query) close(channel) |