|
@ -1,9 +1,9 @@ |
|
|
sqlConnect<-function(file, pass=T){ |
|
|
sqlConnect<-function(file, pass=T){ |
|
|
sqlInitialize() |
|
|
sqlInitialize() |
|
|
if (pass){ |
|
|
if (pass){ |
|
|
dta<-odbcConnectAccess2007(access.file = file, |
|
|
|
|
|
pwd = .rs.askForPassword("Enter password:")) |
|
|
|
|
|
|
|
|
return(odbcConnectAccess2007(access.file = file, |
|
|
|
|
|
pwd = .rs.askForPassword("Enter password:"))) |
|
|
}else{ |
|
|
}else{ |
|
|
dta<-odbcConnectAccess2007(access.file = file) |
|
|
|
|
|
|
|
|
return(odbcConnectAccess2007(access.file = file)) |
|
|
} |
|
|
} |
|
|
} |
|
|
} |