在 R 中合并多个 ACCESS 文件

Question

我正在尝试合并不同的 ACCESS 文件（位于同一文件夹下的不同子文件夹中）。在阅读了不同的博客和人们在这里提出的一些问题之后，我想出了下面的代码。

Parent.Folder<-"D:/Documents/Rwd"
setwd(Parent.Folder)
library(RODBC)
subfolders<-list.dirs(Parent.Folder, recursive = TRUE)[-1]
list_filenames<-list.files(subfolders, recursive = FALSE)
list_filenames<-paste("D:/Documents/Rwd/", list_filenames, sep="")
list_filenames<-sub(".mdb","",list_filenames)
for (file in list_filenames){
  if(!exists("data")){
    channel<-odbcConnectAccess(file)
    data<-sqlQuery(channel,paste("select* from HRESULTS"))
    close(channel)  
    }

  if(exists("data")){
    channel<-odbcConnectAccess(file)
    temp_data<-sqlQuery(channel,paste("select* from HRESULTS"))
    data<-rbind(data,temp_data)
    rm(temp_data)
    close(channel)  
  }
}

所有表格都采用相同的格式，我的目标是将它们放在一个数据框中。第一个 if 语句运行良好，并给了我一个包含来自第一个文件的数据的数据框，但之后我收到错误“sqlQuery 中的错误（通道，粘贴（“从 HRESULTS 中选择*”））： 第一个参数不是开放的 RODBC 通道” 我以前从未使用过 ODBC 或 SQL，所以如果我犯了一个非常明显的错误，我深表歉意。任何帮助将不胜感激。谢谢！

Answer 1

作为像 SQLite 这样的文件级数据库系统，MS Access 文件需要完整的路径引用，包括 ODBC 连接中的扩展名。

根据您的需要，考虑使用list.files 参数full.names = TRUE，然后过滤列表以仅找到可行的访问扩展名.mdb 或.accdb。最后，考虑将 lapply 用于不断增长的导入查询数据表列表，您可以稍后运行 do.call(rbind...) 以连接到最终数据帧：

Parent.Folder <- "D:/Documents/Rwd"
subfolders <- list.dirs(Parent.Folder, recursive = TRUE)[-1]

list_filenames <- list.files(subfolders, full.names = TRUE, recursive = FALSE)
acc_files <- list_filenames[grep(".mdb|.accdb", list_filenames)]

output <- lapply(acc_files, 
                 function(file) {
                    channel <- odbcConnectAccess(file) 
                    # ALTERNATIVE CONNECTION
                    # channel <- odbcDriverConnect(paste0('driver=
                    #            {Microsoft Access Driver (*.mdb, *.accdb)};
                    #            DBQ=', file))                        
                    data <- sqlQuery(channel, "select * from HRESULTS")
                    close(channel)
                    return(data) 
                })

data <- do.call(rbind, output)