Динамическое подключение .OCX в VBA

Александр17 лет в сервисе
Данные заказчика будут вам доступны после подачи заявки
09.07.2009

При разработке приложения в Access возникли трудности.

Программа должна отправить POST запрос на web сервер и читать результаты.

Использовал для этого msinet.ocx, привязывая её через "References..."

Но, при переносе файла на некоторые другие ПК, возникает ошибка 429.

Вот код динамической регистрации и привязки, который по идее должен

выполнять свою функцию:

Shell ("C:\windows\system32\regsvr32.exe /s msinet.ocx")

MsInetRef = False

For i = 1 To References.Count

If References.Item(i).Guid = "{48E59290-9880-11CF-9754-00AA00C00908}" Then

MsInetRef = True

If References.Item(i).IsBroken = True Then

References.Remove (References.Item(i))

References.AddFromGuid "{48E59290-9880-11CF-9754-00AA00C00908}", 1, 0

End If

End If

Next i

If MsInetRef = False Then References.AddFromGuid "{48E59290-9880-11CF-9754-00AA00C00908}", 1, 0

Код запускается каждый раз при загрузке формы.

далее, запускаем некоторую процедуру с таким кодом:

Dim oInet As InetCtlsObjects.inet

Set oInet = New InetCtlsObjects.inet

На второй строке появляется ошибка 429 "ActiveX Can't Create Object"

Что не так?

(1)Локальная цель: динамически подключать .ocx на ПК.

(2)Глобальная цель: передать из MS Access POST запрос и прочитать результаты,

причём эта возможность должна существовать без необходимости вручную подключать

модули на каждом ПК.

Предлагайте варианты решения для (1) или (2),

указывайте цену.

Предполагаю, что это как раз тот случай, когда просто нужно знать

где чего не так, и как это реализовать готовым исходником,

и поэтому рассчитываю на небольшой быджет 5-10$

Тем не менее, рассмотрю прочие варианты.

Заявки фрилансеров