Нужен пример асинхронного запроса к olap кубу. adodb,cellset

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нужен пример асинхронного запроса к olap кубу. adodb,cellset (Макросы/Sub)

excelhelprus

Дата: Вторник, 18.07.2017, 18:24 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 5 ±

Замечаний: 20% ±

2015

Добрый день. суть в названии.
Кто работал с olap и знает как запустить асинхронный запрос?
Пробовал читать справку Microsoft, но разобраться не удалось.
Ссылка на справку:
https://docs.microsoft.com/en-us....cordset

пример кода:
[vba]

Код

Set cn = CreateObject("ADODB.Connection")
        cn.ConnectionString = _
        "provider=msolap;" & _
        "persist security info=true;" & _
        "user id=;" & _
        "data source=" & Connection & ";" & _
        "initial catalog=" & Catalog

    iSync = adConnectUnspecified: If ASync = True Then iSync = adAsyncConnect

    cn.Open 'cn.ConnectionString, , , iSync
    Set cs = CreateObject("ADOMD.Cellset")
    cs.ActiveConnection = cn
    cs.Source = Mdx
    cs.Open

[/vba]
Насколько я понял, если adomd cellset открываем - то тут нельзя асинхронность использовать.
Но надо.

Сообщение отредактировал excelhelprus - Среда, 19.07.2017, 15:14

Ответить

excelhelprus

Дата: Среда, 19.07.2017, 15:18 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 5 ±

Замечаний: 20% ±

2015

Пришел к следующему:
[vba]

Код

Dim cn As New ADODB.Connection: Dim cs As New ADODB.Recordset
iSync = adConnectUnspecified: If ASync = True Then iSync = adAsyncConnect
    cn.Open "provider=msolap;" & _
        "persist security info=true;" & _
        "user id=;" & _
        "data source=" & Connection & ";" & _
        "initial catalog=" & Catalog, , , iSync 'тут получилось запустить асинхронность, но как с этим работать я не понял
    Do While cn.State = 2
        DoEvents
    Loop
    cs.Open Mdx, cn 'это место все равно ждет, пока вернет ответ на mdx запрос. не хочет дальше без этого ни в какую.

    Get_response = Vivesti_V_massiv(cs)

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нужен пример асинхронного запроса к olap кубу. adodb,cellset (Макросы/Sub)

Страница 1 из 1
1