## Not run:
# drv <- dbDriver("Oracle")
# con <- dbConnect(drv, "scott", "tiger")
# res <- dbSendQuery(con, "select * from emp where deptno = :1",
# data = data.frame(deptno = 10))
# data <- fetch(res, n = -1)
# res2 <- dbSendQuery(con, "select * from emp where deptno = :1",
# data1 <- data.frame(deptno = 10), prefetch=TRUE,
# bulk_read=2L)
# data1 <- fetch(res2, n = -1)
# data1
#
# res3 <- dbSendQuery(con, "select * from emp where deptno = :1",
# data2 <- data.frame(deptno = 10), bulk_read=10L)
# data2 <- fetch(res3, n = -1)
# data2
#
# res4 <- dbSendQuery(con, "select * from emp where deptno = :1",
# data3 <- data.frame(deptno = 10), bulk_write=10L)
# data3 <- fetch(res4, n = -1)
# data3
#
# res5 <- dbSendQuery(con, "select * from emp where ename = :1",
# data4 <- data.frame(ename = 'SMITH'))
# data4 <- fetch(res5, n = -1)
# data4
# ## End(Not run)
Run the code above in your browser using DataLab