## Not run:
# drv <- dbDriver("Oracle")
# con <- dbConnect(drv, "scott", "tiger")
# res <- dbSendQuery(con, "select * from emp")
#
# # we now fetch the first 10 records from the resultSet into a data.frame
# data1 <- fetch(res, n = 10)
# dim(data1)
#
# dbHasCompleted(res)
#
# # let's get all remaining records
# data2 <- fetch(res, n = -1)
# ## End(Not run)
Run the code above in your browser using DataLab