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