library(ggplot2); library(RODBC)

channel <- odbcConnect("ebv_d29", uid = "RECKLINGK", pwd = "stapler13")
test <- sqlQuery(channel, stringsAsFactors=F,
                 "SELECT FZSTAM.FIRNR, FZSTAM.FAZFI
                 FROM FZSTAM
                 WHERE FZSTAM.FIRNR = 1
                 LIMIT 1000
                 ")
odbcCloseAll(); rm(channel)

ggplot(test, aes(x=FAZFI)) +
  geom_bar(color="blue", fill=rgb(0.1,0.4,0.5,0.7) )