不得已到这里来求助!!!!血泪请求!万望相助.

wordlong

知道这里的都是高手,我不该来这里请教低端问题的,
但是我现在实在是太着急了,求各位大侠,就降低一小次身份,帮帮在下吧.我也算是常来这里光顾的了.谢谢啊.
事情是这样的.
我现在有一个人事数据库.每个数据库中有五个表.分别为A,B,C,D,E表.其中A表为基本表,其他4个表与它是一对多关系.

这样的数据库现在有280来个,都是不同单位的人事数据,表结构都一样,如果手工用复制,粘贴的方式追加记录的话太麻烦.
请问有没有简便的方法?比如用代码?
(要注意的是必段先追加A表的内容才能再追加其它4个表的内容)

谁知道方法?快帮帮我啊.我给钱都行啊.因为我好不容易用手工把它们合起来了,可是数据不小心给删了.他妈的(抱歉说脏话),是被我一个同事给删的,他的我的硬盘给低格了!
快帮帮我啊,领导催着要.我完了!

Roadbeg

1.先把 所有的数据库复制到同一目录.
2.使用dao 的 opendatabase 打开数据库.
3.添加 A 表内容.
3.添加 b,c,d,e 表内容.
4.关闭数据库.
5.用 dir 找到下一数据库的文件名并打开.
.....

wordlong

使用dao 的 opendatabase 打开数据库?这一点我不懂啊.

Trynew

在当前数据库的目录建一个Date子目录，把要追加的数据库都放进去，执行下列代码：
    Dim fileName As String
    fileName = Dir(CurrentProject.Path & "\Date\")
    Do While fileName <> ""
        CurrentDb().Execute "INSERT INTO 表1 SELECT 表1.* FROM [" & _
                          CurrentProject.Path & "\Date\" & fileName & "].表1;"
        CurrentDb().Execute "INSERT INTO 表2 SELECT 表2.* FROM [" & _
                          CurrentProject.Path & "\Date\" & fileName & "].表2;"
        fileName = Dir
    Loop
见下面实例：

dsfq

厉害厉害，P服P服。
如果需要加一个字段记录原单位怎么做？