#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_noti_sp <- dbReadTable(con, "noti_sp")

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

# Exporta en archivo csv
ruta_noti_sp <- "Z:/noti_sp.csv"

write.csv(data_noti_sp, ruta_noti_sp )