Отвечен

Ошибка 12004 после POST запроса из VBA

8 лет назад • обновлен 8 лет назад • 6

Проблема из письма:

Vba access msxml2.Xmlhttp
Post

Readystate 4
А status = 12004

Голос

Ответ

8 лет назад

А если сделать синхронный запрос, какой будет результат?

xhr.Open "POST", "https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/address", False
xhr.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
xhr.setRequestHeader "Accept", "application/xml"
xhr.setRequestHeader "Authorization", "Token " & Token
xhr.send "{ ""query"": """ & strQuery & """ }"   
GetAdrData = xhr.responseText

Ответы 6
Старые сверху
- Новые сверху
- Старые сверху

8 лет назад

xhr.Open "POST", "https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/address", True
    xhr.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
    xhr.setRequestHeader "Accept", "application/xml"
    xhr.setRequestHeader "Authorization", "Token " & Token
    xhr.send "{ ""query"": """ & strQuery & """ }"
Dim t As Date
    t = Time
    frm.SetQueryStatus 100
   
    While DateDiff("s", t, Time) < 20 And xhr.ReadyState = 1
        frm.SetQueryStatus 100
        If boolStop Then GoTo Wend_
        DoEvents
    Wend
    frm.SetQueryStatus xhr.Status
Wend_:
   
    GetAdrData = xhr.responseText

Ответить
|

На рассмотрении

8 лет назад

Ответить
|

Ответ

8 лет назад

А если сделать синхронный запрос, какой будет результат?

xhr.Open "POST", "https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/address", False
xhr.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
xhr.setRequestHeader "Accept", "application/xml"
xhr.setRequestHeader "Authorization", "Token " & Token
xhr.send "{ ""query"": """ & strQuery & """ }"   
GetAdrData = xhr.responseText