#install.packages("DBI")
#install.packages("readr")

# Activar librerías
library(odbc)
library(openxlsx)
library(readxl)
library(readr)

# Script para conectarse a la BD alojada en el SQL SERVER
driver <- "ODBC Driver 17 for SQL Server"
server <- "192.168.200.63"
database <- "BD_NOTI_CALIDAD"
uid <- "mgomez"
pwd <- "y9Gi7pe2dsRHsewM"

con <- dbConnect(odbc::odbc(),
                 Driver = driver,
                 Server = server,
                 Database = database,
                 UID = uid,
                 PWD = pwd)
# , (opcional) TrustServerCertificate = "yes")

if (dbIsValid(con)) {
  print("Connection successful!")
} else {
  print("Connection failed.")
}

# Define la consulta SQL para descargar la tabla (crear un proyecto previamente)
library(DBI)
data_codubi <- dbReadTable(con, "codubi")
data_diagno <- dbReadTable(con, "diagno")
data_diresas <- dbReadTable(con, "diresas")
data_etniaproc <- dbReadTable(con, "etniaproc")
data_etnias <- dbReadTable(con, "etnias")
data_localidad <- dbReadTable(con, "localidad")
data_microred <- dbReadTable(con, "microred")
data_paises <- dbReadTable(con, "paises")
data_redes <- dbReadTable(con, "redes")
data_renace <- dbReadTable(con, "renace")

# Exporta en archivo XLSX
#write.xlsx(dengue_diario_data,"dengue_diario.xlsx" )

# Exporta en archivo csv
ruta_codubi <- "Z:/codubi.csv"
ruta_diagno <- "Z:/diagno.csv"
ruta_diresas <- "Z:/diresas.csv"
ruta_etniaproc <- "Z:/etniaproc.csv"
ruta_etnias <- "Z:/etnias.csv"
ruta_localidad <- "Z:/localidad.csv"
ruta_microred <- "Z:/microred.csv"
ruta_paises <- "Z:/paises.csv"
ruta_redes <- "Z:/redes.csv"
ruta_renace <- "Z:/renace.csv"

write.csv(data_codubi, ruta_codubi )
write.csv(data_diagno, ruta_diagno )
write.csv(data_diresas, ruta_diresas )
write.csv(data_etniaproc, ruta_etniaproc )
write.csv(data_etnias, ruta_etnias )
write.csv(data_localidad, ruta_localidad )
write.csv(data_microred, ruta_microred )
write.csv(data_paises, ruta_paises )
write.csv(data_redes, ruta_redes )
write.csv(data_renace, ruta_renace )