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