rs1 <- dbSendQuery(con, 
         paste(
             "select Agent, ip\_addr, DATA from pseudo\_data order by Agent",
             "select * from Agent\_name",
              sep = ";")
         )
x1 <- fetch(rs1, n = -1)
if(dbMoreResults(con)){
   rs2 <- dbNextResult(con)
   x2 <- fetch(rs2, n = -1)
}Run the code above in your browser using DataLab