#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_individual_actual <- dbReadTable(con, "investigacion_ind")
data_febriles_actual <- dbReadTable(con, "investigacion_feb")
data_edas_actual <- dbReadTable(con, "investigacion_eda")
data_iras_actual <- dbReadTable(con, "investigacion_ira")
data_noti_sp <- dbReadTable(con, "noti_sp")

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

# Exporta en archivo csv
ruta_individual_actual <- "Z:/individual_actual.csv"
ruta_febriles_actual <- "Z:/febriles_actual.csv"
ruta_edas_actual <- "Z:/edas_actual.csv"
ruta_iras_actual <- "Z:/iras_actual.csv"
ruta_noti_sp <- "Z:/noti_sp.csv"

write.csv(data_individual_actual, ruta_individual_actual )
write.csv(data_febriles_actual, ruta_febriles_actual )
write.csv(data_edas_actual, ruta_edas_actual )
write.csv(data_iras_actual, ruta_iras_actual )
write.csv(data_noti_sp, ruta_noti_sp )

#install.packages("dplyr")
#library(dplyr)
#noti_sp <- dbReadTable(con, "noti_sp")
#glimpse(noti_sp)