Как из Delphi программно создать связь между двумя базами Access?

[Dimm]

Сам Access позволяет создать связь с таблицей из другой базы.
Как сделать это программно из Delphi?

[Virtson]

что значит связь с таблицей из другой базы?
пример.

[Dimm]

Открываем Access.
Правым кликом вызываем меню.
Выбираем пункт "Связь с таблицами..."
Указываем путь к файлу *.mdb, с которым хотим установить связь.
Выбираем таблицу, с которой хотим установить связь.
Готово.

[Virtson]

Access просто запоминает путь до 2 файла БД и названия таблиц.
похоже, что в базу прописывается.

а как в программе используется ?

[Dimm]

Верно. Access запоминает путь. Делает аналог ссылки на указанную таблицу.

Есть БД, в ней хранятся быстро устаревающие данные.
Старые данные замедляют работу.
Стирать их нельзя. Они (редко) нужны для построения отчетов.

Я предполагаю работать с основной БД, а устаревшую информацию сливать в другие *.mdb файлы. На каждый год по файлу.

При построении отчета, я просто хочу подключать нужный *.mdb файл к основному. Вот тогда я и сделаю:
SELECT Таблица1.Num, Таблица2.RAsmer
FROM Таблица1 INNER JOIN Таблица2 ON Таблица1.Num = Таблица2.Num;

Руками можно подключить базу следующим образом:
Открываем Access.
Правым кликом вызываем меню.
Выбираем пункт "Связь с таблицами..."
Указываем путь к файлу *.mdb, с которым хотим установить связь.
Выбираем таблицу, с которой хотим установить связь.
Готово.

Но это слишком сложно для пользователей.
Мне нужен программный способ установления связей между базами.

[Virtson]

интересно. схожие задачи.

динамически создаю таблицу.
переписываю старые данные (только основные поля).
но все в одной БД.

до вашего решения сам не дошел.
найду решение - обязательно скажу.

[Dimm]

Очень на это надеюсь.

Вроде я нащупал кое-что.
2 варианта

В Delphi, закладка Servers - AccessApplication
но у меня нет описания...

или через CreateOleObject
---------------------------
var AccessApp:Variant;
...
AccessApp := CreateOleObject('Access.Application ');

AccessApp.OpenCurrentDatabase('D:\M asterDB.mdb', false, '');
for i := 0 to AccessApp.CurrentDb.TableDefs.Count - 1 do
if AccessApp.CurrentDb.TableDefs[i].Attributes = 1073741824 then //прилинкованная таблица
begin
tblName := AccessApp.CurrentDb.TableDefs.Item[i].Name;
AccessApp.CurrentDb.TableDefs.Delet e(tblName);
AccessApp.CurrentDb.CreateTableDef( tblName);
AccessApp.CurrentDb.TableDefs.Item[i].Properties.Item['Connect'].value := '; DATABASE=D:\SecretDB.mdb';
AccessApp.CurrentDb.TableDefs.Item[i].Properties.Item['SourceTableName'].Value := tblName; // !!! Невозможно присвоить значение, если объект является частью семейства
AccessApp.CurrentDb.TableDefs.Appen d(tblName);
---------------------------
Но пока этот код выдает ошибки.