#install.packages("DBI")
#install.packages("odbc")
library(DBI)
library(odbc)
conn <- DBI::dbConnect(odbc::odbc(),
Driver = "SQL Server",
Server = "LAPTOP-JEJBT2IC\\MSSQLSERVER03",
Database = "AdventureWorks2019")
data <- dbGetQuery(conn, "SELECT * FROM Sales.SalesOrderHeader;")
head(data)
dbDisconnect(conn)