Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как объединить результаты двух sql запросов к разным БД?
 
U_M0KRH, Результат 1 запроса является условием ко 2-му запросу. Если я правильно понимаю, то первый запрос мне нужно поместить в recodset, а затем обработать в цикле этот recodset и создать запрос2
Изменено: idShura - 20 Мар 2017 13:21:30
Как объединить результаты двух sql запросов к разным БД?
 
Есть две базы данных, нужно выполнить запрос1 к БД1, затем полученные данные подставить в запрос2 к БД2 и результат запроса вывести в сводную таблицу. Нужно это все реализовать средствами VBA в Excel.

Заполнять данными сводную таблицу я научился, а вот с остальным нужна помощь.
Сводная таблица OLEDB, Заполнение сводной таблицы данными из sql server compact
 
Андрей VG Спасибо, ваш пост очень мне помог сдвинуться с мертвой точки. Правда достичь поставленной цели все еще не получается.

Цитата
А зачем так делать в данном случае?
Я неправильно выразил свою мысль в первом посте. Мне нужно просто нужно заполнить данными существующую сводную таблицу.
Сводная таблица OLEDB, Заполнение сводной таблицы данными из sql server compact
 
Подскажите пожалуйста как получить данные из sql server compact 3.5 и засунуть их в сводную таблицу?

Пока научился только доставать данные в recordset:
Код
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

conn.ConnectionString = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5; Data Source= c:\test\db.sdf;Persist Security Info=False"
conn.Open


cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM HISTORY"
Set rs = cmd.Execute

...

conn.Close
Заполнять сводную таблицу через ODBC я умею, а через OLEDB не получается...
Код
With ThisWorkbook.PivotCaches(1)
    If .CommandText = "SQL Запрос" Then
        .Connection = "ODBC строка подключения"
        .Refresh
    Else
        .EnableRefresh = True
        .CommandType = xlCmdSql
        .SavePassword = True
        .Connection = "ODBC строка подключения"
        .CommandText = "SQL Запрос"
        .RobustConnect = xlAlways
        .EnableRefresh = True
    End If
  
End With
Страницы: 1
Наверх