# NOT RUN {
# }
# 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
# }
Run the code above in your browser using DataLab