数据库合并

Question

我有两个MS-Access数据库（.mdb）在两个数据库中都有10行和5列 并且数据也是一样的，但我需要将两个.mdb合并到一个新的.mdb。

我该怎么做？

Answer 1

你说'数据库'，但你似乎意味着数据库和单个表。大多数数据库由多个表组成，Access数据库可以由多个表格，表格，报告和模块组成。

下面是从另外两个创建新数据库的几种方法之一的示例。请注意，这不考虑索引，如果有唯一索引并且两个表具有相同的值，则不起作用;如果没有唯一的索引，那么即使在自动编号字段中，新的表/ mdb中也会出现重复的值。指定要复制的字段会好得多，但是，正如已经指出的那样，这个问题对于信息来说有点短暂，正如这个答案一样。

Dim DBInA As String 
Dim DBInB As String 
Dim DBOut As String 
Dim sSQL As String 
Dim db As Database 

DBInA = "C:\Docs\DBInA.mdb" 
DBInB = "C:\Docs\DBInB.mdb" 
DBOut = "C:\Docs\DBOut.mdb" 

FileCopy DBInA, DBOut 

Set db = OpenDatabase(DBOut) 

sSQL = "INSERT INTO Table1 SELECT * FROM Table1 In '" & DBInB & "'" 
db.Execute sSQL, dbFailOnError