Как скопировать таблицу из одной БД доступа в другую БД доступа

Question

Я пытаюсь автоматизировать процесс создания вторичной базы данных из первичной. Оба DB (MS Access) содержат одну таблицу; таблица во вторичной БД является подмножеством таблицы в первичной.

Есть ли простой способ скопировать набор записей с одного DB на другой? Я использую VBScript и ADO.

Спасибо!

Answer 1

Вы можете запускать запросы вставки, ссылающиеся на внешние файлы файлов базы данных Access (MDB, ACCDB и т. Д.). Например:

strSQL = "INSERT INTO ServiceRecordInvoices " & _ 
    "(sriID, sriServiceRecordID, sriInvoiceDate, sriInvoiceNumber, " & _ 
           "sriDescription, sriInvoiceAmount) " & _ 
    " IN '" & strDatabasePathandNameTo & "' " & _ 
    "SELECT srpID, srpServiceRecordID, srpInvoiceDate, srpInvoiceNumber, " & _ 
           "srpParts, srpPartsAmount " & _ 
    "FROM ServiceRecordParts IN '" & strDatabasePathandNameFrom & "';" 

Примечание две строковые переменные strDatabasePathandNameTo и strDatabasePathandNameFrom. Вышеупомянутый динамический код SQL отлично работает либо в DAO, либо в ADO.

Если две таблицы идентичны, то можно использовать следующее (непроверенные):

strSQL = "INSERT INTO ServiceRecordInvoices.* " & _ 
    " IN '" & strDatabasePathandNameTo & "' " & _ 
    "SELECT * " & _ 
    "FROM ServiceRecordParts IN '" & strDatabasePathandNameFrom & "';" 

Answer 2

Попробуйте метод CopyObject:

DoCmd.CopyObject "DestinationDatabaseName", "NewName", acTable, "SourceTable"