# 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 DataCamp Workspace