Update dbq.R

dbGetQuery() in stead of dbSendQuery()+fetch()