q <- "select Name, id from artists limit 10"

dbDisconnect(con)
con <- getDB()

## As Factors
ret <- list()
for (TF in c(TRUE, FALSE)){
  rs <- dbSendQuery(con, q)
  ret[[as.character(TF)]] <- fetch(rs, stringsAsFactors=TF)
}
dbDisconnect(con)

lapply(ret, sapply, is.factor)