## Not run:
# library(DBI)
# data(USArrests)
# con <- dbConnect(RODBCDBI::ODBC(), dsn="test", user="sa", password="Password12!")
# dbWriteTable(con, "t1", USArrests, overwrite=TRUE)
# dbWriteTable(con, "t2", USArrests, overwrite=TRUE)
#
# dbListTables(con)
#
# rs <- dbSendQuery(con, "select * from t1 where UrbanPop >= 80")
# dbGetStatement(rs)
# dbHasCompleted(rs)
#
# info <- dbGetInfo(rs)
# names(info)
# info$fields
#
# dbFetch(rs, n=2)
# dbHasCompleted(rs)
# info <- dbGetInfo(rs)
# info$fields
# dbClearResult(rs)
#
# # DBIConnection info
# names(dbGetInfo(con))
#
# dbDisconnect(con)
# ## End(Not run)
Run the code above in your browser using DataLab