## Not run:
# library(DBI)
# con <- dbConnect(RODBCDBI::ODBC(), dsn="test", user="sa", password="Password12!")
# dbWriteTable(con, "mtcars", mtcars, overwrite=TRUE)
# dbReadTable(con, "mtcars")
# dbGetQuery(con, "SELECT * FROM mtcars WHERE cyl = 8")
#
# # Supress row names
# dbReadTable(con, "mtcars", row.names = FALSE)
# dbGetQuery(con, "SELECT * FROM mtcars WHERE cyl = 8", row.names = FALSE)
#
# dbDisconnect(con)
# ## End(Not run)
Run the code above in your browser using DataLab