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

数据库合并

1 个答案: