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