Как не зависеть от версии DAO?

[gjghjc]

Кто нибудь знает КАК сделать чтобы программа сама определяла версию DAO установленную на машине пользователя? Потому как если в референсах указать например DAO 3.6 то прогу начинает тошнить на машине где стоит win98 и офис 97. Различные инсталляторы просьба не предлагать, этот вариант не подходит потому как у моего аккаунта в сети прав на установку может не хватить.

[Sebas]

Использовать позднее связываение.

Dim dbe as object
Set dbe = CreateObject("DAO.DBENGINE") ' или что чтот типа того)))

[Andrey Fedorov]

Использовать позднее связываение.

Dim dbe as object
Set dbe = CreateObject("DAO.DBENGINE") ' или что чтот типа того)))

Может лучше попробовать положить DLL-ку DAO в каталог программы?

[gjghjc]

2 Sebas Именно этот вариант решения я и имел ввиду....
А вот так мне ответил VB на мои попытки

ActiveX component can't create object

Нужно именно оно позднее связыванее но вот как его осуществить... Подскажите плиз

[Andrey Fedorov]

Нужно именно оно позднее связыванее но вот как его осуществить... Подскажите плиз

Просто версию DAO при позднем связывании надо указывать явно, например:

Код: Выделить всё

Set dbe = CreateObject("DAO.DBEngine.36")


[gjghjc]

2 Andrey Fedorov за пример спасибо... работает.
Вопрос следующий КАК ОПРЕДЕЛИТЬ КАКАЯ ВЕРСИЯ DAO УСТАНОВЛЕНА.

[GSerg]

on error resume next
set obj = createobject("DAO.DBEngine.36")
if obj is nothing then set obj = createobject("DAO.DBEngine.35")
on error goto 0
if obj is nothing then msgbox "Облом"

[gjghjc]

2 GSerg Спасибо, вариант с перебором мне самому на ум приходил. В принципе он меня устраивает. Я думал что есть другие варианты решения этого вопроса.
Всем спасибо за помощь.

[GSerg]

Есть другие варианты.
Смотреть HKLM\Software\Classes на предмет раздела, начинающегося с DAO.DBEngine.