Динамическое подключение .OCX в VBA
При разработке приложения в 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$
Тем не менее, рассмотрю прочие варианты.