在使用 Microsoft Access 数据库时,有时需要将多个 .mdb 文件(Access 2003 及更早版本的数据库格式)合并到一个文件中,以便统一管理和查询数据。本文将介绍几种常用的合并方法。
如果你熟悉 VBA,可以编写脚本自动遍历指定文件夹中的所有 MDB 文件,并导入其所有表:
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strPath As String
strPath = "C:\YourFolder\"
Dim fso As Object, folder As Object, file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(strPath)
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Name)) = "mdb" Then
For Each tdf In DBEngine.OpenDatabase(strPath & file.Name).TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
DoCmd.TransferDatabase acImport, "Microsoft Access", _
strPath & file.Name, acTable, tdf.Name, tdf.Name & "_from_" & Replace(file.Name, ".mdb", "")
End If
Next tdf
End If
Next file
对于非技术人员,也可以使用如 Access Database Merge、DBConvert 等工具,支持图形化界面一键合并多个 MDB 文件。