ACCESS批量导入数据库中指定的表并重名导入的表为原数据库

无影人　发表于：2011-09-30 10:32:50 　

有500个mdb数据库，每个数据库都有两张结构一样，表名一样的表，aaa和bbb，怎么把这500个数据库中的aaa表批量导入到一个数据库500张表，bbb表就不要了，并且这500张表的命名为他们原先的数据库名，比如原先的数据库为kkk.mdb，那么导入进来的表名就自动命名为kkk

Top

煮江品茶发表于：2011-09-30 10:46:07

遍历文件即可

Top

无影人发表于：2011-09-30 11:28:22

怎么遍历，求详细点的，可以吗我是新手

有500个mdb数据库，每个数据库都有两张结构一样，表名一样的表，Content和DownloadFile，怎么把这500个数据库中的Content表批量导入到一个数据库500张表，DownloadFile表就不要了，并且这500张表的命名为他们原先的数据库名，比如原先的数据库为宝马.mdb，那么导入进来的表名就自动命名为宝马

数据库的一部分截图：

数据库的表都是一样的，结构也一样，都是

我希望只导入Content这个表

最终结果变成

Top

叶海峰发表于：2011-09-30 11:37:58

Sub a()
    Dim dirname As String
    dirname = Dir(CurrentProject.Path & "\*.mdb")
    Do While dirname <> ""
        If dirname <> CurrentProject.Name Then
            DoCmd.RunSQL "SELECT * INTO " & Left(dirname, Len(dirname) - 4) & " FROM [;database=" & dirname & ";].aaa "
            dirname = Dir
        End If
    Loop
End Sub

在目标mdb里面运行代码

Top

黎红军发表于：2011-10-02 01:25:34

干嘛还那么复杂？备份一个新的数据库，然后用一个遍历的语句运行清除记录为空的表。这个应当效率更高一些吧。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

ACCESS批量导入数据库中指定的表并重名导入的表为原数据库