## Not run:
# library(DBI)
# con <- dbConnect(RODBCDBI::ODBC(), dsn="test", user="sa", password="Password12!")
# dbWriteTable(con, "mtcars", mtcars, overwrite=TRUE)
# dbReadTable(con, "mtcars")
# dbDisconnect(con)
# ## End(Not run)
Run the code above in your browser using DataLab