如何通过R语言自动创建mdb文件？

ryusukekenji

> library(RODBC)<br />
> ch <- odbcDriverConnect("Driver={Microsoft Access Driver (*.mdb)}")<br />

</p>

通过以上代码可以创建*.mdb数据库，但是就需要手动点击，请问有什么办法可以自动创建mdb文件吗？

以下是我大略的思路...

if exist {update current *.mdb}

if not exist { create new *.mdb}

acode

可以自建一个空的文件。再通过建表。完全通过r去创建.mdb，应该很麻烦。

ryusukekenji

谢老师和颜站长熟悉C++和R，不晓得可否教教学生通过R运用C++来解决呢？学生被这问题难倒了~[s:15]

http://support.microsoft.com/kb/118609

http://support.microsoft.com/kb/149558

yihui

回复第3楼的 ryusukekenji：见2楼回复。因为Access不是开源的，我完全不知道这种文件是如何创建的，所以无法用R创建。我能想到的办法就是自己建一个空的mdb文件放在一个特定位置，每次需要创建文件的时候就把这个文件从那个特定位置拷贝到需要的地方，然后重命名，参见file.copy和file.rename。有了一个空的数据库文件之后，用R可以创建/删除/修改/保存数据表。

声明：我对C++一窍不通，那是颜站长的强项。

yanlinlin82

回复第4楼的谢益辉：不小心发现自己又被召唤了。

最近忙得实在没时间写实际代码进行试验，简单给个变态的纯R的解决思路吧：

1、先利用M$ Office手工创建一个空的mdb文件；

2、使用R的readBin读取这个空mdb文件，把该二进制数据读出来（应该是raw类型的吧）；

3、自己写一个create.mdb.file()的函数，在函数里直接写出这个raw的数据来，然后用writeBin把这个raw数据写到文件中。

代码大致为如下样子（未经测试）：

<br />
create.mdb.file <- function(filename) {<br />
  file.data <- as.raw(c(1, 2, 3, ...)) # 我没安装Office，不清楚这里的数据该填什么<br />
  f <- file(filename, "wb")<br />
  writeBin(f, file.data)<br />
  close(f)<br />
}<br />

</p>