Вот с какой проблемой я столкнулся и пока не нашел решения. Советы в MSDN есть, но они почему-то не работают.
Мой файл MDB использует ссылки на хорошо всем знакомые библиотеки ADODB и ADOX.
НО! При запуске на другой машине с другой версией MS Office, отличной от моей ver. 2003, а именно XP, 2000 не находятся ссылки на нужные версии библиотек. ADODB можно подключить из набора 2.1 ... 2.8 более старую 2.5, благо они лежат на машине всем букетом, новые добавляются к имеющимся старым. С ADOX такой фокус не проходит - его версию надо указывать конкретно - 2.5, 2.7, 2.8.
При открытии startup формы можно програмно проверить коллекцию ссылок и найти те, которые broken. Но удалить паламатую ссылку и подключить на ее место хорошую нельзя - при удалении возникает ошибка. Подключить новую без удаления старой тоже нельзя - возникает конфликт версий.
Тогда я поступил таким образом:
1. удалил руками через меню tools|references ссылки на ADODB и ADOX
2. в startup форме подключаю их по известному GUID и номерам версии. Сначала пробую подключить более старшие версии, затем, в случае неуспеха, перебираю более младшие, пока не подключиться - работает ОК.
3. startup форма делается невидимой на все время работы приложения - ОК
4. в unload событии startup формы програмно удаляются хорошие рабочие ссылки на ADODB и ADOX - работает ОК. Для диагностики после удаления выводится списко оставшихся в коллекции References ссылок - все как надо.
Событие unload формы startup вызывается при выходе из приложения.
5. А вот теперь самое обидное. При следующем открытии MDB с загрузкой или без загрузки startup формы СВОЛОЧНЫЕ ССЫЛКИ ВСЕ РАВНО уже есть! Если открывать под лругой версией офиса, то опять будет ошибка. Плохая ссылка не удаляется.
Вот подключение ссылок в startupe:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Dim ref As Reference
With Application.References
On Error Resume Next
'ADODB версии 2.5
.AddFromGuid "{00000205-0000-0010-8000-00AA006D2EA4}", 2 , 5
Err.Clear
'ADOX разных версий от 2.8 вниз
.AddFromGuid "{00000600-0000-0010-8000-00AA006D2EA4}", 2 , 8
If Err.Number <> 0 Then
Err.Clear
.AddFromGuid "{00000600-0000-0010-8000-00AA006D2EA4}", 2 , 7
End If
If Err.Number <> 0 Then
Err.Clear
.AddFromGuid "{00000600-0000-0010-8000-00AA006D2EA4}", 2 , 6
End If
If Err.Number <> 0 Then
Err.Clear
.AddFromGuid "{00000600-0000-0010-8000-00AA006D2EA4}", 2 , 5
End If
End With
А вот unload формы startup:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
MsgBox "Removing References..."
Dim ref As Reference
'Один вариант
'For Each ref In Application.References
' If ref.Guid = "{00000600-0000-0010-8000-00AA006D2EA4}" Or _
' ref.Guid = "{00000205-0000-0010-8000-00AA006D2EA4}" Then
' Application.References.Remove ref
' End If
'Next ref
'Или другой вариант
Application.References.Remove Application.References!ADODB
Application.References.Remove Application.References!ADOX
'В этот момент на экране видно, что удаленных ссылок не осталось
For Each ref In Application.References
MsgBox ref.Name & " " & ref.Major & "." & ref.Minor
Next ref
'Но при следующем запуске они снова на месте
