Rを使用してすべてのMSアクセス添付ファイルをダウンロードする方法

Question

MS Accessには100行程度あり、各行には添付ファイルが含まれています。 RIでRODBCを使用すると、テーブルにアクセスができますが、MS Accessでそれを

Answer 1

添付ファイルを実行する方法を私を助けてplzは可能性がどのように添付ファイルにアクセスし、R

でそれらをダウンロードするには考えていることができ、実際に関与する特殊なデータ型ですメタデータ（filenameとfiledata）情報のネストした表したがって、RODBC経由でDML SQL文だけでこのデータにアクセスすることはできませんが、具体的にはDAO SaveToFile()メソッドに接続するCOMインターフェイスを使用できます。

RDCOMClientパッケージを使用して、アクセスオブジェクトライブラリへのインターフェイスを可能にすることを検討してください。注意：以下のコードを実行するには、.accdbファイルだけでなく、MSAccess.exe（MS Office GUIプログラム）がインストールされている必要があります。次のSQLクエリでは、ColAttachはテーブルの添付ファイルフィールドの名前であり、これらの修飾子は.filesataおよび.filenameを使用する必要があります。 DAOレコードセットのフィールド番号はゼロベースです（したがって、0と1）。複数の添付ファイルについて

library(RDCOMClient) 

# INITIALIZING OBJECTS 
accApp <- COMCreate("Access.Application") 
accApp$OpenCurrentDatabase("C:\\Path\\To\\Database.accdb") 
docmd <- accApp[["DoCmd"]] 
db <- accApp$CurrentDb() 

rst <- db$OpenRecordset("SELECT ColAttach.filedata, ColAttach.filename FROM TblAttach") 

while(rst$EOF() == FALSE){  
    rst$Fields(0)$SaveToFile(paste0("C:\\Path\\To\\Output_", rst$Fields(1)$Value()))  
    rst$MoveNext() 
} 

# CLOSING OBJECTS 
rst$close() 
docmd$CloseDatabase() 
accApp$Quit() 

# RELEASING RESOURCES 
accApp <- db <- docmd <- rst <- NULL  
rm(rst, db, accApp) 
gc() 

---

、各名とFILEDATAに子レコードをループ値（異なるSQLに気付きます）。ファイルが存在するかどうかを確認して、それに応じてCOMエラーを受け取るようにしてください。

rst <- db$OpenRecordset("SELECT ID, ColAttach FROM TblAttach") 

while(rst$EOF() == FALSE){  
    childRS <- rst[['ColAttach']]$Value() 

    while(childRS$EOF() == FALSE){ 
    if (file.exists(paste0("C:\\Path\\To\\Output_", childRS[["filename"]]$Value()))) { 
     unlink(paste0("C:\\Path\\To\\Output_", childRS[["filename"]]$Value())) 
    } 

    childRS[["filedata"]]$SaveToFile(paste0("C:\\Path\\To\\Output_", 
            childRS[["filename"]]$Value())) 
    childRS$MoveNext() 
    } 

    rst$MoveNext() 
}