From ea01f18d16edce599d5728107154a5dd33103274 Mon Sep 17 00:00:00 2001 From: del Carpio Huerta Date: Mon, 28 Feb 2022 16:06:49 +0100 Subject: [PATCH] =?UTF-8?q?Solucionar=20problemas=20en=20la=20modificaci?= =?UTF-8?q?=C3=B3n=20y=20entrada=20de=20nuevos=20elementos=20de=20la=20tab?= =?UTF-8?q?la=20CLINICOS.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- sqlFunctions.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sqlFunctions.R b/sqlFunctions.R index 7a49400..83b93ec 100644 --- a/sqlFunctions.R +++ b/sqlFunctions.R @@ -238,7 +238,7 @@ sqlSincBD<-function(conn=dta, filetemp="queryOV.xlsx", sinc.samples=F, sinc.clin for (i in fechas){ clinics.mod[,i]<-as.Date(clinics.mod[,i]) } - sqlUpdate(conn, clinics.mod,"CLINICOS") + sqlUpdate(conn, clinics.mod,"CLINICOS", index="UMID") print("Tabla CLINICOS modificada.") } } @@ -276,7 +276,7 @@ sqlSincBD<-function(conn=dta, filetemp="queryOV.xlsx", sinc.samples=F, sinc.clin for (i in fechas){ clinics.new[,i]<-as.Date(clinics.new[,i]) } - sqlSave(conn, clinics.new, tablename="CLINICOS", append = T, varTypes = varTypes) + sqlSave(conn, clinics.new, tablename="CLINICOS", append = T, varTypes = varTypes, rownames = F) print("Tabla CLINICOS sincronizada.") } }