## 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))
# ## End(Not run)
Run the code above in your browser using DataLab