У меня есть код, который подключается к списку shrepoint и обновляет его. Он отлично работает на моем компьютере.
Но мне нужно запустить его в других, и в некоторых из них появляется ошибка
"Не удалось найти устанавливаемый isam ('-2147467259 (80004005) ') "
Я пытался найти решения, но пост, который помог мне, не дал никакого ответа. Можете ли вы объяснить, как это исправить?
Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim ObjNetwork
Set ObjNetwork = CreateObject("WScript.Network")
mySQL = "SELECT * FROM [" & material & "];"
With cnt
.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=" & site & ";LIST=" & list & ";"
.Open
End With
rst.Open mySQL, cnt, adOpenDynamic, adLockOptimistic