Browse Source

Cambiar sistema de pedir contraseña.

dev
marcelcosta 2 years ago
parent
commit
6671939939
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      BDAccess/app.R

+ 3
- 3
BDAccess/app.R

@ -144,15 +144,15 @@ server <- function(input, output) {
print(CCfile)
if (input$dbtype == "UM"){
dta<<-odbcConnectAccess2007(access.file = UMfile,
pwd = .rs.askForPassword("Enter password:"))
pwd = getPass::getPass("Enter password:"))
}
if (input$dbtype == "OV"){
dta<<-odbcConnectAccess2007(access.file = OVfile,
pwd = .rs.askForPassword("Enter password:"))
pwd = getPass::getPass("Enter password:"))
}
if (input$dbtype == "CC"){
dta<<-odbcConnectAccess2007(access.file = CCfile,
pwd = .rs.askForPassword("Enter password:"))
pwd = getPass::getPass("Enter password:"))
}
print(dta)
if (input$backup == T){

Loading…
Cancel
Save