# NOT RUN {
# }
# NOT RUN {
drv <- dbDriver("Oracle")
con1 <- dbConnect(drv, "scott", "tiger")
res1 <- dbSendQuery(con1, "select * from emp where deptno = 10")
res2 <- dbSendQuery(con1, "select * from emp where deptno = 20")
con2 <- dbConnect(drv, "scott", "tiger")
res3 <- dbSendQuery(con2, "select * from dept")
## get all active statements
for(con in dbListConnections(drv))
for (res in dbListResults(con))
print(dbGetStatement(res))
# }
Run the code above in your browser using DataLab