Исходные данные:
1. Допустим есть пустая бд или её описание в любом виде (например txt файл) (Эталон)
2. Есть рабочая бд с данными.
Задача:
Нужно программно найти изменения структуры в рабочей бд относительно Эталона (типы полей, количество полей в таблицах, удаленные (измененные) связи в схеме данных).
Цель:
Выявить действия злоумышленников.
Решения:
- идеальное: это если просто сравнивать рабочий и эталонный mdb
- приемлемое: это получить и хранить описание эталона в каком то виде, а потом сравнивать его с рабочей бд

Заранее всем спасибо.

П-Л,
а можно хоть название таких средств в пример привести? Нашел только mdb_compare но оно как то слабовато и схему данных совсем не проверяет...

Akina, а можно примерчик строчек на 10, например для конкретной таблицы (цикл по свойствам с выводом их в msgbox)? А то у меня какая то фигня получилась - выводит какие то крестики нолики...
Private Sub Кнопка0_Click()
Dim i As Long
Dim j As Long
Dim bd As Database
Dim rs As TableDef
Set bd = CurrentDb()
Set rs = bd.TableDefs("Таблица1")
i = rs.Properties.Count
For j = 0 To i
MsgBox rs.Properties.Item(j)
Next j
End Sub

Сам нарыл, ларчик просто открывается...
Рыл не долго (хоть и 7 лет прошло), просто опять понадобилось... таки если hdd пылит, связи могут пропадать и после сжатия- восстановления не восстанавливаться... минимальный трабл - всё работает, но с непонятными тормозами...
- ну во-первых, изменения полей не существенно, если некто поковырялся (или само ёк), то лишнее на интерфейс не влияет, а недостающее вылезет в виде ошибки в интерфейсе или отчете...
- а вот со связями всё просто:
Вот так получаем названия связей


Кстати они ни о чем, ибо могут меняться при профилактике БД, и меньшая часть их именована именами двух таблиц (см. последний столбец на картинке)
НО!
Лежит это всё хозяйство здесь: MSysRelationships
1. Выводим в доп. таблицу (или txt) содержимое этой таблицы из эталонной бд с сортировкой по полям (достаточно четырех: кто с кем и по каким полям) - отмечены галками...
2. Теперь достаточно тупо сравнить содержимое рабочей MSysRelationships с содержимым от эталонной бд

Кстати, поле grbit это тип связи:
4352 - по полной (целостность + каскадные удаления и обновления)
2 - это просто связь без целостности
256 - это целостность только с каскадным изменением
ну и т.д.

Это плохо...
соответственно...

кто ж такие вещи глазками делает?
нажал кнопку Проверить, получил или ОК или список НЕ ОК...

Да и с бэкапами, не так все просто, иногда приходится выбирать - терять месяц работы или чинить, бэкапы то есть, да вот плюха всплыла через месяц...

Критерии элементарные:
- показать недостающие связи в тестируемой БД по отношению к эталонной (лишних то не будет)
- показать не совпадающие grbit (потерялась целостность или каскадность)