Question

我想在MS Access数据库中创建一个新表。我只是在做一个虚拟的例子，现在我向其中添加了“ mtcars”数据集，对不起，这不是可重复的，但是也许有一个简单的解决方案：

connect_to_access_dbi <- function(db_file_path)  {
  require(DBI)
  # make sure that the file exists before attempting to connect
  if (!file.exists(db_file_path)) {
    stop("DB file does not exist at ", db_file_path)
  }
  # Assemble connection strings
  dbq_string <- paste0("DBQ=", db_file_path)
  driver_string <- "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
  db_connect_string <- paste0(driver_string, dbq_string)

  myconn <- dbConnect(odbc::odbc(),
                      .connection_string = db_connect_string)
  return(myconn)
}

# get to Access database(s) through research drive path
db_file_path <- 'Z:/American Kestrel projects/Idaho banding data/American Kestrels_2018_May15.accdb'

# connect to database
con <- connect_to_access_dbi(db_file_path)

data(mtcars)

# add new mtcars table
dbWriteTable(con, "mtcars", mtcars)
dbReadTable(con, "mtcars")

这不起作用，并且我收到如下错误消息：

Error in new_result(connection@ptr, statement) : 
  nanodbc/nanodbc.cpp:1344: 42000: [Microsoft][ODBC Microsoft Access Driver] Syntax error in CREATE TABLE statement.

会有人知道这意味着什么以及我如何进行这项工作吗？

Answer 1

首先检查文件是否存在是正确的，因为据我所知，R 无法创建新的 Access 数据库。 Base R 的 user 函数就像它可以的那样，但是当您尝试在 Access 中打开它时，会出现一个弹出窗口，说它不是一个有效的数据库（因此，R 也将无法写入它）。< /p>

我的解决方法是在我的计算机上的某处创建一个空白的 .accdb 文件，然后使用 R 的内置文件管理功能来复制它，重命名它，并在我想导出到 Access 时将其移动到我的工作目录:

file.create()

然后，您可以使用 blank_db <- "C:/Users/JohnDoe/Desktop/foo.accdb" #a valid but empty Access database, previously created outside of R db_file_path <- "Z:/American Kestrel projects/Idaho banding data/American Kestrels_2018_May15.accdb" if (!file.exists(db_file_path)) file.copy(blank_db, db_file_path) #copies, renames, and moves empty Access data base to target path 包中的 sqlSave() 函数在复制的空白 Microsoft Access 数据库中创建新表：

RODBC

使用R

1 个答案: