#install.packages("DBI")

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

# 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)
dengue_diario_data <- dbReadTable(con, "dengue_diario")

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