R/_get.nalternativasDCM.R

In mbonoli/funcionesMBO:

#Devuleve el N? Alternativas de una encuesta de acuerdo a lo cargado en la BD
tmp_get.nalternativasDCM<-function(idencuesta, bits=64) {
  require(RODBC)
  if (bits==64) channel <- odbcConnect("Surveyweb DCM 64") else channel <- odbcConnect("Surveyweb DCM 32")
  result<-as.numeric(sqlQuery(channel, paste("Select NumeroAlternativas from encuestas where idencuesta = ",idencuesta,sep="")))
  close(channel)
  result
}