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)
res3 <- dbSendQuery(con, "select * from emp where deptno = :1",
data2 = data.frame(deptno = 10), bulk_read=10L)
data2 <- fetch(res3, n = -1)
Run the code above in your browser using DataLab