## Not run:
# library(DBI)
# con <- dbConnect(odbc::odbc())
# dbListTables(con)
# dbWriteTable(con, "mtcars", mtcars, temporary = TRUE)
# dbReadTable(con, "mtcars")
#
# dbListTables(con)
# dbExistsTable(con, "mtcars")
#
# # A zero row data frame just creates a table definition.
# dbWriteTable(con, "mtcars2", mtcars[0, ], temporary = TRUE)
# dbReadTable(con, "mtcars2")
#
# dbDisconnect(con)
# ## End(Not run)
Run the code above in your browser using DataLab